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

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

حذف المشاركة

اخي الكريم استخدم داله 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

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

برغم الاخ القاضي لم يرد الى الان هذا اخر تعديل واظنه هو الافضل ولن اجد غير هذا تحياتي InvoiceSale_83.accdb

العفو وبالتوفيق

بعد تفكير واخذ وعطاء عرفت المشكله انه لايمكن ان يعمل 2 اكواد بنفس الوقت وهو كود الحذف والتحديث والسبب هو كود تجاوز الاخطاء وهو On Error Resume Next وهذا خطاء من اخونا القاضي ونحن لم نتبه له ''On Error Resume Next On Error GoTo Err_Delete_Click If IsNull([ItemID]) Then MsgBox "لا يـوجـد صـنـف لـحـذفـة", vbInformation, "تنبيـــــة تحقق " ElseIf IsNull([QuantityS]) Or [QuantityS] = Null Or [QuantityS] = "" Or [QuantityS] = 0 Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Else If Not IsNull([ItemID]) Then If MsgBox(" هـــل تـــريـــد حـذف الصـنـف ( " & ([ItemName]) & " ) ؟ " & vbCrLf & " " & vbCrLf & " انت على وشك الحذف " & vbCrLf & " لا يمكنك التراجع اذا ضغطت نعم ", vbYesNo, "تأكــــــــــــيـد الحذف") = vbYes Then Me.balance2 = Nz(Me.QuantityA) + Nz(Me.QuantityS) Me.qd = Nz(Me.ItemID) DoCmd.SetWarnings False DoCmd.OpenQuery "BackItemsSale_Q" Dim objAcc As Access.Application Set objAcc = GetObject(CurrentDb().Name) objAcc.DoCmd.OpenTable "InvoiceTT", acViewNormal objAcc.DoCmd.GoToRecord acDataTable, "InvoiceTT", acGoTo, 1 objAcc.DoCmd.RunCommand acCmdSelectRecord objAcc.DoCmd.RunCommand acCmdDeleteRecord ' هنا المشكلة الكود لا يقوم بحذف السجل DoCmd.Close acTable, "InvoiceTT", acSaveYes Set objAcc = Nothing DoCmd.Requery Exit_Delete_Click: Exit Sub Err_Delete_Click: MsgBox Err.Description Resume Exit_Delete_Click DoCmd.SetWarnings True End If End If End If Me.Refresh SysCmd acSysCmdClearStatus InvoiceSale_82.accdb