الداله for ...next

[عيد2005]

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

لكم الشكر ما ما تبذلونه من جهد لإخوانكم في الله فجزاكم الله خير

وســــــــــــؤالي

أريد مثال لكود لتحديث السجلات بواسطة الداله for ...next .

حيث أريد أن التحديث يقع على جميع السجلات وليس على سجل واحد

................................................................................

...............

[التقني]

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

أخي الكريم

راجع الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=9459&hl

وهذا :

http://www.officena.net/ib/index.php?showtopic=10791&hl

[فنجان قهوه]

جزاك الله كل خير اخي التقني

[عيد2005]

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

[عيد2005]

أخي الكريم بعد مراجعتي للروابط اتضح أنها ليست المطلوبه

وطلبي هو :

هو أنني أريد تحديث السجلات لا النموذج فمثلاً إذا كان لدي معادلة

a1=a2+a3/100

فمعلوم إنه إذا وضعت المعادلة التالية في حدث للزر عند النقر فيتم تحديث الحقل a1 فقط في السجل الحالي وأنا أريد أن يكون لجميع السجلات بواسطة الداله for ...next

ولكن لا أعرف طريقة استخدام هذه الداله for ...next

ولك بالغ الشكر وتقبل تحيتي

تم تعديل يناير 21, 2006 بواسطه عيد2005

[عيد2005]

للرفع

[^شرقاوي^]

السلام عليكم اخوي عيد

بالنسبة لفكرتك بصراحه معرف اطبقها على الاكسس والفورم بالاكسس

بس اعرف اسويها بقاعدة بيانات اكسس والفورم فيجوال بيسك والربط بالكود

فيه عندي حل ثاني يسوي نفس الغرض

طبعا انت اللي تبي توصله انك تنتقل لسجل ثاني وتسوي نفس العملية وهكذا لباقي السجلات الين يخلص

فهذا انشالله يفي بالغرض بس حطه بالفورم الخاصه بالجدول اللي فيه هالبيانات اللي تبي تعدلها

مع مراعات بعض الملاحظات المكتوبة وسط الكود:

Dim a1, a2, a3 As Integer
Private Sub h_Click() On errore GoTo hanier
'******اذا كان الحقل من نوع نص اكتب التالي
if <هنا اسم اول حقل بالجدول>.text="" then
'******اذا كان الحقل من نوع رقم اكتب التالي
if <هنا اسم اول حقل بالجدول>=0 then
Exit Sub
End If
a1 = a2 + a3 / 100
DoCmd.GoToRecord , , acNext
h2_Click
Exit Sub
hanier:
End Sub
Private Sub h2_Click()
h_Click
End Sub

ويبقى اخر شي تسويها انك في المكان او الحدث اللي اذا صار او سويته تتم عملية التحديث حط الامر

h2_Click

ومن باب التوضيح مثلن اذا ضغطت على زر وتبيه يسوي التحديث انشيء الزر وحط هالكود بوسطه

وتقبل تحياتي

هذا والله اعلم

[rudwan]

لأجل التعامل مع جميع سجلات الجدول عليك استخدام مجموعة السجلات و تعرف هكذا

Dim dbs As dao.Database
dim se As dao.Recordset
Set dbs = CurrentDb
Set se = dbs.OpenRecordset("MyTable")
Se.MoveFirst
Do Until Se.EOF
se.edit
se![a1]=se![a2]+se![a3]/100
se.update
Se.MoveNext
Loop
Se.Close

تم تعديل يناير 28, 2006 بواسطه rudwan

[عيد2005]

أخي ^شرقاوي^

أخي rudwan

جزاكما الله ألف خير وبارك الله فيكما

أخي ^شرقاوي^ طريقتك لم تنجح معي وما أدري وليش ؟؟

أخي rudwan بالفعل نجحت العملية

ولكما ألف شكر