ابو ياسين المشولي

اتفضل
On Error GoTo Err_أمر24_Click If MsgBox(" هل انت متأكد ؟", _ vbCritical + vbYesNo, _ "تنبيه") = vbNo Then Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.البرنامج.SetFocus End If Exit_أمر24_Click: Exit Sub Err_أمر24_Click: MsgBox Err.Description Resume Exit_أمر24_Click  

مافهمت
test951159 (1).mdb

اعمل شرط في الجدول
تحت الرصيد اكبر من صفر
<0

Between (IIf(Len([Forms]![tabf2]![start] & "")=0;Nz([numx];"0");[Forms]![tabf2]![start])) And (IIf(Len([Forms]![tabf2]![end] & "")=0;Nz([numx];"0");[Forms]![tabf2]![end]))  

كلامك صح
وهذا حسب طلب السائل
If Me.t1.Caption <> BFEBFBFF000406E3 Then MsgBox "يوجد خطاء", vbInformation, "تنبيه" DoCmd.Quit End If  
New Microsoft Access قاعدة بيانات (3) (1).accdb

كلامك صح
وهذا حسب طلب السائل
If Me.t1.Caption <> BFEBFBFF000406E3 Then MsgBox "يوجد خطاء", vbInformation, "تنبيه" DoCmd.Quit End If  
New Microsoft Access قاعدة بيانات (3) (1).accdb

اتغضل
DoCmd.OpenReport "report1", acPreview, , "[تاريخ الترقية الجديد]Between [Forms]![form1]![StartDate] And [Forms]![form1]![EndDate]"  

مشاركة مع عبد اللطيف سلوم
 
سلوم.rar

اتفضل Date()+[نص10]  
 
date.accdb

DoCmd.OpenReport "اسم التقرير", acViewPreview  

هل هذا ماتقصده
Function aboyaseen() DoCmd.OpenForm "FENABLE" End Function  
New Microsoft Access Database.accdb

اتفضل لعله طلبك
If Not IsNumeric(Mobile) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " Cancel = True ElseIf Len(Mobile) <> 11 Then MsgBox " فـضـلاً أدخـل عـشـرة أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' End If  
45.mdb

اظن هذا حسب طلبك
If Not IsNumeric(Tel) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Me.Tel.Undo ElseIf Len(Tel) <> 11 Then MsgBox " فـضـلاً أدخـل احد عـشـر أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Me.Tel.Undo End If  
ex.mdb

الى الامام بارك الله فيك وزادك من علمه

NZ 
تجمع الحقول لو وجد قيها فاضي 
وايرور هي تابع الى اي اف  شرطيه
اعذرني ضعيف بالشرح
بمعنى انهم دوال شرطيه
وهذه غير شرطيه هذ فقط تسمح بالجمع ولو كان الحقل من الحقول فارغ

جرب
DoCmd.SetWarnings False Dim x1 (x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.aa), 0) If x1 = 0 Then "MsgBox "This code is not registered", vbMsgBoxRight + vbCritical, "notes" DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord else MsgBox " This is a registered code", vbMsgBoxRight + vbCritical, "notes" Exit Sub End If  

اخر سجل hrk_sh = Nz(DLast("Price", "HRR", "Nwaha='11'"), 0) اول سجل hrk_sh = Nz(First("Price", "HRR", "Nwaha='11'"), 0)  

بعد اذن اخي ابو عبدالله 
اتفضل هذا طلبك
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Alsnaf WHERE ID_Sanf ='" & Me.txt_2 & "'" & _ "or A2='" & Me.txt_2 & "'") If rs.RecordCount > 0 Then ID_Sanf = rs!ID_Sanf Sanf = rs!Sanf A2 = rs!A2 Else MsgBox "لايوجد رقم" 'Rajmsanf = "" Sanf.SetFocus txt_2.SetFocus ID_Sanf = Null Sanf = Null A2 = Null End If  

تسلم اخي جعفر
وهذا حسب طلب الاخ محمد صلاح
MP3_WAV_Player_SEMO_Pa3x(3).accdb

وهنا برقم التليفون
Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Clients", dbOpenDynaset) rs.FindFirst "Tel = '" & Me!Tel & "'" If Not rs.NoMatch Then rs.Bookmark = rs.Bookmark Me.Societé = rs!Societé Me.Adresse = rs!Adresse Me.Tel = rs!Tel Me.Email = rs!Email Me.nomClien = rs!nomClien Me.Ville = rs!Ville Else 'غير ذلك اي انه لم يجد سجل MsgBox " يـرجـاء الـتـأكـد .... لا يـو جـد زبون بـهـذا الرقم : " & Me.Tel, , " : خـطـاء " End If  

اذا كان رقم الفاتورة بالنموذج الرئيسي بيكون هكذا If MsgBox(" هــل تـريـد حفظ الفاتورة رقـم " & vbCrLf & " ( " & me.[idNo] & " ) ", vbYesNo, " تنبية ") = vbYes Then واذا كان بالفرعي بيكون هكذا If MsgBox(" هــل تـريـد حفظ الفاتورة رقـم " & vbCrLf & " ( " & [forms]![sell]![subform].[form]![idNo] & " ) ", vbYesNo, " تنبية ") = vbYes Then  

شوف هذا لعله يفي بالغرض
تحل الاسم او جزء منه ودخل السنه او جزء منها
 
Ex9-29.accdb

انا مشيت على ملفك الاول كان الشرط الاسم مثل اسم الجدول الاخر
اتفضل التعديل
DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE ntak SET ntak.knaw = ntak.knaw+[Forms]![نموذج1]![end]" & vbCrLf & _ "WHERE (((ntak.esm)=[Forms]![نموذج1]![نص611]));" DoCmd.SetWarnings True  
Microsoft_Access_قاعدة_بيانات_جديد (1).accdb

بارك الله فيك اخي عبداللطيف

افتح الاستعلام بطريقه التصميم
وافتح سكويل وانسخ السكويل
وبعدها اعمل استعلام جديد والصق السكويل
انا استخدم 2010 وما بعرف استيراد 2003 واظن استيراد الاستعلام نفس استيراد الجدول