الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

خطأ في Loop

مغلق
بدأه snmdody في 30 أغسطس 2004 · 4 رد · 539 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته .. وبعد

ارجو المساعدة مشكورين في تصحيح الكود الموضح أدناه :

Do While counter = Me.To
    counter = counter + 1
    If counter = Me.To Then
    Exit Do
    End If
    DoCmd.SetWarnings False
    DoCmd.RunSQL "INSERT INTO [DoLoop] ([Serial])VALUES ('" & [From] & "')"
Loop

توضيح المطلوب :

يوجد لدي نموذج به حقلين ، الحقل الأول إسمه From والحقل الثاني To

المطلوب :

بعد إدخال قيمة للحقل الأول مثلاً (1) وقيمة للحقل الثاني مثلاً (35) وعند الضغط على زر أمر الحفظ (الكود أعلاه) فأريد عند تنفيذ الكود أن يتم تسجيل عدد 35 سجل في الجدول DoLoop إبتداءاً من الرقم 1 (قيمة الحقل الأول) وإنتهاءا بالرقم 35 (قيمة الحقل الثاني)

مرفق ملف لتوضيح الصورة أكثر ..

وجزاكم الله خير الجزاء

Do Loop.rar

#2

Up

#3

لقد قمت بكتابة الكود الموضح أدناه وقد عمل بطريقة صحيحة ، ولكن سؤالي هل هذا الكود صحيح من حيث كتابته ام لا ؟

Private Sub cmdSave_Click()
Dim counter As Integer
counter = Me.from - 1
Do Until counter = Me.To
counter = counter + 1
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO [DoLoop] ([Serial])VALUES ('" & [counter] & "')"
Loop
End Sub

مع ملاحظة الآتي :

قمت بكتابة السطر الثالث وهو

counter = Me.from - 1

حتى أتمكن من إدراج أول قيمة في الحقل From ، مثلاً كانت قيمة الحقل الأول (1) والحقل الثاني (35) فيقوم في هذه الحالة بإضافة عدد 35 سجل ابتداءا من 1 وانتهاءا بـ 35 أما إذا تمت كتابة السطر بالطريقة الأخرى وهي :

counter = Me.from فإنه ستجاهل أول قيمة ففي المثال أعلاه سيتم إضافة عدد (34) سجل إبتداءا من رقم (2) وليس (1) وإنتهاءا برقم (35)

#4

عزيزي تفضل وشاهد الملف المرفق أعتقد كما تريد.

New_Do Loop.rar

#5

مشكور وما قصرت أخي ابو كورد لقد نبهتني لطريقة أفضل من عملية تنفيذ إستعلام الحاق ، ولكن عندي سؤال بسيط ، اليس الطريقة التي اوردتها انت تقوم بإضافة السجلات عن طريق DAO ?

مع خالص تحياتي ،،

هذا الموضوع مغلق.

مواضيع مشابهة