[hamada salah90]

كود       استدعاء module في فورم معين

هذا هو كود الموديول اريد استدعاؤه في فورم1

Public Sub user_IMG()

    dim db as database

dim rs2 as recordset

Set db = OpenDatabase("data.mdb")

Set rs2 = db.OpenRecordset("users")

    rs2.Index = ("username")

    rs2.Seek "=", frmLogin.lblUsername.Caption

    '-----------------------------------------------------------------------------------------

    If rs2("add") = 0 Then cmdAdd.Enabled = False: add.Enabled = False

    

    If rs2("edit") = 0 Then cmdEdit.Enabled = False: edi.Enabled = False

    If rs2("delete") = 0 Then cmdDelete.Enabled = False: del.Enabled = False

    If rs2("save") = 0 Then cmdGridView.Enabled = False: sav.Enabled = False

 

   If rs2("search") = 0 Then cmdSearCode.Enabled = False: sear.Enabled = False

   

    If rs2("explore") = 0 Then cmdPrint.Enabled = False: printisal.Enabled = False: isal.Enabled = False

    

If frmAdmin.lblAdmin.Caption = "123" Then

lblUsername.Caption = "Administrator"

ImageUser.Picture = LoadPicture(App.Path & "\images\hamada.jpg")

Else

    lblUsername.Caption = frmLogin.lblUsername.Caption

    '==================================

    ImageUser.Picture = LoadPicture(App.Path & "\images\" & (frmLogin.lblUsername.Caption) & ".jpg")

End If

Exit Sub

End Sub