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

السلام عليكم يمكن استخدام دالة DLookup بالشكل التالي اذا كان معيار جلب البيانات رقم =DLookup("[text1]"; "[table]"; "[N] =" & me.N) اذا كان معيار جلب البيانات نص =DLookup("[text1]"; "[table]"; "[N] ='" & me.N & "'") علماً بأن text1 هو المطلوب جلب بياناته N هو المعيار او سيتم جلب البيانات بناءاً عليه مثال =DLookup("[رقم_نجم]"; "[الحادث]"; "[رقم_الحادث] =" & me.رقم_الحادث) تحياتي

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

وعليكم السلام ورحمة الله وبركاته دالة DateAdd اقوم بالمهمة على اكمل وجه تحياتي

تفضل اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته الكود لديك تسخدم -1 ToDate1: DateAdd("d";Nz([NumberOfDays1];1);[Start_Date1])-1 لذلك يعطي نتيجة صحيحة 02/08/2021 وربما تنسيق التاريخ من اعدادات ويندوز سيحل مشكلة 08/02/2021 تحياتي

وعليكم السلام ورحمة الله وبركاته نعم اخي الكريم انا فهمت ذلك منك جيدا الخطوات التي قصدت العمل بها الطريقة الاولى : 1 - سنقوم بعمل التعديلات اللازمة مع كود جديد لعمل ربط بين قاعدة بيانات الخلفية 2 - سنقوم بارسال قاعدة البيانات بعد التعديلات على النماذج الى العميل خالية من الجداول 3 - سنقوم باستخدام قاعدة بيانات الواجهة ( الجديدة ) وقاعدة البيانات التي عند الزبون ستكون هي قاعدة البيانات الخلفية الطريقة الثانية : سنقوم بعمل التعديلات اللازمة خالية من الجداول مع كود جديد لعمل استيراد الجداول من قاعدة بيانات التي عند الزبون تحياتي

وعليكم الشلام ورحمة الله وبركاته تفضل اخي الكريم Me.Table1.Form.FilterOn = False 788.accdb تحياتي

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

بالاضافة الى ما تفضل به اخي واستاذي الفاضل @د.كاف يار وله جزيل الشكر وحسب ما فهمت من الشرح تفضل اخي الكريم Option Compare Database Option Explicit Private Sub Command0_Click() CurrentDb.Execute "UPDATE Table1 SET group_no = Null" CurrentDb.Execute "UPDATE Table1 SET SN = Null" Dim mySQL As String Dim rst As Recordset, rs As Recordset Dim i As Integer, k As Integer, L As Integer 1 On Error GoTo 2 mySQL = "Select * From Table1 ORDER BY stu_case, stu_sex,stu_name " ' Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.Edit rst!SN = i rst.Update rst.MoveNext Next rst.Close: Set rst = Nothing 2 On Error GoTo Err mySQL = "Select * From Table1 WHERE stu_case = 1 ORDER BY stu_case, stu_sex,stu_name " ' Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount For k = 1 To 6 rst.Edit rst!group_no = i rst.Update rst.MoveNext Next Next rst.Close: Set rst = Nothing Call randx Err: Call randx End Sub Sub randx() Dim mySQL As String Dim rst As Recordset, rs As Recordset Dim i As Integer, k As Integer, L As Integer 3 On Error GoTo Err mySQL = "Select * From Table1 WHERE stu_case = 2 ORDER BY SN " ' Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst L = Nz(DMax("[group_no]", "Table1"), 0) + 1 For i = L To rst.RecordCount For k = 1 To 6 rst.Edit rst!group_no = i rst.Update rst.MoveNext Next Next rst.Close: Set rst = Nothing MsgBox "Done", vbInformation, "Officena" Err: End Sub ترقيم1.mdb تحياتي

جرب الكود التالي if Xtotal.value >50 then me.cbo1.Visible = false else me.cbo1.visible = true end if تحياتي

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

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

الصورة المرفقة ليست نفس قاعدة البيانات المرفقة تأكد جدياً من وجود عنصر الصور باسم imgPicture وتأكد من وجود حقل PicFile تحياتي

تفضل اخي الكريم بيانات.accdb تحياتي

