كيف لي أن أحضر بيانات من الارسيف الى الفورم المفتوح أمامي

للرفع

معقول ولا رد واحد حتى

Private Sub ragmroksa_AfterUpdate()

Dim db As DAO.Database

Dim strSQL, rag, msg As String

rag = Me.ragmroksa

Set db = CurrentDb()

Dim a

a = DLookup("[ragmroksa]", "ArchiveRJ1", "[ragmroksa] =" & rag)

If Not IsNull(a) Then

msg = "'" & rag & "' موجود بالأرشيف ." & vbCr & vbCr

msg = msg & "هل ترغب في نقله ؟"

If MsgBox(msg, vbQuestion + vbYesNo) = vbNo Then

Exit Sub

Else

strSQL1 = "INSERT INTO RJ1 SELECT * " & _

"FROM ArchiveRJ1 " & _

"WHERE ragmroksa = " & rag & " ;"

strSQL2 = "Delete * " & _

"FROM ArchiveRJ1 " & _

"WHERE ragmroksa = " & rag & " ;"

db.Execute strSQL1, dbFailOnError

db.Execute strSQL2, dbFailOnError

db.Close

End If

End If

End Sub

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

اشكر لك تفاعلك اخي أمير 2008

ولكن هل ممكن من بعض الشرح لهذا الكود

مثلا أين أضعه وتحت أي حدث أضعه

ولك مني جزيل الشكر

اذا وجدت الكود بهذه الطريقة

Private Sub ragmroksa_AfterUpdate

فاعلم أن :

الحدث هو  AfterUpdate

عنصر الحدث هو : ragmroksa

الرخص.rar

أخي أمير 2008

اسعد الله اوقاتك بكل خير وأشكر لك تقديم يد العون جعلها الله في ميزان حسناتك

ما قصرت وتسلم يمينك لكن هناك ملاحظة بسيطة إن امكن تلافيها

في حين تأتي الرسالة هل ترغب في نقلة  اذا وضعت نعم لا يظهر السجل مباشره في النموذج

بل يجب إغلاق النموذج وفتحة مرة أخرى حتى يظهر في النموذج

هذه الملاحظة البسيطة ودمت سالماً إن شاء الله من كل شر

للرفع

تسلم أمير
+1