طريقة البحث بواسطة vba

[الحاتمي1]

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

في المرفقات يوجد مثال نموذج ادخال userID وبعد الخروج من الحقل هذا ارغب في ان يقوم النموذج بالحث في السجلات عن هذا الرقم بحيث اذا كان يوجد له سجل يوم باظهار السجل في الحقول الاخرى واذا لم يجد اي سجل مرتبط بذلك الرقم يقوم بالسماح لي بتعبئة بقية الحقول تمهيدا لحفظها كسجل جديد 

 

 

كيف الطريقة تكرماuserid.accdb

[ابوخليل]

انا لاحظت انك غيرت اسم الحقل في الجدول كان اسمه ID الى userid  وهو موجود في جميع الاكواد الاخرى باسم ID فقمت بتعديله الى ID

تفضل

Private Sub ID_AfterUpdate()
    On Error Resume Next
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim i As Long
    i = Me.ID
    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT * FROM tbltest WHERE tbltest.ID = " & i)
       With rst
        If !ID = i Then
        Me.sname = ![sname]
        Me.sage = ![sage]
        .Close
       Else
      Exit Sub
    End If
    End With
    Me.Refresh
    Set rst = Nothing
    db.Close
    Set db = Nothing
End Sub

اذا الاسم userid يهمك يمكنك التصحيح في الجدول وتعديله في الكود

 

userid2.accdb

[الحاتمي1]

في 6‏/3‏/2023 at 23:09, ابوخليل said:

انا لاحظت انك غيرت اسم الحقل في الجدول كان اسمه ID الى userid  وهو موجود في جميع الاكواد الاخرى باسم ID فقمت بتعديله الى ID

تفضل

Private Sub ID_AfterUpdate()
    On Error Resume Next
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim i As Long
    i = Me.ID
    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT * FROM tbltest WHERE tbltest.ID = " & i)
       With rst
        If !ID = i Then
        Me.sname = ![sname]
        Me.sage = ![sage]
        .Close
       Else
      Exit Sub
    End If
    End With
    Me.Refresh
    Set rst = Nothing
    db.Close
    Set db = Nothing
End Sub

اذا الاسم userid يهمك يمكنك التصحيح في الجدول وتعديله في الكود

 

userid2.accdb 444 kB · 8 downloads

كل الشكر لك اخي 

ابدعت في الكود اخي 

 

تكرما اذا كنت اريد في حال ان السجل غير موجود بالبرقم الذي بحثت عنه 

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

[ابوخليل]

اقتباس

ويفتح لي خصائص اضافة البيانات في نفس النموذج 

لم افهم هذه الجزئية بالضبط لأنها تحتمل اكثر من طريقة تنفيذ

على كل حال عدلت على الاكواد الموجودة بحيث اذا الرقم غير موجود .. يمكن اضافة بيانات جديدة له وحفظها

امل ان تلبي طلبك

userid3.rar