نجوم المشاركات

السلام عليكم رمضان كريم لمن يريد الغاء تمكين مفتاح الشفت واعادة تمكينه مرة اخرى ارفق هذا المثال لأجل الفائدة فورم الواجهة الرئيسية هو start عملت ازرار اثنين احدها قفل الشفت بمعنى عدم تمكينه مرة اخرى بعد غلق البرنامج واخر لتمكين الشفت بعد غلق البرنامج وفتحه مرة اخرى ملاحظة / بمكنك من اجل التمويه وضع صورة صغيرة او ايقونة للأزرار حتى لايتبين ذلك ملاحظة اخرى الازرار تفتح وتغلق بكلمة مرور هي 1234 وبامكتنكم تغييرها من موديل اترككم مع البرنامج وهو على اوفس 2010 ارجو منه ان يستفاد من يحتاج لهذا البرنامج مفتاح الشفت.rar

ممكن تجرب Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' F7 to clear search box If KeyCode = vbKeyF7 Then Me.SearchBox.Value = "" KeyCode = 0 ' Disable default behavior End If ' F8 to perform search If KeyCode = vbKeyF8 Then ' Add your search logic here MsgBox "Perform search" KeyCode = 0 ' Disable default behavior End If End Sub يجب وضع هذا الكود في النموذج الخاص بك، وتأكد من تغيير "SearchBox" إلى اسم مربع البحث الخاص بك.

مشاركةً مع استاذنا @AlwaZeeR تفضل أخي مرفق حصلته بمكتبتي . All extensions in web browser.rar

معذرة أستاذنا الفاضل إن لم أشرح جيدا منذ البداية: الفوج: يجب أن يكون الفوج وحده في عرفة واحدة - حتى ان كان عدد قليل جدا.... ولا يمكن جمع فوجين أو أكثر في غرفة واحدة الرتبة مفتش الفوج 01 هنا في غرفة واحدة لوحده الرتبة مفتش الفوج 02 هنا في غرفة واحدة لوحده لا يمكن جمع الأفواج في غرفة واحدة.

كان الاولى عمل هذه العلاقة او شبيه علاقة قبل ادخال البيانات الآن مؤكد اي سجل في الرأس يوجد اكثر من سجل تابع له في الفرعي السؤال ؟ كيف تستدل على ذلك وما الرابط المشترك بين السجل في الرئيسي وسجلاته التابعة في الفرعي اذا يوجد شيء من هذا القبيل فيمكن تحديث الحقل الفارغ بناء على هذا الرابط ........... وبعد ذلك نعمل العلاقة .. والرقم الفرعي سوف يتم ادراجه آليا بحكم العلاقة

مشكور اخي صح رمضانك

تفضل استاذ @kams3008 محاولتي حسب ما فهمت (اضغط استيراد الطابعات . البرنامج بيستبدل الموجود بالطابعات لديك ) اليك الشرح والمرفق . واذا كان هذا طلبك لاتنسى الضغط على أفضل اجابة . Add Printers.rar

If a = 1 Then SetDefaultPrinter ("hp LaserJet 1000") ElseIf a = 2 Then SetDefaultPrinter ("HP LaserJet M109-M112") End If DoCmd.OpenReport "repName", acViewNormal

استاذ بارك الله فيك kkhalifa1960 kkhalifa1960

مشاركة مع استاذ @Foksh .......... تفضل استاذ @بلال اليامين محاولتي حسب مافهمت (البحث برمجياً بجميع الحقول) . واضافة من عندي برمجة الزر تحديد الكل (ليصبح تحديد/عدم تحديد) جربه بيفيدك . 19 (2).rar

تفضل استاذنا . Private Sub CmdAccepted_Click() Me.y1 = "مقبول" Me.y1.ForeColor = RGB(0, 155, 0) End Sub Private Sub CmdRejected_Click() Me.y1 = "مرفوض" Me.y1.ForeColor = vbRed End Sub Private Sub CmdAcceptedRejected_Click() If Me.y1 = "مقبول" Or Me.y1 = "" Then Me.y1 = "مرفوض" Me.y1.ForeColor = vbRed Me.CmdAcceptedRejected.Caption = "مقبول" Me.CmdAcceptedRejected.BackColor = RGB(0, 155, 0) Else Me.y1 = "مقبول" Me.y1.ForeColor = RGB(0, 155, 0) Me.CmdAcceptedRejected.Caption = "مرفوض" Me.CmdAcceptedRejected.BackColor = vbRed End If End Sub

من هنا

بناءً على تصميم نموذجك وطريقة عرض البيانات بعد الفلترة ، جرب هذه الفكرة في مربع النص "نص31" اكتب اي جزء من اي حقل واضغط انتر 19.accdb

اخى ومعلمى @Foksh لك كل التقدير والاحترام

تفضل استاذ @rachedi طلبك بالمرفق والشرح بطريقتان . زر واحد أو زران . ووافني بالرد . DDTest113.rar

تفضل أخي @rachedi ، ولكن لي طلب منك صغير وأرجو أن تأخذه بسعة صدر .. حاول ارفاق ملف للمشكلة التي تريد لها حل ، وأيضاً انتقاء العناوين المناسبة التي تصف المشكلة ليسها على الأعضاء إيجادها في البحث عند حاجتهم . تفضل هذه اقتراحي حسب ما فهمت من طلبك ، زر القبول :- Private Sub btnAccepted_Click() Me.chkAccept.Value = True End Sub وزر الغير مقبول :- Private Sub btnReject_Click() Me.chkAccept.Value = False End Sub