كود استدعاء 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
السلام عليكم
في حدث الفورم لود
Call user_IMG
(22-09-15, 09:47 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم
في حدث الفورم لود
Call user_IMG
استاذ امير وحشتنا والله
lblUsername.Caption = frmLogin.lblUsername.Caption
اريد جعل متغير في هذا الكود
وهذا المتغير X يعبر عن اسم الفورم
فيصبح
X.lblUsername.Caption = frmLogin.lblUsername.Caption
حيث ان X = "frmMain"
أهلا أخي الكريم , إذا كان المتغير X دائماً تكون قيمتة frmMain فلا داعي له تستطيع وضع إسم الفورم frmMain بدلاً عنه , أما إذا كانت قيمته متغيره يعني ممكن تكون قيمته إسم فورم آخر , فعليك بإضافة باراميتر للإجراء بهذا الشكل :
كود :
Public Sub user_IMG(X as Form)
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
X.lblUsername.Caption = frmLogin.lblUsername.Caption
'==================================
ImageUser.Picture = LoadPicture(App.Path & "\images\" & (frmLogin.lblUsername.Caption) & ".jpg")
End If
Exit Sub
End Sub
(23-09-15, 12:13 AM)Ahmed_Mansoor كتب : [ -> ]أهلا أخي الكريم , إذا كان المتغير X دائماً تكون قيمتة frmMain فلا داعي له تستطيع وضع إسم الفورم frmMain بدلاً عنه , أما إذا كانت قيمته متغيره يعني ممكن تكون قيمته إسم فورم آخر , فعليك بإضافة باراميتر للإجراء بهذا الشكل :
كود :
Public Sub user_IMG(X as Form)
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
X.lblUsername.Caption = frmLogin.lblUsername.Caption
'==================================
ImageUser.Picture = LoadPicture(App.Path & "\images\" & (frmLogin.lblUsername.Caption) & ".jpg")
End If
Exit Sub
End Sub
شكراااااااااااااااااااااااااااااا
شكراااااااااااااا