زيادة رقم فى الاستعلام يبدأ من النموذج

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته 
أريد زيادة الرقم فى استعلام  q2 و البداية من خلية فى النموذج 
مثلا الخلية test2 = 500
الاستعلام يبدأ من 500 

501

502

وهكذا 

و الهدف عمل استعلام تحديث لعمود numberx بعد ذلك
وجزاكم الله خيراً

test22.rar

تم تعديل نوفمبر 12, 2022 بواسطه محمد احمد لطفى

[kanory]

22 ساعات مضت, محمد احمد لطفى said:

السلام عليكم ورحمة الله و بركاته 
أريد زيادة الرقم فى استعلام  q2 و البداية من خلية فى النموذج 
مثلا الخلية test2 = 500
الاستعلام يبدأ من 500 

501

502

وهكذا 

و الهدف عمل استعلام تحديث لعمود numberx بعد ذلك
وجزاكم الله خيراً

 

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

يعني تقصد توزيع ارقام في الاستعلام  يبدأ من الرقم الموجود في مربع النص test2

هل هذا صحيح ؟؟؟؟

اذا كان غير ذلك .. وضح بالتفصيل ...

تم تعديل نوفمبر 13, 2022 بواسطه kanory

[محمد احمد لطفى]

أستاذى @kanory
شرح كما بالمرفق عند كتابة رقم مثلا 501 فى اول خلية فى  numberx  يبدأ عد الارقام من 501 وزيادتها 1 الى اخر سجل و لكنه بطىء عند كثرة السجلات 

* فالمطلوب عند كتابة 501 فى test2  فى النموذج يبدأ numberx  أول خلية 501 وزيادتها 1 الى اخر سجل  عن طريق  استعلام تحديث

1505.1.make serial numbers.rar

تم تعديل نوفمبر 13, 2022 بواسطه محمد احمد لطفى

[kanory]

منذ ساعه, محمد احمد لطفى said:

أستاذى @kanory
شرح كما بالمرفق عند كتابة رقم مثلا 501 فى اول خلية فى  numberx  يبدأ عد الارقام من 501 وزيادتها 1 الى اخر سجل و لكنه بطىء عند كثرة السجلات 

* فالمطلوب عند كتابة 501 فى test2  فى النموذج يبدأ numberx  أول خلية 501 وزيادتها 1 الى اخر سجل  عن طريق  استعلام تحديث

 

في مربع النص numboerx  في حدث بعد التحديث استخدم هذا الكود ............................

 

Dim D As Object
Dim x As Integer
Set D = CurrentDb.OpenRecordset("q1")
    x = Me.Numberx
    DoCmd.RunCommand acCmdSaveRecord
     With D
            Do While Not (.EOF)
                .Edit
                .Numberx = x
                .Update
                 x = x + 1
                .MoveNext
            Loop
     End With
     Set D = Nothing

 

[محمد احمد لطفى]

أستاذى @kanory

جزاك الله كل خير