22-09-15, 04:35 PM
(آخر تعديل لهذه المشاركة : 22-09-15, 04:36 PM {2} بواسطة 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
"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah