تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] مشكلة في الربط بين الموديول Module وبين الفورم form1
#1
السلام على من اتبع الهدى
أحبابي فى الله



عرض المشكلة:

أواجة مشكلة في الربط بين الموديول والفورم في مثالى

المشكلة تكمن في أنه عندما قمت باستدعاء 
Module
 الموديول في الفورم 

لم يستطيع البرنامج التعرف على الريكورد سيت الموجودة بالموديول


أدوات مساعدة لحل المشكلة:

هذه صورة للمشكلة

المثال موجود بالمرفقات


الملفات المرفقة
.zip   Sample44.zip (الحجم : 66.44 ك ب / التحميلات : 66)
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
'----------------------------------------------------
'
----------------------------------------------------
Public 
db As Database
'----------------------
Public rsUsers As Recordset
Public rsClient As Recordset
Public rsClientTests As Recordset
Public rsPricelist As Recordset
Public rsDisc As Recordset
Public rsOrders As Recordset
Public rsPaid As Recordset
Public rsProfits As Recordset
Public rsSafe As Recordset
'
----------------------
Public 
rsBara As Recordset
Public rsCBC As Recordset
Public rsChem As Recordset
Public rsCult As Recordset
Public rsESR As Recordset
Public rsFemHor As Recordset
Public rsHeam As Recordset
Public rsHore As Recordset
Public rsImm As Recordset
Public rsKF As Recordset
Public rsLF As Recordset
Public rsLipid As Recordset
Public rsMalHor As Recordset
Public rsMicro As Recordset
Public rsPath As Recordset
Public rsPCR As Recordset
Public rsPreg As Recordset
Public rsPTT As Recordset
Public rsSem As Recordset
Public rsSero As Recordset
Public rsStool As Recordset
Public rsSugar As Recordset
Public rsTumor As Recordset
Public rsUrine As Recordset
Public rsVirology As Recordset
Public rsWidal As Recordset
Public rsThyroid As Recordset
'--------------------------
Public dbADODB As New adodb.Connection
'
--------------------------
Public 
rsUsers2 As New adodb.Recordset
Public rsClient2 As New adodb.Recordset
Public rsClientTests2 As New adodb.Recordset
Public rsPricelist2 As New adodb.Recordset
Public rsDisc2 As New adodb.Recordset
Public rsOrders2 As New adodb.Recordset
Public rsPaid2 As New adodb.Recordset
Public rsProfits2 As New adodb.Recordset
Public rsSafe2 As New adodb.Recordset
'--------------------------
Public rsBara2 As New adodb.Recordset
Public rsCBC2 As New adodb.Recordset
Public rsChem2 As New adodb.Recordset
Public rsCult2 As New adodb.Recordset
Public rsESR2 As New adodb.Recordset
Public rsFemHor2 As New adodb.Recordset
Public rsHeam2 As New adodb.Recordset
Public rsHore2 As New adodb.Recordset
Public rsImm2 As New adodb.Recordset
Public rsKF2 As New adodb.Recordset
Public rsLF2 As New adodb.Recordset
Public rsLipid2 As New adodb.Recordset
Public rsMalHor2 As New adodb.Recordset
Public rsMicro2 As New adodb.Recordset
Public rsPath2 As New adodb.Recordset
Public rsPCR2 As New adodb.Recordset
Public rsPreg2 As New adodb.Recordset
Public rsPTT2 As New adodb.Recordset
Public rsSem2 As New adodb.Recordset
Public rsSero2 As New adodb.Recordset
Public rsStool2 As New adodb.Recordset
Public rsSugar2 As New adodb.Recordset
Public rsTumor2 As New adodb.Recordset
Public rsUrine2 As New adodb.Recordset
Public rsVirology2 As New adodb.Recordset
Public rsWidal2 As New adodb.Recordset
Public rsThyroid2 As New adodb.Recordset
'
-------------------------------
Public 
SQl As String
    
Public sFile As String
    
Public objWord As Word.Application
    
