اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

الخبراء
  • Posts

    1,746
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    24

ابو ياسين المشولي last won the day on يناير 28 2019

ابو ياسين المشولي had the most liked content!

السمعه بالموقع

1,091 Excellent

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

  • تاريخ الميلاد 05 أغس, 1982

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    طالب علم
  • البلد
    اليمن / مقيم في السعودية حاليا
  • الإهتمامات
    اكسس

اخر الزوار

4,804 زياره للملف الشخصي
  1. جرب هكذا لازم يكون في راس النمودج 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= الصيغه
  2. اعمل شرط في الجدول تحت الرصيد اكبر من صفر <0
  3. اخي هذا حسب مافهمته من تصميم المنوذج 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
  4. 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 "تم حذف سجلات جميع الجداول" راجع هذا هنا
  5. اتفضل 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
  6. مشاركة مع اخي ابو جودي مجدل data يكون بجوار البرنامج ملفات QR.rar
  7. 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
  8. وهنا اذا كان الملف فيه رقم سري من ااخي ابو عبدالله الحلواني 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
  9. وهذا عندما يكون نفس المسار مافي داعي تكتب المسار فقط اسم البرنامج وكلمه المرور 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
×
×
  • اضف...

Important Information