بسيطة
استبدل الكود الاتى
If URL Like "about:id101" Then
Debug.Print URL
DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog
Cancel = True
End If
If URL Like "about:id102" Then
Debug.Print URL
DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog
Cancel = True
End If
If URL Like "about:id103" Then
Debug.Print URL
DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog
Cancel = True
End If
بهذا
If URL Like "about:id101" Then
Debug.Print URL
DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9))
Cancel = True
End If
If URL Like "about:id102" Then
Debug.Print URL
DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9))
Cancel = True
End If
If URL Like "about:id103" Then
Debug.Print URL
DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9))
Cancel = True
End If
, , acDialog
هذا الجزء من الكود هو السبب
وهنا احس فى هذا المرفق اننى اتعامل مع الاكسس بطريقة الاستاذ @أبو إبراهيم الغامدي
الحمد لله ان سؤالك ما كان يخص شئ من الدمج بين الاكسس والويب والا ما عرفت اجاوبك
بعد التعديل
at.accdb