Public objDocContent As Word.Range
'----------------------------------------------------
Public Sub Connect_All_Rs()
On Error Resume Next
Set db = OpenDatabase("data.mdb")
Set rsUsers = db.OpenRecordset("users")
Set rsClient = db.OpenRecordset("client")
Set rsClientTests = db.OpenRecordset("clientTests")
Set rsPricelist = db.OpenRecordset("pricelist")
Set rsDisc = db.OpenRecordset("Disc")
Set rsOrders = db.OpenRecordset("Orders")
Set rsPaid = db.OpenRecordset("paid")
Set rsProfits = db.OpenRecordset("profits")
Set rsSafe = db.OpenRecordset("Safe")
'
=========================
Set rsBara db.OpenRecordset("Barasitology")
Set rsCBC db.OpenRecordset("CBC")
Set rsChem db.OpenRecordset("Chemistry")
Set rsCult db.OpenRecordset("Cultures")
Set rsESR db.OpenRecordset("ESR")
Set rsFemHor db.OpenRecordset("FemaleHor")
Set rsHeam db.OpenRecordset("Heamatology")
Set rsHore db.OpenRecordset("Horemones")
Set rsImm db.OpenRecordset("Immunology")
Set rsKF db.OpenRecordset("KF")
Set rsLF db.OpenRecordset("LF")
Set rsLipid db.OpenRecordset("Lipid")
Set rsMalHor db.OpenRecordset("MaleHor")
Set rsMicro db.OpenRecordset("Microbiology")
Set rsPath db.OpenRecordset("Pathology")
Set rsPCR db.OpenRecordset("PCR")
Set rsPreg db.OpenRecordset("Pregnant")
Set rsPTT db.OpenRecordset("PTT")
Set rsSem db.OpenRecordset("Semen")
Set rsSero db.OpenRecordset("Serology")
Set rsStool db.OpenRecordset("stool")
Set rsSugar db.OpenRecordset("Suger")
Set rsTumor db.OpenRecordset("Tumor")
Set rsUrine db.OpenRecordset("urine")
Set rsVirology db.OpenRecordset("Virology")
Set rsWidal db.OpenRecordset("Widal")
Set rsThyroid db.OpenRecordset("Thyroid")
'=========================
'
=========================
If 
dbADODB.State adStateOpen Then dbADODB.Close
dbADODB
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" App.Path "\data.mdb" ";"
'=========================
'
=========================
'=========================
rsBara2.Open "select * from Barasitology ", dbADODB, adOpenKeyset, adLockOptimistic
rsCBC2.Open "select * from CBC ", dbADODB, adOpenKeyset, adLockOptimistic
rsChem2.Open "select * from Chemistry ", dbADODB, adOpenKeyset, adLockOptimistic
rsCult2.Open "select * from Cultures ", dbADODB, adOpenKeyset, adLockOptimistic
rsESR2.Open "select * from ESR ", dbADODB, adOpenKeyset, adLockOptimistic
rsFemHor2.Open "select * from FemaleHor ", dbADODB, adOpenKeyset, adLockOptimistic
rsHeam2.Open "select * from Heamatology ", dbADODB, adOpenKeyset, adLockOptimistic
rsHore2.Open "select * from Horemones ", dbADODB, adOpenKeyset, adLockOptimistic
rsImm2.Open "select * from Immunology ", dbADODB, adOpenKeyset, adLockOptimistic
rsKF2.Open "select * from KF ", dbADODB, adOpenKeyset, adLockOptimistic
rsLF2.Open "select * from LF ", dbADODB, adOpenKeyset, adLockOptimistic
rsLipid2.Open "select * from Lipid ", dbADODB, adOpenKeyset, adLockOptimistic
rsMalHor2.Open "select * from MaleHor ", dbADODB, adOpenKeyset, adLockOptimistic
rsMicro2.Open "select * from Microbiology ", dbADODB, adOpenKeyset, adLockOptimistic
rsPath2.Open "select * from Pathology ", dbADODB, adOpenKeyset, adLockOptimistic
rsPCR2.Open "select * from PCR ", dbADODB, adOpenKeyset, adLockOptimistic
rsPreg2.Open "select * from Pregnant ", dbADODB, adOpenKeyset, adLockOptimistic
rsPTT2.Open "select * from PTT ", dbADODB, adOpenKeyset, adLockOptimistic
rsSem2.Open "select * from Semen ", dbADODB, adOpenKeyset, adLockOptimistic
rsSero2.Open "select * from Serology ", dbADODB, adOpenKeyset, adLockOptimistic
rsStool2.Open "select * from stool ", dbADODB, adOpenKeyset, adLockOptimistic
rsSugar2.Open "select * from Suger ", dbADODB, adOpenKeyset, adLockOptimistic
rsTumor2.Open "select * from Tumor ", dbADODB, adOpenKeyset, adLockOptimistic
rsUrine2.Open "select * from urine ", dbADODB, adOpenKeyset, adLockOptimistic
rsVirology2.Open "select * from Virology ", dbADODB, adOpenKeyset, adLockOptimistic
rsWidal2.Open "select * from Widal ", dbADODB, adOpenKeyset, adLockOptimistic
rsThyroid2.Open "select * from Thyroid ", dbADODB, adOpenKeyset, adLockOptimistic
'
=========================
'=========================
rsUsers2.Open "select * from users ", dbADODB, adOpenKeyset, adLockOptimistic
rsClient2.Open "select * from client ", dbADODB, adOpenKeyset, adLockOptimistic
rsClientTests2.Open "select * from clientTests ", dbADODB, adOpenKeyset, adLockOptimistic
rsPricelist2.Open "select * from pricelist ", dbADODB, adOpenKeyset, adLockOptimistic
rsDisc2.Open "select * from Disc ", dbADODB, adOpenKeyset, adLockOptimistic
rsOrders2.Open "select * from Orders ", dbADODB, adOpenKeyset, adLockOptimistic
rsPaid2.Open "select * from paid ", dbADODB, adOpenKeyset, adLockOptimistic
rsProfits2.Open "select * from profits ", dbADODB, adOpenKeyset, adLockOptimistic
rsSafe2.Open "select * from Safe ", dbADODB, adOpenKeyset, adLockOptimistic
rsThyroid2.Open "select * from Thyroid ", dbADODB, adOpenKeyset, adLockOptimistic
'
=========================
'=========================
dbADODB.Provider = "Microsoft.JET.OLEDB.4.0;"
dbADODB.Open App.Path & "\data.mdb"
'
=========================
'=========================
'
=========================
rsBara2.Open "[Barasitology]"dbADODBadOpenStaticadLockReadOnly
rsCBC2
.Open "[CBC]"dbADODBadOpenStaticadLockReadOnly
rsChem2
.Open "[Chemistry]"dbADODBadOpenStaticadLockReadOnly
rsCult2
.Open "[Cultures]"dbADODBadOpenStaticadLockReadOnly
rsESR2
.Open "[ESR]"dbADODBadOpenStaticadLockReadOnly
rsFemHor2
.Open "[FemaleHor]"dbADODBadOpenStaticadLockReadOnly
rsHeam2
.Open "[Heamatology]"dbADODBadOpenStaticadLockReadOnly
rsHore2
.Open "[Horemones]"dbADODBadOpenStaticadLockReadOnly
rsImm2
.Open "[Immunology]"dbADODBadOpenStaticadLockReadOnly
rsKF2
.Open "[KF]"dbADODBadOpenStaticadLockReadOnly
rsLF2
.Open "[LF]"dbADODBadOpenStaticadLockReadOnly
rsLipid2
.Open "[Lipid]"dbADODBadOpenStaticadLockReadOnly
rsMalHor2
.Open "[MaleHor]"dbADODBadOpenStaticadLockReadOnly
rsMicro2
.Open "[Microbiology]"dbADODBadOpenStaticadLockReadOnly
rsPath2
.Open "[Pathology]"dbADODBadOpenStaticadLockReadOnly
rsPCR2
.Open "[PCR]"dbADODBadOpenStaticadLockReadOnly
rsPreg2
.Open "[Pregnant]"dbADODBadOpenStaticadLockReadOnly
rsPTT2
.Open "[PTT]"dbADODBadOpenStaticadLockReadOnly
rsSem2
.Open "[Semen]"dbADODBadOpenStaticadLockReadOnly
rsSero2
.Open "[Serology]"dbADODBadOpenStaticadLockReadOnly
rsStool2
.Open "[stool]"dbADODBadOpenStaticadLockReadOnly
rsSugar2
.Open "[Suger]"dbADODBadOpenStaticadLockReadOnly
rsTumor2
.Open "[Tumor]"dbADODBadOpenStaticadLockReadOnly
rsUrine2
.Open "[urine]"dbADODBadOpenStaticadLockReadOnly
rsVirology2
.Open "[Virology]"dbADODBadOpenStaticadLockReadOnly
rsWidal2
.Open "[Widal]"dbADODBadOpenStaticadLockReadOnly
rsThyroid2
.Open "[Thyroid]"dbADODBadOpenStaticadLockReadOnly
'=========================
'
=========================
rsUsers2.Open "[users]"dbADODBadOpenStaticadLockReadOnly
rsClient2
.Open "[client]"dbADODBadOpenStaticadLockReadOnly
rsClientTests2
.Open "[clientTests]"dbADODBadOpenStaticadLockReadOnly
rsPricelist2
.Open "[pricelist]"dbADODBadOpenStaticadLockReadOnly
rsDisc2
.Open "[Disc]"dbADODBadOpenStaticadLockReadOnly
rsOrders2
.Open "[Orders]"dbADODBadOpenStaticadLockReadOnly
rsPaid2
.Open "[paid]"dbADODBadOpenStaticadLockReadOnly
rsProfits2
.Open "[profits]"dbADODBadOpenStaticadLockReadOnly
rsSafe2
.Open "[Safe]"dbADODBadOpenStaticadLockReadOnly
'=========================
'
=========================
End Sub 

