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

فكرة ممتازة ليت ملف تطبيقي ليستفيد الجميع

جرب هكذا لازم يكون في راس النمودج Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long هذا كود عامله انا يفتح الصورة اللي في المجلد اللي بنفس رقم الفاتورة ShellExecute Me.hwnd, "open", CurrentProject.path & "\StPic" & "\" & Trim(str(nofatora)) & ".jpg", "", "", 1 StPic=المجلد CurrentProject.path=موقع البرنامج nofatora=رقم الموظف .jpg= الصيغه

اعمل شرط في الجدول تحت الرصيد اكبر من صفر <0

اخي هذا حسب مافهمته من تصميم المنوذج Select Case Nz(OP1, "") Case 1 DoCmd.OpenReport "RepBalanceAll", acViewPreview Case 2 DoCmd.OpenReport "RepBalanceAll", acPreview, , "[EDate]Between [Forms]![frmReportBalance]![Con1] And [Forms]![frmReportBalance]![Con2]" Case 3 If IsNull(cbFr3) Then MsgBox "يجب اختيار الفرع اولا", vbCritical, "انتبه" Me.cbFr3.SetFocus Me.cbFr3.Dropdown Exit Sub Else DoCmd.OpenReport "RepBalanceAll", acPreview, , "[EDate]Between [Forms]![frmReportBalance]![Con1] And [Forms]![frmReportBalance]![Con2]and [Fr3Name]=[Forms]![frmReportBalance]![txtNameFr3]" End If End Select Pro-Acc-S7.rar

هل تقصد هكذا 01.rar

Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllTables If Left(obj.Name, 4) <> "MSys" Then DoCmd.SetWarnings False DoCmd.RunSQL ("Delete * From " & obj.Name) DoCmd.SetWarnings True End If Next obj MsgBox "تم حذف سجلات جميع الجداول" راجع هذا هنا

اتفضل On Error GoTo أمر21_Err If MsgBox("هل تريد الحذف", vbYesNo + 48, "رسالة تنبيه") = vbYes Then With CodeContextObject On Error Resume Next DoCmd.GoToControl Screen.PreviousControl.Name Err.Clear If (Not .Form.NewRecord) Then DoCmd.RunCommand acCmdDeleteRecord End If If (.Form.NewRecord And Not .Form.Dirty) Then Beep End If If (.Form.NewRecord And .Form.Dirty) Then DoCmd.RunCommand acCmdUndo End If If (.MacroError <> 0) Then Beep MsgBox .MacroError.Description, vbOKOnly, "" End If End With Else MsgBox "تم الرجوع", 48, "رسالة تنبيه" End If أمر21_Exit: Exit Sub أمر21_Err: MsgBox Error$ Resume أمر21_Exit 20.rar

عمل ممتاز يعطيك الف عافية

مشاركة مع اخي ابو جودي مجدل data يكون بجوار البرنامج ملفات QR.rar

للاسف اخي ابا جودى في وندوز 10 لم يعمل

Dim Fso dim MyPath set fso=createObject("Scripting.fileSystemObject") Mypath=fso.GetAbsolutePathName(".") With Createobject("Access.Application") .AutomationSecurity = 1 .opencurrentdatabase mypath & "\هناء اسم برنامجك", , "هناء كلمه السر" .usercontrol=True End with او اذا كان بدون كلمه سر هكذا Dim Fso dim MyPath set fso=createObject("Scripting.fileSystemObject") Mypath=fso.GetAbsolutePathName(".") With Createobject("Access.Application") .AutomationSecurity = 1 .opencurrentdatabase mypath & "\هناء اسم برنامجك" .usercontrol=True End with

وهنا اذا كان الملف فيه رقم سري من ااخي ابو عبدالله الحلواني Dim Fso dim MyPath set fso=createObject("Scripting.fileSystemObject") Mypath=fso.GetAbsolutePathName(".") With Createobject("Access.Application") .AutomationSecurity = 1 .opencurrentdatabase mypath & "\Type here your program name", , "Type here the passward" .usercontrol=True End with

نعم عندك حق

وهذا عندما يكون نفس المسار مافي داعي تكتب المسار فقط اسم البرنامج وكلمه المرور Dim Fso dim MyPath set fso=createObject("Scripting.fileSystemObject") Mypath=fso.GetAbsolutePathName(".") With Createobject("Access.Application") .AutomationSecurity = 1 .opencurrentdatabase mypath & CurrentDirectory & "\program name", , "Type here the passward" .usercontrol=True End with

نعم اخي انه خطا اعمل استعلام الحاق ثم حوله الى كود

في الكود اوقف هذا الكود On Error Resume Next وبيطلع لك ان كود الترحيل فيه خطاء

جرب هذا ABcont.rar

هو عند الاشتراك يعطوك 5 رسايل او 3 للتجربه

بس تعرف بيكون غالي عليك اذا في ببلدك افضل دخلت شفت رسايلهم سعر الرسالة الدولية بخمس رسائل الشكر موصول لك اخي سند وماقصرت الله يحفظك

تقريبا الف ريال سعودي يساوي 264 لانه الصرف اتوقع 3.79

استاذي sandanet شوف الصورة في تقرير الوصول نعم وتقرير الوصول لا اللي هي نعم يخصم رسالتين ولا رساله فقط مافي منه اي فائده اما الخيار الثاني كمان مامنه فائده وهو يعطيك كم رساله بالدقيقه كما هو بالصورة

نعم شوف هذه الصورة

استاذ sandanet المشكله بسيطه فقط يبدل هذا & "&EnableDR=" & False & "&SentMessageID=" & False من True الى False اي انه لا يستلم تقرير الارسال بالتقرير يخصمو رساله

للاسف اخي محمد أبوعبدالله لم يشتغل على وندوز10