[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 salah90]

(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"

[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

[hamada salah90]

(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

شكراااااااااااااااااااااااااااااا

---

شكراااااااااااااا