لما تصرح عن متغير تستخدمه خارجة الموديول استخدم public مش Dim
:
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: hamada salah90 , Ahmed_Mansoor
#3
(29-09-15, 06:30 PM)أبو عمر كتب :
PHP كود :
'----------------------------------------------------
'
----------------------------------------------------
Public 
db As Database
'----------------------
Public rsUsers As Recordset
Public rsClient As Recordset
Public rsClientTests As Recordset
Public rsPricelist As Recordset
Public rsDisc As Recordset
Public rsOrders As Recordset
Public rsPaid As Recordset
Public rsProfits As Recordset
Public rsSafe As Recordset
'
----------------------
Public 
rsBara As Recordset
Public rsCBC As Recordset
Public rsChem As Recordset
Public rsCult As Recordset
Public rsESR As Recordset
Public rsFemHor As Recordset
Public rsHeam As Recordset
Public rsHore As Recordset
Public rsImm As Recordset
Public rsKF As Recordset
Public rsLF As Recordset
Public rsLipid As Recordset
Public rsMalHor As Recordset
Public rsMicro As Recordset
Public rsPath As Recordset
Public rsPCR As Recordset
Public rsPreg As Recordset
Public rsPTT As Recordset
Public rsSem As Recordset
Public rsSero As Recordset
Public rsStool As Recordset
Public rsSugar As Recordset
Public rsTumor As Recordset
Public rsUrine As Recordset
Public rsVirology As Recordset
Public rsWidal As Recordset
Public rsThyroid As Recordset
'--------------------------
Public dbADODB As New adodb.Connection
'
--------------------------
Public 
rsUsers2 As New adodb.Recordset
Public rsClient2 As New adodb.Recordset
Public rsClientTests2 As New adodb.Recordset
Public rsPricelist2 As New adodb.Recordset
Public rsDisc2 As New adodb.Recordset
Public rsOrders2 As New adodb.Recordset
Public rsPaid2 As New adodb.Recordset
Public rsProfits2 As New adodb.Recordset
Public rsSafe2 As New adodb.Recordset
'--------------------------
Public rsBara2 As New adodb.Recordset
Public rsCBC2 As New adodb.Recordset
Public rsChem2 As New adodb.Recordset
Public rsCult2 As New adodb.Recordset
Public rsESR2 As New adodb.Recordset
Public rsFemHor2 As New adodb.Recordset
Public rsHeam2 As New adodb.Recordset
Public rsHore2 As New adodb.Recordset
Public rsImm2 As New adodb.Recordset
Public rsKF2 As New adodb.Recordset
Public rsLF2 As New adodb.Recordset
Public rsLipid2 As New adodb.Recordset
Public rsMalHor2 As New adodb.Recordset
Public rsMicro2 As New adodb.Recordset
Public rsPath2 As New adodb.Recordset
Public rsPCR2 As New adodb.Recordset
Public rsPreg2 As New adodb.Recordset
Public rsPTT2 As New adodb.Recordset
Public rsSem2 As New adodb.Recordset
Public rsSero2 As New adodb.Recordset
Public rsStool2 As New adodb.Recordset
Public rsSugar2 As New adodb.Recordset
Public rsTumor2 As New adodb.Recordset
Public rsUrine2 As New adodb.Recordset
Public rsVirology2 As New adodb.Recordset
Public rsWidal2 As New adodb.Recordset
Public rsThyroid2 As New adodb.Recordset
'
-------------------------------
Public 
SQl As String
    
