بالنسبة لطلبك الأول تفضل عدم تفعيل السطر الأول كما بالكود .
Private Sub uuo_Click()
'DoCmd.RunCommand acCmdSaveReco
DoCmd.OpenForm "for_class", acNormal, "", "", , acNormal
End Sub
لم أفهم وين !! ممكن توضح .
تفضل استاذ @محمد احمد لطفى هذا زر أمر لتأكيد الحذف أو التراجع .
Private Sub cmd_delet_Click()
If MsgBox("((هل تريد حذف السجل )) " & " " & DLookup("Building_Name", "OwnerBuildingName_AddNew", "[Building_Name]=sr99"), vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete OwnerBuildingName_AddNew.[Building_Name] FROM OwnerBuildingName_AddNew WHERE ([Building_Name]=sr99)"
DoCmd.SetWarnings True
Me.Requery
MsgBox "تم حذف السجل بنجاح"
Else
Undo
MsgBox "تم التراجع عن حذف السجل"
Me.m1.SetFocus
End If
End Sub
ازريل لوفهمت المثل مارديت هذا الرد أنا بفهمك ......... انا ارسلت برنامج للتعليم ( تعليم الصيد ) أما الرد على البرنامج عاوز برامج جاهز بدون تعب ( السمكة ). بإختصار أما أنت لست طرف ولا موجه إليك ماكتبت .
وعلى فكرة أنا مو من عادتي أرد . لكن وجب التنويه .
لاترد ... لأني مابتابع
استاذنا @gamal gamal إليك مرفق كنت محصله وبدأت أنقح به لصالح محامي صديق أفتحه وأقرأه جيداً وشوف انت محتاج تزود أو تزيل ونحن معك .تحياتي لك .
user : admin , pass : 12345 Or user : mahdi , pass : 1960 Or user : nashaat , pass : 123 معلومات الدخول
Mr_Nashaat.accdb
أخي @abouelhassan يعمل عادي جرب (a) وشوف العداد تحت ولابد تحصل بحقول السجل عن ماكتبته ..........ثم اضف (b) وشوف العداد تحت ولابد تحصل بحقول السجل عن ماكتبته ..........ثم اضف (e)
وشوف العداد تحت ولابد تحصل بحقول السجل عن ماكتبته .......... حتى تصل للكلمة أو الرقم الذي البحث عنه .
الكود به نفس ما بالبحث بطريقة الاستعلام .
تحياتي لك وأنا مهتم جداً بهذه المشاركات النافعة والفعالة خصوصاً من حضرتك .