الاخوة الاعزاء عندي مشكلة في هذا الكود وهي انه بطئ جدا جدا
قمت بوضع الكود في موديل وفي جنرال وفي الفورم وفي تايمر ولم تنفع كل تلك المحاولات ما زال الكود بطئ جدا جدا
Sub comboadd() On Error Resume Next If db.State = adStateOpen Then db.Close 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