محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته
في كود استعراض وفتح قاعدة البيانات  اضف الامتداد للفلتر
strFilter = ahtAddFilterItem(strFilter, "Access files (*.accdb, *.mdb)", "*.accde;*.mde") او يمكنك عند استعراض قاعدة البيانات كتابة *.* لعرض جميع الملفات في المجلد
تحياتي

بالاضافة الى ما تفضل به استاذنا jjafferr وله الشكر
اخي الكريم استخدم + بديلا عن And
كالتالي
saves: (Nz(DSum("save";"tabl1";"code=" & [code]);0))+(Nz(DSum("ahmed";"tabl1";"code=" & [code]);0)) AA1.rar
تحياتي

حسنا اخي الكريم
اضغط على كود الصنف النموذج الفرعي سيظهر نموذج الاصناف
اختار الاصناف ثم اضغط موافق وانظر النتيجية
Hmza.rar
تحياتي

وعليكم السلام ورحمة الله وبركاته
تفضل اخي الكريم
If IsNull([txtName]) Then MsgBox "يحب اختيار اسم العميل اولاً", vbInformation, "officena" DoCmd.GoToControl "txtName" Else If IsNull([txtTel]) Then MsgBox "يحب اختياررقم التليفون اولاً", vbInformation, "officena" DoCmd.GoToControl "txtTel" Else If IsNull([txtAddress]) Then MsgBox "يحب اختيار العنوان اولاً", vbInformation, "officena" DoCmd.GoToControl "txtAddress" Else Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT tbl1.*FROM tbl1;") Rs.AddNew Rs("XName") = Me.txtName Rs("XTel") = Me.txtTel Rs("XAddress") = Me.txtAddress Rs.Update Rs.Close MsgBox "تم اضافة البيانات بنجاح ان شاء الله ", vbInformation + vbOKOnly, "officena" DoCmd.Close End If End If End If علمأ بأن حقل كود العميل تلقائي اذن لا يمكن اضافته بهذه الطريقة وستكون اضافته تلقائية
DB_test.rar
تحياتي

وهل الجدول لديك باسم Home
اذا كان كذلك استخدم
UPDATE Home SET Home.[رقم وتاريخ الوثيقة] = [رقم الوثيقة] & "في" & [تاريخ الوثيقة]; تحياتي

وعليكم السلام ورحمة الله وبركاته
تفضل اخي الكريم
Private Sub Form_Open(Cancel As Integer) Dim z0 z0 = DLookup("ID", "المستخدمين", "ID=forms!login!ID") If z0 = 2 Then Me.Command12.Visible = False Else Me.Command12.Visible = True End If End Sub المحل نسخة تجريبية_2.rar
تحياتي

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

السلام عليكم
تفضل اخي الكريم
لعرض التقرير
Dim strWhereCondition As String If Not IsNull(Me.t1) Then strWhereCondition = strWhereCondition & " AND sub='" & Me.t1.Value & "'" End If If Not IsNull(Me.t2) Then strWhereCondition = strWhereCondition & " AND [ÇáãæÏíá]='" & Me.t2.Value & "'" End If If Len(strWhereCondition) > 0 Then strWhereCondition = Mid(strWhereCondition, 6) End If DoCmd.OpenReport "mach", acViewPreview, WhereCondition:=strWhereCondition DoCmd.Close acForm, Me.Name ولطباعة التقرير
Dim strWhereCondition As String If Not IsNull(Me.t1) Then strWhereCondition = strWhereCondition & " AND sub='" & Me.t1.Value & "'" End If If Not IsNull(Me.t2) Then strWhereCondition = strWhereCondition & " AND [ÇáãæÏíá]='" & Me.t2.Value & "'" End If If Len(strWhereCondition) > 0 Then strWhereCondition = Mid(strWhereCondition, 6) End If DoCmd.OpenReport "mach", WhereCondition:=strWhereCondition DoCmd.Close acForm, Me.Name UP-test.rar
تحياتي

تأكد من اعدادات اللغة كما بالصور

 

تحياتي

وعليكم السلام ورحمة الله وبركاته
مرفق ابا غبدالرحمن الله يهديك لتسهيل الموضوع
على كل حال انظر الاستعلام Query1 و Query2
Database1.rar
تحياتي

وعليكم السلام ورحمة الله وبركاته
ضع هذا الكود في وحدة نمطية جديدة
Function fnAutoField() As String Dim strRndNo As String 10: strRndNo = Format((999999999 * Rnd) + 1, "100000000") If DCount("*", "tblItems", "BarcodeItem='" & strRndNo & "'") > 0 Then GoTo 10 fnAutoField = strRndNo End Function وهذا الكود في النموذج يتأكد من وجود قيمة في BarcodeItem  وإلا يضع باركود جديد
If IsNull([BarcodeItem]) Then Me!BarcodeItem = fnAutoField() End If  

تفضل اخي الكريم
نفس الفكرة موجودة في الموضوع التالي
تحياتي

تفضل اخي الكريم
تعديل.rar
تحياتي

