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

جرب هذا If MsgBox("سيتم الحذف", vbOKCancel, "تنبيه") = vbOK Then Kill Me.z Me.z = "" Kill CurrentProject.Path & "\" & InStrRev(z, ".") & ".pdf" Me.Refresh End If

اخي الله يرضى عليك قلنا ارفع مثال وليس ارفع صورة المثال يطبق عليه الحل

ارفق مثال

الله يبارك فيك اخي حربي العنزي

حذف المشاركة

اخي الكريم استخدم داله Abs

مشاركة مع اخي كنري ضع هذا الكود في مدويل او براس النموذج Function AddRefs() Dim loRef As Access.Reference Dim intCount As Integer Dim intX As Integer Dim blnBroke As Boolean Dim strPath As String On Error Resume Next 'Loop through each reference in the database 'Add all references Debug.Print "----------------- Add References -----------------------" With Access.References .AddFromFile "C:\Windows\System32\DBPix20.ocx" .AddFromFile "C:\Windows\SysWOW64\DBPix20.ocx" End With ' Call a hidden SysCmd to automatically compile/save all modules. Call SysCmd(504, 16483) End Function ثم استدعيه عند فتح النموذج او في زر امر كما تشاء Call AddRefs

مشاركة مع اخي ابو عارف هذا كود تحويل الى بي دي اف في حدث تحويل تقرير الى PDF DoCmd.OutputTo acOutputReport, "NewUrine", acFormatPDF, CurrentProject.Path & "\" & "المرضى" & ".PDF", True

شوف هذا لعله يكون هو طلبك للعم هذة الطريقه طبقها لي الاستاذ القدير ابوخليل xxx.rar

تسلم اخي حلبي وعقبا لك

تسلم اخي wael_rafat وعقبا نشوفك خبير

شوف جرب هذا المرفق يطبع كل اللي في التاريخ الموجود بالنموذج حاول تعمل كم تقرير بتاريخ اليوم ولاحظ بيطبع ماهو بالتاريخ اللي موجود بالنموذج Lab.accdb

تسلم اخي ابو عارف الله يبارك بايامك اخي

جرب هذا او ارفق مثال [اسم الحقل اللي فيه الصورة] = Null

الله يبارك فيك اخي qathi وفق الله الجميع

جرب هذا Function AddMonth(XDate As Single) As Single

الله يبارك فيك اخي kaser906 واشكر المنتدى على هذة الثقه الله يبارك فيك اخي ابو البشر الله يبارك فيك ازهر عبد العزيز الله يبارك في ايامك اخي kha9009lid انت بصماتك معروفه في هذا المنتدى الله يوفق الجميع لما فيه الخير

الله يبارك فيك اخي Ali Mohamed Ali وانه لشرف كبير ان انظم الى عائله خبراء الاكسس والف شكر لهذا المنتدى الغالي على قلوبنا والله يعين الجميع على فعل الخير تسلم اخي عبد اللطيف سلوم انت كذلك ان شاء الله نشوف ترقيتك لما تبذله من مساهمات قيمه في هذا المنتدى الله يبارك فيك اخي حسين وانت كذلك تستحق هذا اللقب وان شاء الله نشوفك بلقب خبير عن قريب الله يبارك فيك اخي الله يبارك فيك اخي kaser906

الله يبارك فيكم حبايبي كلكم والله يقدرني على هذا الحمل الثفيل الف شكر لكم حبايبي كلن باسمه وصفته

الملف اللي انا اؤسلته وهو عندي يعمل بمتياز

اتفضل في حدث بعد التحديث If Me.Combo0 = "نقدي" Then Me.Combo2 = "نقطة بيع1" ElseIf Me.Combo0 = "اجل" Then Me.Combo2 = "نقطة بيع2" End If New Microsoft Access Database (3).accdb

اتفضل xxx.rar

ارفق ملف مع شرح المطلوب

لديك موضوع من قبل بنفس الطلب هنا وهناهنا 2

الف حمد لله على السلامة