وعليكم السلام ورحمة الله وبركاته المشكلة لديك انه كانت هناك مكتبات تعمل في قاعدة البيانات القدية ولم يتم اضافتها الى الجديد على كل حال تفضل هذا الكود البسيط لاضافة الصور ويعمل على 64 و 32 بت ايضاً Dim fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "jpg image", "*.jpg" .Filters.Add "jpeg image", "*.jpeg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) Me.PicFile = fpathz Me.imgPicture.Picture = fpathz End If End With بيانات.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم كود لعمل فلتر للنموذج الفرعي حسب القسم Private Sub نص96_Change() If Me.نص96 = "جميع المستويات" Then Me.RecordSource = "معلومات التلاميذ" Me.t1.Form.FilterOn = False Else Me.RecordSource = "Query1" myCriteria = myCriteria & "(" myCriteria = myCriteria & "[معلومات التلاميذ].[القسم]= '" & Me.نص96 & "'" myCriteria = myCriteria & ")" Me.t1.Form.Filter = myCriteria Me.t1.Form.FilterOn = True End If Me.Requery End Sub المستخدم - Copie.rar تحياتي

وعليكم السلام ورحمة الله وبركاته ضع الكود التالي بحقل الذكور لعام 2010 =iif([الجنس]="ذكر";sum(iif(Year([تاريخ الازدياد])=2010;1;0));0) وضع الكود التالي بحقل الاناث لعام 2010 =iif([الجنس]="أنثى";sum(iif(Year([تاريخ الازدياد])=2010;1;0));0) واكمل باقي الحقول بنفس الطريقة مع تغيير العام 2010 الى العام الذي تريد المستخدم - Copie.rar تحياتي

وعليكم السلام ورحمة الله وبركاته ضع مربع نص في تذييل النموذح وضع به الكود التالي مع تغيير اسماء الحقول =iif(text1="مرتجع بيع";sum(text2);0) تحياتي

سلمت يداك استاذنا الفاضل ولا حرمنا الله من افكارك وعطائك تحياتي

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

تغيير الامتداد ليس لها دور في محتوى الملف جرب اعادة تغيير الامتداد الى txt هل يصبح ملف نصي بالطبع لا تحياتي

حبيبي الغالي ربنا يزيدك ويبارك فيك دمت لاخيك تحياتي

السلام عليكم بالاضافة الى ما تفضل به اخي الحبيب واستاذي @د.كاف يار وله جزيل الشكر تفضل اخي الكريم Option Compare Database Option Explicit Private Sub Command0_Click() CurrentDb.Execute "UPDATE Table1 SET no_group = Null" CurrentDb.Execute "UPDATE Table1 SET no_serial = Null" Dim mySQL As String Dim rst As Recordset, rs As Recordset Dim i As Integer, k As Integer, L As Integer 1 On Error GoTo 2 mySQL = "Select * From Table1 ORDER BY stu_case , stu_sex " ' Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.Edit rst!no_serial = i rst.Update rst.MoveNext Next rst.Close: Set rst = Nothing 2 On Error GoTo Err mySQL = "Select * From Table1 WHERE stu_case = 1 ORDER BY no_serial " ' Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount For k = 1 To 6 rst.Edit rst!no_group = i rst.Update rst.MoveNext Next Next rst.Close: Set rst = Nothing Call randx Err: Call randx End Sub Sub randx() Dim mySQL As String Dim rst As Recordset, rs As Recordset Dim i As Integer, k As Integer, L As Integer 3 On Error GoTo Err mySQL = "Select * From Table1 WHERE stu_case = 2 ORDER BY no_serial " ' Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst L = Nz(DMax("[no_group]", "Table1"), 0) + 1 For i = L To rst.RecordCount For k = 1 To 6 rst.Edit rst!no_group = i rst.Update rst.MoveNext Next Next rst.Close: Set rst = Nothing MsgBox "Done", vbInformation, "Officena" Err: End Sub Database03.rar تحياتي

بالاضافة الى ما تفضل به استاذنا الفاضل @SEMO.Pa3x وله جزيل الشكر انظر نموذج frm_Progress_bar splash.rar تحياتي

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