المشكلة قي انك تضع القيمة الافتراضية لحقل "عدد"
=[Forms]![Names Record]![رقم الملف] والصحيح ان تكون
=[Forms]![Names Record]![عدد] sss.rar
تحياتي

وعليكم السلام ورحمة الله وبركاته
تفضل اخي الريم
If Nz([X].[Form]![Id], 0) = 0 then MsgBox "النموذج الفرعي فارغ" end If تحياتي

وعليكم السلام ورحمة الله وبركاته
جرب الكود التالي
Private Sub Form_Open(Cancel As Integer) Dim z0 z0 = DLookup("HIDENX1", "TBsystem") If z0 = -1 Then x1.Visible = True Else If z0 = 0 Then x1.Visible = False End If End If End Sub hid.rar
تحياتي

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

السلام عليكم
مرحبا اخي الكريم
بدايةً : نموذج البحث يبجث في حميع الحقول وانت تريد اذا لم يتم العثور على نتائج يضيف القيمة ...
حسناً ماذا لو بحثت عن الفصل او العمر وكان هذا الرقم غير موجود هل سيضفيه ؟
لا بد ان تراعي هذه الجزئية جيداً
ثانياً : عند الاضافة فلن يتم اضافة باقي الحقول كالعمر والفصل وهذه الجزئية لا بد ان تراعي جيداً
واليك اضافة القيمة الموجودة في مربع البحث في حقل الاسم
Private Sub xxx_AfterUpdate() If Me.student.Form!txtCount > 0 Then Me.student.Requery Else mySQL = "INSERT INTO tbl_name(student_name) VALUES('" mySQL = mySQL & Me.xxx & "');" CurrentDb.Execute mySQL Me.student.Requery End If End Sub مدرسه.rar
تحياتي

وعليكم السلام ورحمة الله وبركاته
تفضل اخ الكريم
Private Sub id_clreck_NotInList(NewData As String, Response As Integer) MsgBox "غير مسجل", vbCritical, "officena" DoCmd.CancelEvent Me.Undo Response = acDataErrContinue End Sub  
Private Sub id_clreck_Click() Me.num_clreck = Nz(DLookup("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 End Sub TIME.rar
تحياتي

وعليكم السلام ورحمة الله وبركاته
تفضل اخي الكريم
جرب الحل التالي
On Error GoTo Err: Dim mySQL As String Dim rst As Recordset Dim i As Double, J As Double If IsNull([cbo_saf]) Then MsgBox "اختر الصف اولا", vbCritical, "اوفيسنا" Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE emthan_tbl_bianat SET emthan_tbl_bianat.lagna = 0 WHERE (((emthan_tbl_bianat.saf)=[forms]![frm_golos_sry]![cbo_saf]));" DoCmd.SetWarnings True mySQL = "Select * From emthan_tbl_bianat" mySQL = mySQL & " WHERE saf ='" & Me.cbo_saf & "'" mySQL = mySQL & " ORDER BY golos1" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For J = 1 To Me.count_legan For i = 1 To Me.kk rst.Edit rst![lagna] = J rst.Update rst.MoveNext Next Next Me.Requery End If Err: If Err.Number = 3121 Then Else End If توزيع اللجان علي الطلبة.rar
تحياتي

يمكن وضع القيمة الافتراضية للحقل
=Date()-1  
تحياتي

تفضل اخي الكريم
Private Sub city_NotInList(NewData As String, Response As Integer) Dim ctl As Control Dim strSQL As String Set ctl = Me!city If MsgBox(" اسم المدينة" & " / " & _ Me.city.Text & " / ليس ضمن القائمة هل تريد إضافته ", _ vbOKCancel, "officena") = vbOK Then Response = acDataErrAdded strSQL = "INSERT INTO tbl_city(city) VALUES('" strSQL = strSQL & NewData & "');" CurrentDb.Execute strSQL MsgBox "تمت الاضافة ", , "officena" Else Response = acDataErrContinue ctl.Undo End If End Sub school.rar
تحياتي

وعليكم السلام ورحمة الله وبركاته
تفضل اخي الكريم
تخياتي

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

 
ايضا واختصارا لعملية كثيرة وانشاء جدول وكتابة اكود يمكن عرض InputBox وتحديد كلمة سر لتنفيذ العملية
Private Sub Command0_Click() If InputBox("أدخل الكلمة السرية ", "كلمة سر مطلوبة") <> "123" Then MsgBox " كلمة المرور غير صحيحة", vbInformation, "officena" Else Application.SetOption "Auto compact", True MsgBox " سيتم ضغط واصلاح قاعدة البيانات عند اغلاق البرنامج", vbInformation, "officena" End If End Sub Private Sub Command1_Click() If InputBox("أدخل الكلمة السرية ", "كلمة سر مطلوبة") <> "123" Then MsgBox " كلمة المرور غير صحيحة", vbInformation, "officena" Else Application.SetOption "Auto compact", False MsgBox " تم الغاء ضغط واصلاح قاعدة البيانات عند اغلاق البرنامج", vbInformation, "officena" End If End Sub db9.rar
تحياتي

تفضل اخي الكريم
__f_absent .rar
تحياتي