booknet

السلام عليكم ورحمة الله وبركاته أرجوا المساعدة في الكود الآتي حيث أني أستعمله لاخفاء أدوات الأكسس والمطلوب هو اظهار أدوات التقرير فقط وافاء بقية الأدوات وشكرا الكود هو Private Sub Form_Open(Cancel As Integer) Dim i As Integer For i = 1 To CommandBars.Count Com…

السلام عليكم ورحمة الله وبركاته هل من الممكن ربط استعلامين بتقرير واحد مثلا إذا وضعنا في التقرير مربعين نص الأول مرتبط بالاستعلام الأول والثاني مرتبط الاستعلام الثاني وشكرا

وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا أخي العزيز وشكرا

السلام عليكم ورحمة الله وبركاته الرجاء المساعدة في هذا البرنامج الذي هو في الأصل للأخت المشرفة زهره، فلقد حاولت أن أجعله يقرأ بالدينار إلا أنني لم أستطع. فمثلا إذا كتبت الرقم: 915.550 يقرأه (تسعمائة وخمسة عشر دينار وخمسة وخمسون فلس فقط ) والمفروض أنه (تسعمائة …

جزاكما الله خيرا

السلام عليكم ورحمة الله وبركاته هل أستطيع الذهاب الى ريكورد معين: إذا كتبت في التكست بوكس رقم معين (مثلا رقم 7) وضغطت على الزر؟ وشكرا

أخي العزيز شبه جسم الخلل في Setup Factory

مع الاعتذار لصاحب الموضوع أحببت أن اضيف هذه المعلومة، وهي لجعل أداة الشجرة تقرأ من جهة اليمين: تضيف في الجينرال: Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As L…

الخطوة الثالثة لا تحتاجها حيث انك ستضيف الملف التنفيذي فقط كما هو في الخطوة العاشرة الخطوة السابعة والثامنة غير مهمة لأنك لن تستخدم الويزرد في الخطوة العاشرة المفروض انك تضيف ملف (exe) فقط وهو TestProgram اذا كان هناك اي ملفات مساعدة لتشغيل البرنامج مثل (dll) …

جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته هل يمكن جعل الليست بوكس من اليمين إلى اليسار؟ وشكرا

للرفع

جزاك الله خيرا اخي همام ابوعرقوب وجزاكم الله خيرا جميعا. يبقى سؤال واحد وهو: هل يمكن تظليل الكلمات المتشابهة مرة واحدة؟

السلام عليكم ورحمة الله وبركاته كيف يمكن البحث عن كلمة في التكست بوكس وتظليلها أو تلوينها (وإذا كانت أكثر من كلمة تظليل أو تلوين الجميع). وشكرا مثال التظليل كما في الصورة المرفقة

شكرا لكما وجزاكما الله خيرا الطريقتان نافعتان

السلام عليكم ورحمة الله وبركاته في المثال المرفق يقرأ البرنامج الداتا إلى الشجرة والمشكلة أن القرآئة تكون من (Z إلى A ) والمفروض أن تكون من (A إلى Z ) الرجاء المساعدة في تعديل الكود وشكرا ALPHABET.zip

Set rstUserList = New ADODB.Recordset strSQL = "SELECT UFirstName, ULastName " & _ "FROM tblUsers" rstUserList.Open strSQL, conADO Do Until rstUserList.EOF strUserName = rstUserList("UFirstName") & " " & _ rstUserList("ULastName") lstUsers.AddItem strUserName …

أخي العزيز لزيادة التأكد حاول تنصيب البرنامج على جهاز لم تنصبه عليه مسبقا ولم تحاول تنصيبه عليه. وفي انتظار النتيجة

أسرع طريقة واسرع هي: Private Sub Dir1_Change() File1.Path = Dir1.Path List1.Clear For x = 0 To File1.ListCount - 1 List1.AddItem File1.List(x) 'Add to second list Next x End Sub

Private Sub Command1_Click() Calendar = vbCalHijri Text2 = Format(Date, "dd/mm/yyyy") End Sub