مشكلة الكود يتأخر حوالى 20 ثانية قبل فتح الفورم
اريد طريقة اسرع
في الموديل كتبت
Global Cn As ADODB.Connection Public db As New ADODB.Connection Public RS As New ADODB.Recordset Public Rs1 As New ADODB.Recordset 'Public db As New ADODB.Connection Public RSk As New ADODB.Recordset 'Public Rs1 As New ADODB.Recordset Public rs2 As New ADODB.Recordset Public rs3 As New ADODB.Recordset Public rs4 As New ADODB.Recordset Public rs5 As New ADODB.Recordset Public rs6 As New ADODB.Recordset Public rs7 As New ADODB.Recordset Public rs8 As New ADODB.Recordset Public rs9 As New ADODB.Recordset Public rs10 As New ADODB.Recordset Public rs11 As New ADODB.Recordset Public rs12 As New ADODB.Recordset Public rs13 As New ADODB.Recordset Public rs14 As New ADODB.Recordset Public rs15 As New ADODB.Recordset Public rs16 As New ADODB.Recordset Public rs17 As New ADODB.Recordset Public rs18 As New ADODB.Recordset Public EditORAdd As Boolean Public Rss As New ADODB.Recordset
انا حطيتها في sub
ثم قمت باستدعاءها في تحميل الفورم
Sub comboadd() On Error Resume Next If db.State = adStateOpen Then db.Close db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=optimize; Data Source=" & App.Path & "\data.mdb" '''''''' db.Provider = "Microsoft.JET.OLEDB.4.0;" '''''''' db.Open App.Path & "\data.mdb" '''''''' RS.Open "[workers]", db, adOpenStatic, adLockPessimistic Rs1.Open "[co4]", db, adOpenStatic, adLockPessimistic Do While Not Rs1.EOF Combo18.AddItem Rs1!author Combo22.AddItem Rs1!author Combo25.AddItem Rs1!author Rs1.MoveNext Loop Rs1.Close ' rs2.Open "[workers]", db, adOpenStatic, adLockPessimistic rs3.Open "[co5]", db, adOpenStatic, adLockPessimistic Do While Not rs3.EOF Combo20.AddItem rs3!mohagg Combo24.AddItem rs3!mohagg Combo26.AddItem rs3!mohagg rs3.MoveNext Loop ' rs10.Open "[workers]", db, adOpenStatic, adLockPessimistic rs11.Open "[co6]", db, adOpenStatic, adLockPessimistic Do While Not rs11.EOF Combo23.AddItem rs11!motargm rs11.MoveNext Loop rs11.Close ' rs4.Open "[workers]", db, adOpenStatic, adLockPessimistic rs5.Open "[nsr]", db, adOpenStatic, adLockPessimistic Do While Not rs5.EOF Combo21.AddItem rs5!nasher rs5.MoveNext Loop rs5.Close ' rs6.Open "[workers]", db, adOpenStatic, adLockPessimistic rs7.Open "[co7]", db, adOpenStatic, adLockPessimistic Do While Not rs7.EOF Combo19.AddItem rs7!baldnshr rs7.MoveNext Loop rs7.Close ' rs8.Open "[workers]", db, adOpenStatic, adLockPessimistic rs9.Open "[SUPJCT123]", db, adOpenStatic, adLockPessimistic Do While Not rs9.EOF Combo1.AddItem rs9!SUBJCT Combo4.AddItem rs9!SUBJCT Combo5.AddItem rs9!SUBJCT rs9.MoveNext Loop rs9.Close ' rs12.Open "[workers]", db, adOpenStatic, adLockPessimistic rs13.Open "[co9]", db, adOpenStatic, adLockPessimistic Do While Not rs13.EOF Combo3.AddItem rs13!magas rs13.MoveNext Loop rs13.Close ' rs14.Open "[workers]", db, adOpenStatic, adLockPessimistic rs15.Open "[co1]", db, adOpenStatic, adLockPessimistic Do While Not rs15.EOF Combo12.AddItem rs15!selselah rs15.MoveNext Loop rs15.Close ' rs16.Open "[workers]", db, adOpenStatic, adLockPessimistic rs17.Open "[co2]", db, adOpenStatic, adLockPessimistic Do While Not rs17.EOF Combo2.AddItem rs17!gelaf rs17.MoveNext Loop rs17.Close End Sub
كيف استطيع تحميل 11 كامبو ببيانات 11 جدول
يعني ابغاها تكون خيارات للمستخدم للتسهيل عليه بدل كتابة البيانات