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

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

بالتوفيق اخي الكريم تحياتي

اخي الكريم هذا ليس طلبك من البداية على كل حال تفضل اخي الكريم البيانات.rar تحياتي

هل جربت المرفق تحياتي

حقل item نوعه نص لذلك يجب تعديل الكود ليكون بالشكل التالي Dim rst As DAO.Recordset Me.SubForm.SetFocus Set rst = Me.SubForm.Form.RecordsetClone rst.FindFirst "[item] ='" & Forms!FormMin!txt_item & "'" Me.SubForm.Form.Bookmark = rst.Bookmark Set rst = Nothing Me.SubForm.Form!Quantity.SetFocus New Microsoft Access Database (2).rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Me.SubForm.SetFocus Set rst = Me.SubForm.Form.RecordsetClone rst.FindFirst "[item] = " & Forms!FormMin!txt_item Me.SubForm.Form.Bookmark = rst.Bookmark Set rst = Nothing Me.SubForm.Form!Quantity.SetFocus وان وجدت صعوبة في التطبيق ارفق مثال تحياتي

الكود يعمل جيدا مع ويندوز 11 + اوفيس 365 تحياتي

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

اضغط على ثم اختار في الاسفل last تحياتي

استخدم دالة dmax تحياتي

تفضل اخي الكريم If Not Len(Me.نص7 & vbNullString) = 0 Then Set rst = Me.RecordsetClone rst.FindFirst "[اسم التلميذ] = '" & Me.نص7 & "'" If rst.NoMatch Then MsgBox "هذا الاسم غير مسجل" Else Me.Bookmark = rst.Bookmark End If Set rst = Nothing End If بحث من خلال اسم التلميذ.rar تحياتي

ولمزيد من الفائدة استخدم الكود التالي لفصل الارقام عن الحروف Public Function Numtext(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then lets2 = lets2 & lets End If Next Numtext = lets2 End Function Debug.Print Numtext(MBSerialNumber) تحياتي

وعليكم السلام ورحمة الله وبكاته تفضل اخي الكريم Public Function MBSerialNumber() As String Dim objs As Object Dim obj As Object Dim WMI As Object Dim sAns As String Set WMI = GetObject("WinMgmts:") Set objs = WMI.InstancesOf("Win32_BaseBoard") For Each obj In objs sAns = sAns & obj.SerialNumber If sAns < objs.Count Then sAns = sAns & "," Next If Right(MBSerialNumber, 1) = "," Then MBSerialNumber = Left(MBSerialNumber, LenB(MBSerialNumber) - 1) MBSerialNumber = sAns End Function Debug.Print MBSerialNumber تحياتي

مرحبا اخي الكريم المشكلة في نموذج SubFrmMaster ولم استطع تحديد المشكلة بالضبط للاستعجال فكل ما فعلته اني انشأت نموذج SubFrmMaster من جديد ولو تلاحظ وجود نموذج SubFrmMaster واخر SubFrmMaster3 القديم تحياتي

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

السلام عليكم بالاضافة الى ما تفضل به استاذنا الفاضل Mossak وله الشكر تفضل اخي الكريم user..date..date.rar تحياتي

وعليكم السلام ورحمة الله زبركاته جرب الكود التالي = Date & " " & #8:00:00 AM# تحياتي

السلام عليكم مرحبا استاذنا الفاضل اعتقد انك تحتاج الى شرط محدد لتنفيذ العملية If Mid$(strValue, 8, 1) = 0 Then Debug.Print " 8 >---->> "; digits(8 - 1) تحياتي

السلام عليكم حمل المرفق اذا كان الويندوز 32 الصقه في المسار التالي C:\WINDOWS\system32\ ثم استخدم الامر التالي من cmd ولا تنسى التشغيل كمسئول regsvr32 "C:\WINDOWS\system32\barcodex.ocx" اذا كان الويندوز 64 الصقه في المسار التالي C:\WINDOWS\SysWOW64\ ثم استخدم الامر التالي من cmd ولا تنسى التشغيل كمسئول regsvr32 "C:\WINDOWS\SysWOW64\barcodex.ocx" barcodex.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub أمر146_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE table1.*, table1.علامة FROM table1 WHERE (((table1.علامة)=True));" DoCmd.SetWarnings True End Sub Private Sub تدقيق144_Click() DoCmd.SetWarnings False If Me.تدقيق144 = True Then DoCmd.RunSQL "UPDATE table1 SET table1.علامة = True;" ElseIf Me.تدقيق144 = False Then DoCmd.RunSQL "UPDATE table1 SET table1.علامة = False;" End If Me.Requery DoCmd.SetWarnings True End Sub حذف سجلات حسب تحديدها.rar تحياتي

نعم يمكن ولكن في حقل التاريخ استخدم التالي كمثال Dim rst As Recordset Set rst = Forms!Main2.Form.Recordset.Clone rst.FindFirst "[تاريخ الازدياد] = #" & Me.[تاريخ الازدياد] & "#" If Not rst.EOF Then Forms!Main2.Form.Bookmark = rst.Bookmark End If Set rst = Nothing تحياتي

وفيك بارك استاذنا الفاضل تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub named_Click() Dim rst As Recordset Set rst = Forms!Main2.Form.Recordset.Clone rst.FindFirst "[الاسم] = '" & Me.named & "'" If Not rst.EOF Then Forms!Main2.Form.Bookmark = rst.Bookmark End If Set rst = Nothing End Sub تلامذ.rar تحياتي

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

السلام عليكم استخدم استعلام تحديث Query1 UPDATE TBLSub SET TBLSub.booksshkr = Nz([booksshkr])+1 WHERE (((TBLSub.booksshkr)<3)); Prog202.rar تحياتي