السلام عليكــم ورحمـة الله وبركاتــه ،،
أخواتي الكرام في هذا المنتدى
وجدت الكثير من الأمثلة لتسجيل عناصر التحكم برمجياً ولكن ولاطريقة نجحت معي أرجو التوضيح
جربت هذا الكود
On Error Resume Next
Dim ref As Reference
Dim strFileDBPath As String
Dim RefName As String
Dim conRef As Integer
Dim sqlUpdate As String
Dim pathAndNamefile As String
Dim i As Byte
strFileDBPath = CurrentProject.Path
conRef = DCount("[referenceName]", "tblReferenceNameOnThisDB")
For i = 1 To conRef
RefName = DLookup("[referenceName]", "tblReferenceNameOnThisDB", "InsertOkOrNO =" & False)
sqlUpdate = "Update tblReferenceNameOnThisDB set InsertOkOrNO=" & True
sqlUpdate = sqlUpdate & " where referenceName='" & RefName & "'"
DoCmd.RunSQL sqlUpdate
pathAndNamefile = strFileDBPath & RefName
Set ref = References.AddFromFile(pathAndNamefile)
Next i
sqlUpdate = "Update tblReferenceNameOnThisDB set InsertOkOrNO=" & False
DoCmd.RunSQL sqlUpdate
MsgBox " مبروك... تم اضافة المراجع للقاعدة بنجاح"وقمت بإنشاء جدول
tblReferenceNameOnThisDB
وحقل
referenceName وحقل بإسم insertokorno
ولم تنجح معي
قمت بتجريب هذا الرابط ولم ينفع معي
وجربت أيضاً هذا الرابط ولم ينفع معي
ربما الخطأ مني أرجو توضيح أين المشكلة ؟
وجزاكم الله كل الخير