تغيير سجل النموذج عن طريق نموذج اخر VBA

[أبو ليمونه]

السلام عليكم

 vba حاب اتعلم اكثر في الاكسس وخصوصا بكتابة اكواد 

وواجهتني مشكلة اتمنى ان اجد منكم المساعدة

  قمت بتصميم نموذج بسيط فيه حقلين رقم العميل واسم العميل

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

frmLogin وقمت بتصميم نموذج فيه حقل واحد عبارة عن شاشة دخول فيها رقم سري اسمه

وهنا واجهتني المشكلة

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

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

حاولت كتابة الكود لكن لم استطع

Private Sub userpassfinder_AfterUpdate()
    If userpassfinder = "SELECT * FROM tblUsers WHERE UserPass = " & userpassfinder Then
        Forms!frm!fsubUser.RecordSource = "SELECT * FROM tblUsers WHERE UserPass = " & userpassfinder
    Else
        MsgBox "ÇáÑÞã ÇáÓÑí ÛíÑ ÕÍíÍ"
        userpassfinder.SetFocus
    End If
End Sub

  

Database3.zip

طبعا تبويب الصلاحيات سوف يكون مخفي عن المستخدم

    اذا تم الدخول بنجاح frmLogin ايضا احاول ان اخفي نموذج

[أبو ليمونه]

 

لم استطيع آمل منكم المساعدة

هل ما اقوم به صحيح؟ او لا يمكن تنفيذه

Private Sub userpassfinder_AfterUpdate()
Dim SRV As Integer
Dim rs As DAO.Recordset
    If (txtGoTo & vbNullString) = vbNullString Then Exit Sub
    SRV = Nz(DLookup("[UserPass]", "tblUsers", "[UserPass] = " & [userpassfinder]))
    Set rs = Me!fsubUser.Form.RecordsetClone
    rs.FindFirst "[UserPass] = " & SRV
    If rs.NoMatch Then
        MsgBox "wrong Pass", _
               vbOKOnly + vbInformation
    Else
        Me.Bookmark = rs.Bookmark
    End If
    rs.Close
    userpassfinder = Null
End Sub

 

[Shivan Rekany]

اريد اعرف ماذا تريد بالضبط ... اي هدف وراء هذه العملية

[jjafferr]

وعليكم السلام

 

اخي شفان الظاهر انا وانت تم مراسلتنا!!

 

تفضل هذا الكود المعدل:

Dim SRV As Integer
Dim rs As DAO.Recordset
    If ([userpassfinder] & vbNullString) = vbNullString Then Exit Sub
    
    'هذا الامر أبطأ من الامر التالي
    'SRV = DLookup("[UserPass]", "tblUsers", "[UserPass] = " & [userpassfinder])
    'If IsNull(SRV) Then
    '    MsgBox "الرقم السري غير صحيح"
    '    Me.userpassfinder.SetFocus
    '    Exit Sub
    'End If
    
    'هذا الامر اسرع
    SRV = DCount("*", "tblUsers", "[UserPass] = " & [userpassfinder])
    If SRV = 0 Then
        MsgBox "الرقم السري غير صحيح"
        Me.userpassfinder.SetFocus
        Exit Sub
    End If
    
'الحل الاول
    DoCmd.OpenForm "frm"
    Forms!frm.SetFocus
    Forms!frm!fsubUser.SetFocus
    Forms!frm!fsubUser!UserPass.SetFocus
    DoCmd.FindRecord Me.userpassfinder, , , , , , True


'الحل الثاني
'    DoCmd.OpenForm "frm"
'    Set rs = Forms!frm!fsubUser.Form.RecordsetClone
'    rs.FindFirst "[UserPass] = " & Me.userpassfinder
'    If rs.NoMatch Then
'        MsgBox "wrong Pass", _
'               vbOKOnly + vbInformation
'    Else
'        Forms!frm!fsubUser.Form.Bookmark = rs.Bookmark
'    End If
'    rs.Close
'    userpassfinder = Null

 

جعفر

791.Database3.accdb.zip

[أبو ليمونه]

الف الف شكر اخي جعفر

الكود يعمل بجدارة

 

اخي Shivan Rekany

الغرض هو وضع صلاحيات للمستخدمين

 

تحياتي لكم