Public sFile As String
    
Public objWord As Word.Application
    
Public objDocContent As Word.Range
'----------------------------------------------------
Public Sub Connect_All_Rs()
On Error Resume Next
Set db = OpenDatabase("data.mdb")
Set rsUsers = db.OpenRecordset("users")
Set rsClient = db.OpenRecordset("client")
Set rsClientTests = db.OpenRecordset("clientTests")
Set rsPricelist = db.OpenRecordset("pricelist")
Set rsDisc = db.OpenRecordset("Disc")
Set rsOrders = db.OpenRecordset("Orders")
Set rsPaid = db.OpenRecordset("paid")
Set rsProfits = db.OpenRecordset("profits")
Set rsSafe = db.OpenRecordset("Safe")
'
=========================
Set rsBara db.OpenRecordset("Barasitology")
Set rsCBC db.OpenRecordset("CBC")
Set rsChem db.OpenRecordset("Chemistry")
Set rsCult db.OpenRecordset("Cultures")
Set rsESR db.OpenRecordset("ESR")
Set rsFemHor db.OpenRecordset("FemaleHor")
Set rsHeam db.OpenRecordset("Heamatology")
Set rsHore db.OpenRecordset("Horemones")
Set rsImm db.OpenRecordset("Immunology")
Set rsKF db.OpenRecordset("KF")
Set rsLF db.OpenRecordset("LF")
Set rsLipid db.OpenRecordset("Lipid")
Set rsMalHor db.OpenRecordset("MaleHor")
Set rsMicro db.OpenRecordset("Microbiology")
Set rsPath db.OpenRecordset("Pathology")
Set rsPCR db.OpenRecordset("PCR")
Set rsPreg db.OpenRecordset("Pregnant")
Set rsPTT db.OpenRecordset("PTT")
Set rsSem db.OpenRecordset("Semen")
Set rsSero db.OpenRecordset("Serology")
Set rsStool db.OpenRecordset("stool")
Set rsSugar db.OpenRecordset("Suger")
Set rsTumor db.OpenRecordset("Tumor")
Set rsUrine db.OpenRecordset("urine")
Set rsVirology db.OpenRecordset("Virology")
Set rsWidal db.OpenRecordset("Widal")
Set rsThyroid db.OpenRecordset("Thyroid")
'=========================
'
=========================
If 
dbADODB.State adStateOpen Then dbADODB.Close
dbADODB
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" App.Path "\data.mdb" ";"
'=========================
'
=========================
'=========================
rsBara2.Open "select * from Barasitology ", dbADODB, adOpenKeyset, adLockOptimistic
rsCBC2.Open "select * from CBC ", dbADODB, adOpenKeyset, adLockOptimistic
rsChem2.Open "select * from Chemistry ", dbADODB, adOpenKeyset, adLockOptimistic
rsCult2.Open "select * from Cultures ", dbADODB, adOpenKeyset, adLockOptimistic
rsESR2.Open "select * from ESR ", dbADODB, adOpenKeyset, adLockOptimistic
rsFemHor2.Open "select * from FemaleHor ", dbADODB, adOpenKeyset, adLockOptimistic
rsHeam2.Open "select * from Heamatology ", dbADODB, adOpenKeyset, adLockOptimistic
rsHore2.Open "select * from Horemones ", dbADODB, adOpenKeyset, adLockOptimistic
rsImm2.Open "select * from Immunology ", dbADODB, adOpenKeyset, adLockOptimistic
rsKF2.Open "select * from KF ", dbADODB, adOpenKeyset, adLockOptimistic
rsLF2.Open "select * from LF ", dbADODB, adOpenKeyset, adLockOptimistic
rsLipid2.Open "select * from Lipid ", dbADODB, adOpenKeyset, adLockOptimistic
rsMalHor2.Open "select * from MaleHor ", dbADODB, adOpenKeyset, adLockOptimistic
rsMicro2.Open "select * from Microbiology ", dbADODB, adOpenKeyset, adLockOptimistic
rsPath2.Open "select * from Pathology ", dbADODB, adOpenKeyset, adLockOptimistic
rsPCR2.Open "select * from PCR ", dbADODB, adOpenKeyset, adLockOptimistic
rsPreg2.Open "select * from Pregnant ", dbADODB, adOpenKeyset, adLockOptimistic
rsPTT2.Open "select * from PTT ", dbADODB, adOpenKeyset, adLockOptimistic
rsSem2.Open "select * from Semen ", dbADODB, adOpenKeyset, adLockOptimistic
rsSero2.Open "select * from Serology ", dbADODB, adOpenKeyset, adLockOptimistic
rsStool2.Open "select * from stool ", dbADODB, adOpenKeyset, adLockOptimistic
rsSugar2.Open "select * from Suger ", dbADODB, adOpenKeyset, adLockOptimistic
rsTumor2.Open "select * from Tumor ", dbADODB, adOpenKeyset, adLockOptimistic
rsUrine2.Open "select * from urine ", dbADODB, adOpenKeyset, adLockOptimistic
rsVirology2.Open "select * from Virology ", dbADODB, adOpenKeyset, adLockOptimistic
rsWidal2.Open "select * from Widal ", dbADODB, adOpenKeyset, adLockOptimistic
rsThyroid2.Open "select * from Thyroid ", dbADODB, adOpenKeyset, adLockOptimistic
'
=========================
'=========================
rsUsers2.Open "select * from users ", dbADODB, adOpenKeyset, adLockOptimistic
rsClient2.Open "select * from client ", dbADODB, adOpenKeyset, adLockOptimistic
rsClientTests2.Open "select * from clientTests ", dbADODB, adOpenKeyset, adLockOptimistic
rsPricelist2.Open "select * from pricelist ", dbADODB, adOpenKeyset, adLockOptimistic
rsDisc2.Open "select * from Disc ", dbADODB, adOpenKeyset, adLockOptimistic
rsOrders2.Open "select * from Orders ", dbADODB, adOpenKeyset, adLockOptimistic
rsPaid2.Open "select * from paid ", dbADODB, adOpenKeyset, adLockOptimistic
rsProfits2.Open "select * from profits ", dbADODB, adOpenKeyset, adLockOptimistic
rsSafe2.Open "select * from Safe ", dbADODB, adOpenKeyset, adLockOptimistic
rsThyroid2.Open "select * from Thyroid ", dbADODB, adOpenKeyset, adLockOptimistic
'
=========================
'=========================
dbADODB.Provider = "Microsoft.JET.OLEDB.4.0;"
dbADODB.Open App.Path & "\data.mdb"
'
=========================
'=========================
'
=========================
rsBara2.Open "[Barasitology]"dbADODBadOpenStaticadLockReadOnly
rsCBC2
.Open "[CBC]"dbADODBadOpenStaticadLockReadOnly
rsChem2
.Open "[Chemistry]"dbADODBadOpenStaticadLockReadOnly
rsCult2
.Open "[Cultures]"dbADODBadOpenStaticadLockReadOnly
rsESR2
.Open "[ESR]"dbADODBadOpenStaticadLockReadOnly
rsFemHor2
.Open "[FemaleHor]"dbADODBadOpenStaticadLockReadOnly
rsHeam2
.Open "[Heamatology]"dbADODBadOpenStaticadLockReadOnly
rsHore2
.Open "[Horemones]"dbADODBadOpenStaticadLockReadOnly
rsImm2
.Open "[Immunology]"dbADODBadOpenStaticadLockReadOnly
rsKF2
.Open "[KF]"dbADODBadOpenStaticadLockReadOnly
rsLF2
.Open "[LF]"dbADODBadOpenStaticadLockReadOnly
rsLipid2
.Open "[Lipid]"dbADODBadOpenStaticadLockReadOnly
rsMalHor2
.Open "[MaleHor]"dbADODBadOpenStaticadLockReadOnly
rsMicro2
.Open "[Microbiology]"dbADODBadOpenStaticadLockReadOnly
rsPath2
.Open "[Pathology]"dbADODBadOpenStaticadLockReadOnly
rsPCR2
.Open "[PCR]"dbADODBadOpenStaticadLockReadOnly
rsPreg2
.Open "[Pregnant]"dbADODBadOpenStaticadLockReadOnly
rsPTT2
.Open "[PTT]"dbADODBadOpenStaticadLockReadOnly
rsSem2
.Open "[Semen]"dbADODBadOpenStaticadLockReadOnly
rsSero2
.Open "[Serology]"dbADODBadOpenStaticadLockReadOnly
rsStool2
.Open "[stool]"dbADODBadOpenStaticadLockReadOnly
rsSugar2
.Open "[Suger]"dbADODBadOpenStaticadLockReadOnly
rsTumor2
.Open "[Tumor]"dbADODBadOpenStaticadLockReadOnly
rsUrine2
.Open "[urine]"dbADODBadOpenStaticadLockReadOnly
rsVirology2
.Open "[Virology]"dbADODBadOpenStaticadLockReadOnly
rsWidal2
.Open "[Widal]"dbADODBadOpenStaticadLockReadOnly
rsThyroid2
.Open "[Thyroid]"dbADODBadOpenStaticadLockReadOnly
'=========================
'
=========================
rsUsers2.Open "[users]"dbADODBadOpenStaticadLockReadOnly
rsClient2
.Open "[client]"dbADODBadOpenStaticadLockReadOnly
rsClientTests2
.Open "[clientTests]"dbADODBadOpenStaticadLockReadOnly
rsPricelist2
.Open "[pricelist]"dbADODBadOpenStaticadLockReadOnly
rsDisc2
.Open "[Disc]"dbADODBadOpenStaticadLockReadOnly
rsOrders2
.Open "[Orders]"dbADODBadOpenStaticadLockReadOnly
rsPaid2
.Open "[paid]"dbADODBadOpenStaticadLockReadOnly
rsProfits2
.Open "[profits]"dbADODBadOpenStaticadLockReadOnly
rsSafe2
.Open "[Safe]"dbADODBadOpenStaticadLockReadOnly
'=========================
'
=========================
End Sub 

لما تصرح عن متغير تستخدمه خارجة الموديول استخدم public مش Dim
:

شكرا أبو عمر الغالي
Smile Smile Smile Smile Smile Smile Smile

يا حلال المشاكل
هههههههه
Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم