الخبير الفاضل jjafferr
كما توقعت كل مشكلة تواجهنى اجد من حضرتك يد المساعدة اكرمك الله فى الدنيا والاخرة اتقدم بخالص الشكر والعرفان والتقدير لشخصك الفاضل
هذا الكود يعمل بشكل رائع وقمت باستبدال 117 Me.ID اعطانى رسالة خطا
قمت باستبدال Me.ID rst.FindFirst "[PCode]=" & Forms!general!jo.form!Patient_Cach!ID اعطانى رسالة خطا ايضا واليك صورة الرسالة
DoCmd.BrowseTo acBrowseToForm, "General", , , "PA", acFormEdit
Forms!General!PA.SetFocus
SendKeys "~", True
DoEvents
Forms!General!JO.SetFocus
Dim rst As DAO.Recordset
Set rst = Forms!General!JO.Form.RecordsetClone
rst.FindFirst "[PCode]=" & 117
Forms!General!JO.Form.Bookmark = rst.Bookmark
rst.close: Set rst = Nothing
'TurnOnNumLock