بلال اليامين

طريقة اضافة زر لفتح النموذج في القائمة المسندلة تغيير ضغط بالزر الايمن للفارة بالزر اليسر للفارة سوف تظهر القائمة ليس لها مكان ثابت

السلام عليكم طريقة اضافة عرض تسمية عناصر القائمة و الأوامر البرمجية في وحدة نمطية

طريقة اضافة عرض تسمية عناصر القائمة و الأوامر البرمجية في وحدة نمطية

السلام عليكم عدم فتح البرنامج في اوفيس 2007

السلام عليكم عدم فتح البرنامج في اوفيس 2007

السلام عليكم عدم فتح البرنامج في اوفيس 2007

انشاء شريط قوائم في الموذج الفرعي وهذا عند وضع الماوس امام الزر تظهر القائمة الكود.rar

انشاء شريط قوائم في الموذج الفرعي وهذا عند وضع الماوس امام الزر تظهر القائمة الكود.rar

السلام عليكم اريد انشاء شريط قوائم في النموذج الفرعي وهذا عند وضع الماوس امام الزر تظهر القائمة المسندلة لفتح النموذج والتقرير امام كل موظف يوجد في الملف المرفق اسم نموذج اسمه ملف بداخله نموذج فرعي تجد زر اسمه ملف الموظف في هذا الزر اريد انشاء شريط القوائم الكود.rar

افادتنا

اخي الشرح في البرنامج المرفق وبارك الله فيك الكود (3).rar

السلام عليكم انشاء شريط قوائم في النموذج الفرعي اليكم البرنامج فيه الشرح بارك الله فيكم مساعدة الكود.rar

اخي حاولت ولم اسطيع اليك البرنامج لوضع الكود بارك الله فيك قاعدة بيانات1.rar

اخي اضع الكود مكان q_Ch3

السلام عليكم اخي لدي خمسة حقول اريد كود لمسح البيانات الموجودة في هذه الحقول

هذا هو الكود الذي ابحث عنة بارك الله فيكم شكرا

اخي لم يفتح التقرير اين اضع اسم معاينة التقرير

السلام عليكم لي كود يفتح النموذج واريد تغيير الكود لفتح التقرير DoCmd.OpenForm " ", acNormal, , " '" & Me.Text3 & "'" DoCmd.Close acForm, Me.name

افادتنا

انشاء شريط قوائم في الموذج الفرعي وهذا عند وضع الماوس امام الزر تظهر القائمة

انشاء شريط قوائم في الموذج الفرعي وهذا عند وضع الماوس امام الزر تظهر القائمة الكود.rar

انشاء شريط قوائم في الموذج الفرعي وهذا عند وضع الماوس امام الزر تظهر القائمة

السلام عليكم نشكر جميع الاعضاء والقائمين على الموقع الرائع اريد تلوين الزر عند وضع الماوس امام الزر و اريد عند وضع الماوس امام الزر تظهر القائمة في النموذج الفرعي الكود.rar

اخي بارك الله فيك شكرا هذا هو طلبي

السلام عليكم اريد ادراج هذا الكود في الزر اسمه تحديث Private Sub NoEmptyTexts() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If IsNull(ctl) Or ctl = "" Then ii = 1 MsgBox "الرجاء ملءجميع الحقول المطلوبة المشار اليها في نافذ حجز المعلومات تعني اجبارية ولايمكن تخطيها و الا لن تتم عملية حفظ أو تخزين المعلومات" DoCmd.CancelEvent ctl.SetFocus Exit For Else ii = 2 End If End If Next ctl End Sub Private Sub Form_BeforeUpdate(Cancel As Integer) End Sub Private Sub Form_Open(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub Private Sub أمر41_Click() Call NoEmptyTexts If ii = 1 Then Exit Sub DoCmd.CancelEvent Else Me.Refresh MsgBox " تمت عمليةاضافة موظف جديد بنجاح " & " " & Me.sname & " " & "رقم الموظف" & " " & usr_ID, _ vbInformation + vbOKOnly, _ "تنبيه" End If DoCmd.GoToRecord , الرمز, acNewRec End Sub 7.rar