السلام عليكــم ورحمـة الله وبركاتــه ،،
كيفكم اخواني الاعزاء انا بصمم برنامج جديد لكن وجهتني مشكله وهي:
أنا متعود عندما اريد عرض حقل في comob أضع الكود الأتي
do until rs.eof
combo1.additem rs!(الاسم)
rs.movenext
loop
يعمل بنجاح
ولكن عندما أردت ان اكرر هذه العمليه اكثر من مره وبالتحديد 4 مرات وكتبت الكود التالي:
do until rs.eof
combo2.additem rs!(الوظيفه)
rs.movenext
loop
وهكذا للباقي لم يتم العمل بنجاح
ارجوا المساعده ولكم منى جزير الشكر
ما الذي تقصده بتكرار العملية أربع مرات؟؟؟
هكذا مثلاً؟
Do Until rs.EOF For Counter = 1 To 4 combo2.AddItem rs!(الوظيفة) Next rs.movenext Loop
هكذا سيطبع الوظيفة في كل سجل أربع مرات، هل هذا هو؟؟
هذه الجملة خاطئة :wacko:
مشكور اخى العزيز انا لم اقصد ذلك بل قصدت أن أنا عامل 4combo وال4 كل واحد في حاجه مختلفه
والكودهو هو مع اختلاف الاسامى بتاع كل واحد
السلام عليكم...
قبل كل عبارة Do Until rs.EOF اكتب عبارة rs.MoveFirst
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
السلام عليكم ورحمه الله وبركاته
اخواني الاعزاء انا قمت بارفاق مثال بالاكواد الى انا كنت بقول عليها وارجو المساعده
لماذا لا تضعها كلها في حلقة Loop واحدة هكذا:
Do Until RS.EOF Combo1.AddItem RS![الاسم] Combo2.AddItem RS![البلد] Combo3.AddItem RS![المدينة] Combo4.AddItem RS![الحي] RS.MoveNext Loop
هذه الجملة خاطئة :wacko:
السلام عليكم...
كلام أخينا "Abboodd" صحيح. ضعها جميعاً في حلقة واحدة حتى توفيراً للكود و الوقت.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
السلام عليكــم ورحمـة الله وبركاتــه ،،
انا متشكر جدا جدا
على المساعده