MR^King

السلام عليكم ورحمة الله وبركاته اخي ادخل الوصلة التي وضعتها وستجد ماتريد ( للفيجوال بيزك طبعا) ========= سلام

السلام عليكم ورحمة الله وبركاته تفضل يا اخي الكود التالي يقوم بالمطلوب ان شاء الله Open "C:\mando.txt" For Input As #1 Dim M As String 1 If EOF(1) Then Close: Exit Sub Input #1, M Text1 = Text1 & M & vbCrLf GoTo 1 Close ================= الى اللقاء

السلام عليكم ورحمة الله وبركاته اخي هذا المتغير فائدته في هذا السطر TestID = RS("FirstName") حيث ان عملية البحث ينتج عنها حالة من اتنين ان عملية البحث وجدت وبالتالي الـ RS سيعود بقيمة الحالة التانية انه يرجع الـ RS فاضي وهنا يأتي دور المتغير TestID احنا في الس…

السلام عليكم ورحمة الله وبركاته الـ Plug-Ins هي عبارة عن اضافات للبرنامج تضيف اليه مميزات جديدة أو تحسن من ادائه وربما احيانا لاصلاح عيب فيه وهي تختلف من برنامج لآخر ولمثال عليها ادخل الرابط التالي ستجد برنامج لتنسيق أكواد الفيجوال بيزك وهذا البرنامج في حد ذات…

السلام عليكم ورحمة الله وبركاته ضع الكود التالي في حدث Change الخاص بالتكست بوكس المخصص لعملية البحث If Trim(Text1) = "" Then Exit Sub Dim TestID As String RS.MoveFirst RS.Find "[PersonID] = '" & Text1 & "'" On Error GoTo 1 TestID = RS("FirstName") MsgBox "عفو…

السلام عليكم ورحمة الله وبركاته اخي الخطأ كله في انك عرفت المتغير pw في الفورم لود لأنه بذلك اصبح معرف على مستوى الـ Sub فقط ولحل المشكلة قم بوضع في قسم التصريحات العامة (General Delaration) dim pw as integer وسيعمل معك البرنامج بنجاح ان شاء الله ============ …

السلام عليكم ورحمة الله وبركاته تفضل اخي هذا هو الكود المطلوب ان شاء الله Dim MyHDate As Date Calendar = vbCalHijri MyHDate = Format(Date, "yyyy-mm-dd") Dim d, m, y, x As String d = Day(MyHDate) m = Month(MyHDate) y = Year(MyHDate) x = "layan" & "_" & d & "_" …

السلام عليكم ورحمة الله وبركاته اخي قم بتحميل المثال المرفق الكود سهل ان شاء الله جربه واخبرني بالنتيجة ========== الى اللقاء Passwd.rar

السلام عليكم ورحمة الله وبركاته اخي المثال المرفق في الموضوع الذي وضعت لك وصلته يحتوي على الكود المطلوب كل ما عليك هو تحميله واستخلاص الكود الذي تحتاجه منه ======= الى اللقاء

السلام عليكم ورحمة الله وبركاته شكرا يا باشا على الكود الجميل وهو يشبه رسالة التحذير المستخدمة في Norton AntiVirus 2006 رائعة تمنياتي ليك بالتوفيق :)

السلام عليكم ورحمة الله وبركاته بصراحة يا اخي لا اعرف سبب ظهور التاريخ بهذا الشكل مع اني حاولت تعديلها عن طريق امرار الدالة على DTPicker ولكن النتائج غريبة فعلا عموما انا هبحثلك عن الحل وسأضعه قريبا ان شاء الله بمجرد اني اجده :) ======== الى اللقاء

السلام عليكم ورحمة الله وبركاته عفوا اعتقد اني تسرعت في الرد راجع الرابط التالي وارجو انه يكون المطلوب /index.php?showtopic=102084 ============ الى اللقاء

السلام عليكم ورحمة الله وبركاته تفضل اخي الكود التالي RS.Find "[MyField] = '" & Text1 & "'" مع العلم بأن هناك طرق اخرى كثيرة للبحث ======== الى اللقاء

السلام عليكم ورحمة الله وبركاته طيب يا اخي في الحالة دي كل ما تحتاجه هو قاعدة بيانات وعملية اضافة عادية جدا ممكن تضيف 2 TextBox واحد لعنوان المواقع والتاني لاسمه وتضيف فيهم البيانات وتحفظها في قاعدة البيانات وتضع اربع ازرار للتنقل بين السجلات وبالنسبة للمثال ا…

السلام عليكم ورحمة الله وبركاته الحكاية كلها بتعتمد على عملية بحث عادية بيتم البحث عن الكود مثلا واذا وجده تقوم باظهار رسالة تفيد بان البيان مسجل مسبقا ويخرج من الصب ولو غير موجود يبقى هنا هيظهر خطا وبالتالي يتم تخطي الخطأ والذهاب الى كود الاضافة فيتم الموضوع …

السلام عليكم ورحمة الله وبركاته اخي قم بتحميل المثال التالي :) ======== الى اللقاء Broser2.rar

السلام عليكم ورحمة الله وبركاته تأكد من توافق نوع الحقل في قاعدة البيانات مع نوع البيانات المدخلة ثم أعد المحاولة اذا لم تفلح فقم بارفاق المثال حتى يمكن التعديل عليه بالتوفيق ======= الى اللقاء

السلام عليكم ورحمة الله وبركاته اخي بلاش كلمة استاذ الله يخليك احنا كلنا بنتعلم بالطبع يمكنك استخدام التاريخ الهجري بدلا من الميلادي فقط كل ما عليك هو استبدال كلمة Date بكلمة vbCalHijri ولكن لا تنسى ان تقوم بتعديل اعدادات التاريخ من الكنترول بانل علشان يظهر ال…

السلام عليكم ورحمة الله وبركاته لابد انك عملت شئ اخر خطأ تفضل مثالك في المرفقات تم التعديل عليه وهو يعمل بنجاح ========= الى اللقاء ______.rar

السلام عليكم ورحمة الله وبركاته يفضل وضع قاعدة البيانات في نفس المكان مع الملف التنفيذي لتجنب المشاكل او حتى وضعها في مجلد قريب منه المهم هو عدم تقييد مسار قاعدة البيانات بأي بارتيشن المهم سنفترض وضع القاعدة مع الملف التنفيذي فسيتم استبدال المسار باسم قاعدة ال…