ابو ياسين المشولي

حاول ترفق الملف

جرب هكذا (C:\File\[الرواتب].pdf)

تسلم اخي محمد بترك الله فيك

مع احترامي لك الموضوع في وادي وانت بوادي اخر

وانت من اهل الخير بالتوفيق اخي ابو زاهر

اخي ابو زاهر شوف التعديل الاخير مثال (2).accdb

شوف هذا التعديل الاخير هذا بطي شوي مثال (2).accdb

شوف هذا التعديل الاخير مثال.accdb

شكرا بارك الله فيك

ممكن اخي صور وليس بشكل اكسس

اخي ابو زاهر اقبل مني هذة المشاركة المتواضعه لعل الاخوه الخبرا ء يطورها حسب رغبتك مثال.accdb

معك حق اخي انا الان حملت الملف وكان نفس المشكلة

شوف المرفق نموذج date01 الاجازات - Copy.rar

اخي الملف ليس تالف ولكن برنامجك قديم حدثه برنامج الضغط

اخي جعفر نعم هي كما قلت في حدث الحالي انا حاولت اوصله المعلومه ومنتظر ردك كي نستفيد اكثر واكثر دائما اقولها نحن تلميذكم منكم نستفيد ونحاول نتعلم ونفهم ولهذا المنتدى والمشرفين والاعضاء الخير الكثير من ماتعلمناه تحياتي لك اخي جعفر

بارك الله فيك اخي بالتوفيق

بعد اذن اخي الوزير اتفضل هذا مشروط بالمبيعات EjAbuZaher.accdb

بعد اذن اخي جعفر jjafferr سوف اشرح ماتم عمله من قبل الاخ جعفر تم عمل داله وهي كالاتي Function make_visible() On Error GoTo err_make_visible [EmployeeID].Visible = False [SuppliersID].Visible = False [CustomersID].Visible = False [ExpenseID].Visible = False If [Stype] = "سند صرف موظف" Then [EmployeeID].Visible = True Me![الاسم] = Me![EmployeeID].Column(1) ElseIf [Stype] = "سند صرف مورد" Then [SuppliersID].Visible = True Me![الاسم] = Me![SuppliersID].Column(1) ElseIf [Stype] = "سند صرف المصروفات" Then [ExpenseID].Visible = True Me![الاسم] = Me![ExpenseID].Column(1) ElseIf [Stype] = "سند صرف عميل" Then [CustomersID].Visible = True Me![الاسم] = Me![CustomersID].Column(1) End If Exit_Function: Exit Function err_make_visible: If err.Number = 2165 Then 'cannot hide a control which has focus 'ignore it Resume Next Else MsgBox err.Number & vbCrLf & err.Description End If End Function ثم تم استدعها عند التالي والسابق والاو والاخير هكذا Call make_visible

مشاركة مع اخي AlwaZeeR اتفضل شوف المرفق التاريخ.mdb

اخي ابو زاهر انت عامل DoCmd.Maximize وهذا ملاء الشاشه انظر الى هذا نموذج_غير_منبثق.mdb

في حدث عند الفتح عدل المقاس اللي يناسبك DoCmd.MoveSize 5000, 2700, 8600, 6800

اسمحولي اشارك معكم اخفاء القيمه السالبه (1).accdb

اصيت اخي جعفر

العفو اخي jjafferr جعر نحن تلميذكم

بالتوفيق اخي