29-09-15, 06:30 PM (آخر تعديل لهذه المشاركة : 29-09-15, 06:31 PM {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]", dbADODB, adOpenStatic, adLockReadOnly rsCBC2.Open "[CBC]", dbADODB, adOpenStatic, adLockReadOnly rsChem2.Open "[Chemistry]", dbADODB, adOpenStatic, adLockReadOnly rsCult2.Open "[Cultures]", dbADODB, adOpenStatic, adLockReadOnly rsESR2.Open "[ESR]", dbADODB, adOpenStatic, adLockReadOnly rsFemHor2.Open "[FemaleHor]", dbADODB, adOpenStatic, adLockReadOnly rsHeam2.Open "[Heamatology]", dbADODB, adOpenStatic, adLockReadOnly rsHore2.Open "[Horemones]", dbADODB, adOpenStatic, adLockReadOnly rsImm2.Open "[Immunology]", dbADODB, adOpenStatic, adLockReadOnly rsKF2.Open "[KF]", dbADODB, adOpenStatic, adLockReadOnly rsLF2.Open "[LF]", dbADODB, adOpenStatic, adLockReadOnly rsLipid2.Open "[Lipid]", dbADODB, adOpenStatic, adLockReadOnly rsMalHor2.Open "[MaleHor]", dbADODB, adOpenStatic, adLockReadOnly rsMicro2.Open "[Microbiology]", dbADODB, adOpenStatic, adLockReadOnly rsPath2.Open "[Pathology]", dbADODB, adOpenStatic, adLockReadOnly rsPCR2.Open "[PCR]", dbADODB, adOpenStatic, adLockReadOnly rsPreg2.Open "[Pregnant]", dbADODB, adOpenStatic, adLockReadOnly rsPTT2.Open "[PTT]", dbADODB, adOpenStatic, adLockReadOnly rsSem2.Open "[Semen]", dbADODB, adOpenStatic, adLockReadOnly rsSero2.Open "[Serology]", dbADODB, adOpenStatic, adLockReadOnly rsStool2.Open "[stool]", dbADODB, adOpenStatic, adLockReadOnly rsSugar2.Open "[Suger]", dbADODB, adOpenStatic, adLockReadOnly rsTumor2.Open "[Tumor]", dbADODB, adOpenStatic, adLockReadOnly rsUrine2.Open "[urine]", dbADODB, adOpenStatic, adLockReadOnly rsVirology2.Open "[Virology]", dbADODB, adOpenStatic, adLockReadOnly rsWidal2.Open "[Widal]", dbADODB, adOpenStatic, adLockReadOnly rsThyroid2.Open "[Thyroid]", dbADODB, adOpenStatic, adLockReadOnly '========================= '========================= rsUsers2.Open "[users]", dbADODB, adOpenStatic, adLockReadOnly rsClient2.Open "[client]", dbADODB, adOpenStatic, adLockReadOnly rsClientTests2.Open "[clientTests]", dbADODB, adOpenStatic, adLockReadOnly rsPricelist2.Open "[pricelist]", dbADODB, adOpenStatic, adLockReadOnly rsDisc2.Open "[Disc]", dbADODB, adOpenStatic, adLockReadOnly rsOrders2.Open "[Orders]", dbADODB, adOpenStatic, adLockReadOnly rsPaid2.Open "[paid]", dbADODB, adOpenStatic, adLockReadOnly rsProfits2.Open "[profits]", dbADODB, adOpenStatic, adLockReadOnly rsSafe2.Open "[Safe]", dbADODB, adOpenStatic, adLockReadOnly '========================= '========================= End Sub
لما تصرح عن متغير تستخدمه خارجة الموديول استخدم public مش Dim
:
سبحان الله والحمدللهولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
29-09-15, 06:43 PM (آخر تعديل لهذه المشاركة : 29-09-15, 06:44 PM {2} بواسطة hamada salah90.)
(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]", dbADODB, adOpenStatic, adLockReadOnly rsCBC2.Open "[CBC]", dbADODB, adOpenStatic, adLockReadOnly rsChem2.Open "[Chemistry]", dbADODB, adOpenStatic, adLockReadOnly rsCult2.Open "[Cultures]", dbADODB, adOpenStatic, adLockReadOnly rsESR2.Open "[ESR]", dbADODB, adOpenStatic, adLockReadOnly rsFemHor2.Open "[FemaleHor]", dbADODB, adOpenStatic, adLockReadOnly rsHeam2.Open "[Heamatology]", dbADODB, adOpenStatic, adLockReadOnly rsHore2.Open "[Horemones]", dbADODB, adOpenStatic, adLockReadOnly rsImm2.Open "[Immunology]", dbADODB, adOpenStatic, adLockReadOnly rsKF2.Open "[KF]", dbADODB, adOpenStatic, adLockReadOnly rsLF2.Open "[LF]", dbADODB, adOpenStatic, adLockReadOnly rsLipid2.Open "[Lipid]", dbADODB, adOpenStatic, adLockReadOnly rsMalHor2.Open "[MaleHor]", dbADODB, adOpenStatic, adLockReadOnly rsMicro2.Open "[Microbiology]", dbADODB, adOpenStatic, adLockReadOnly rsPath2.Open "[Pathology]", dbADODB, adOpenStatic, adLockReadOnly rsPCR2.Open "[PCR]", dbADODB, adOpenStatic, adLockReadOnly rsPreg2.Open "[Pregnant]", dbADODB, adOpenStatic, adLockReadOnly rsPTT2.Open "[PTT]", dbADODB, adOpenStatic, adLockReadOnly rsSem2.Open "[Semen]", dbADODB, adOpenStatic, adLockReadOnly rsSero2.Open "[Serology]", dbADODB, adOpenStatic, adLockReadOnly rsStool2.Open "[stool]", dbADODB, adOpenStatic, adLockReadOnly rsSugar2.Open "[Suger]", dbADODB, adOpenStatic, adLockReadOnly rsTumor2.Open "[Tumor]", dbADODB, adOpenStatic, adLockReadOnly rsUrine2.Open "[urine]", dbADODB, adOpenStatic, adLockReadOnly rsVirology2.Open "[Virology]", dbADODB, adOpenStatic, adLockReadOnly rsWidal2.Open "[Widal]", dbADODB, adOpenStatic, adLockReadOnly rsThyroid2.Open "[Thyroid]", dbADODB, adOpenStatic, adLockReadOnly '========================= '========================= rsUsers2.Open "[users]", dbADODB, adOpenStatic, adLockReadOnly rsClient2.Open "[client]", dbADODB, adOpenStatic, adLockReadOnly rsClientTests2.Open "[clientTests]", dbADODB, adOpenStatic, adLockReadOnly rsPricelist2.Open "[pricelist]", dbADODB, adOpenStatic, adLockReadOnly rsDisc2.Open "[Disc]", dbADODB, adOpenStatic, adLockReadOnly rsOrders2.Open "[Orders]", dbADODB, adOpenStatic, adLockReadOnly rsPaid2.Open "[paid]", dbADODB, adOpenStatic, adLockReadOnly rsProfits2.Open "[profits]", dbADODB, adOpenStatic, adLockReadOnly rsSafe2.Open "[Safe]", dbADODB, adOpenStatic, adLockReadOnly '========================= '========================= End Sub
لما تصرح عن متغير تستخدمه خارجة الموديول استخدم public مش Dim
: