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

السلام عليكم

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

Database3.rar

تحياتي

3 دقائق مضت, بلال اليامين said:

بارك الله فيك استاذ الفاضل شكرا

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

تحياتي

56 دقائق مضت, بلال اليامين said:

اخي اريد تلوين عند الضغط على الاسم

اخي الكريم هذا ليس طلبك من البداية

في ١٧‏/١٢‏/٢٠٢١ at 15:05, بلال اليامين said:

لدي نموذج بداخله نموذج فرعي اريد عند الضغط على اي اسم يظهر اسم في الحقل الاخضر

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

البيانات.rar

تحياتي

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

في ١٧‏/١٢‏/٢٠٢١ at 15:38, محمد أبوعبدالله said:

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

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

البيانات.rar 194.15 kB · 30 downloads

تحياتي

تحياتي

5 ساعات مضت, Ahmed.IQ said:

لكن لم استطيع معرفة الخلل

حقل 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

وان وجدت صعوبة في التطبيق ارفق مثال

تحياتي

في ١٥‏/١٢‏/٢٠٢١ at 16:53, User user said:

تتغير فى الفورم ولا تتغير فى شريط المهام لاحظ الصورة 

الكود يعمل جيدا مع ويندوز 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

تحياتي

1 دقيقه مضت, بلال اليامين said:

بارك الله فيك استاذ  محمد ابو عبد الله 

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

تحياتي

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

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

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

تحياتي