ارجو التعديل ليظهر الزر الرقم من حقل في حقل آخر بناء على استعلام

اني انتظر مساعدتكم اخوتي

هل من حل ؟؟؟؟؟

قمت باستحداث الاستعلام من النموذج الى استعلام جديد باسم

zz

كيف الاستعلام ينقل ما ينتج عنه في حقلالرصيد الى الجدول

يعني بالضغط على الاستعلام بدون النموذج

طبعا هذا حل آخر اذا لم ينفع السؤال الاول ؟؟؟؟؟؟؟؟؟؟؟؟؟

zahra.rar

بالنسبة للسؤال الإول

إذا كنت فهمت أنا سؤالك فهذا الكود قد يفى بالغرض

Private Sub أمر18_Click()

'On Error Resume Next

Dim dbs As Database, rst As Recordset, strsql As String

Dim X As Long

Set dbs = CurrentDb

X = Forms![Rorphans]![orphan_count]

strsql = "SELECT accounts.orphan_count, accounts.balance, accounts.balan"

strsql = strsql & " FROM accounts"

strsql = strsql & " WHERE (((accounts.orphan_count)=" & X & "));"

Set rst = dbs.OpenRecordset(strsql)

Do

With rst

.Edit

![balan] = ![balance]

.Update

End With

rst.MoveNext

Loop Until rst.EOF

rst.Close

Set dbs = Nothing

Me.Refresh

End Sub

بالنسبة للسؤال الثانى أصعب من الأول الكود الأول يجب أن يغير فيه الأمر

Me.Refresh

إلى

Me.Requery

أما حل الجزء الثانى إذا كان الأول صح يمكن كتابة الكود التالى

Private Sub الأمر18_Click()

'On Error Resume Next

Dim dbs As Database, qrst As Recordset, rst As Recordset, strsql As String

Dim X As Long

Set dbs = CurrentDb

X = Forms![Rorphans]![orphan_count]

strsql = "SELECT zzz.orphan_count, zzz.balance"

strsql = strsql & " FROM zzz"

strsql = strsql & " WHERE (((zzz.orphan_count) = " & X & "))"

strsql = strsql & " ORDER BY zzz.ID;"

Set qrst = dbs.OpenRecordset(strsql)

strsql = "SELECT accounts.orphan_count, accounts.balance, accounts.balan"

strsql = strsql & " FROM accounts"

strsql = strsql & " WHERE (((accounts.orphan_count) = " & X & "))"

strsql = strsql & " ORDER BY accounts.ID;"

Set rst = dbs.OpenRecordset(strsql)

Do

With rst

.Edit

![balan] = qrst![balance]

![balance] = qrst![balance]

.Update

End With

rst.MoveNext

qrst.MoveNext

Loop Until rst.EOF

rst.Close

Set dbs = Nothing

Me.Requery

End Sub

شكرا اخي العمري بن

بس يا ليت تحط الكود في المثال لانه الظاهر ملخبط معي مع الشكر

لكن الكود الثاني الحمد لله ضبط معي

Private Sub ÃãÑ18_Click()
'On Error Resume Next
Dim dbs As Database, qrst As Recordset, rst As Recordset, strsql As String
Dim X As Long
Set dbs = CurrentDb
X = Forms![Rorphans]![orphan_count]
strsql = "SELECT zzz.orphan_count, zzz.balance"
strsql = strsql & " FROM zzz"
strsql = strsql & " WHERE (((zzz.orphan_count) = " & X & "))"
strsql = strsql & " ORDER BY zzz.ID;"

Set qrst = dbs.OpenRecordset(strsql)



strsql = "SELECT accounts.orphan_count, accounts.balance, accounts.balan"
strsql = strsql & " FROM accounts"
strsql = strsql & " WHERE (((accounts.orphan_count) = " & X & "))"
strsql = strsql & " ORDER BY accounts.ID;"
Set rst = dbs.OpenRecordset(strsql)


Do
With rst
.Edit
![balan] = qrst![balance]
![balance] = qrst![balance]
.Update
End With
rst.MoveNext
qrst.MoveNext
Loop Until rst.EOF
rst.Close
Set dbs = Nothing

Me.Requery

End Sub

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

أخ مصلح جزاك الله خيراً وعذراً فهذه كانت أول مشاركة لى فى المنتدى

سيدة هدى أحسن الله إليك بالنسبة للكود الأول هل غيرت السطر

Me.Refresh

إلى

Me.Requery

الكود كاملاً مرة أخرى

Private Sub أمر18_Click()

'On Error Resume Next
Dim dbs As Database, rst As Recordset, strsql As String
Dim X As Long
Set dbs = CurrentDb
X = Forms![Rorphans]![orphan_count]
strsql = "SELECT accounts.orphan_count, accounts.balance, accounts.balan"
strsql = strsql & " FROM accounts"
strsql = strsql & " WHERE (((accounts.orphan_count)=" & X & "));"
Set rst = dbs.OpenRecordset(strsql)
Do
With rst
.Edit
![balan] = ![balance]
.Update
End With
rst.MoveNext
Loop Until rst.EOF
rst.Close
Set dbs = Nothing

Me.Requery

End Sub

وعذراً فى أنى لم أضف المثال فأنا أعانى من مشاكل كبيرة فى إضافة المشاركات أوحتى الرد فى المنتدى

ربما استطعت أرفاق الملف وهو نفس ملفك الأول مع إضافة الكود

MOrphan.rar

شكرا جزيلا لك وبارك الله فيك

مرحبا اخي العمري بن مرة اخرى

لقد قمت باجراء تعديل في المرفق بما يناسب عملي وقمت بتغيير النموذج بحيث اضفت اليه جلب البيانات حسب قائمة منسدلة

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

لاحظ اني غيرت اسماء الحقول ( بعضها )

hod1.rar

قمت بتعديل المرفق في المشاركة السابقة رقم 11

بالانتظار اذا كان هنالك حل لهذا الاشكال

بسم الله والحمد لله والصلاة والسلام على رسول الله

لقد أستبدلت النموذج Raccounts بالنموذجMaccounts

ولعله يفى بالغرض

hod3.rar

ما شاء الله

بارك الله فيك اخي العمرى بن مثال جميل

ومتعوب عليه استفدت منه كثيرا وبدأت منذ قليل التطبيق عليه

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