بحث مخصص من جوجل فى أوفيسنا
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
طالب علم
-
البلد
اليمن / مقيم في السعودية حاليا
-
الإهتمامات
اكسس
اخر الزوار
-
الصادق ـ ح started following ابو ياسين المشولي
-
هاشم العلوي started following ابو ياسين المشولي
-
فتح فولدر في الويندوز بناء علي رقم الملف الموظف
ابو ياسين المشولي replied to حسين العربى's topic in قسم الأكسيس Access
جرب هكذا لازم يكون في راس النمودج 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
-
خطأ استخدامي للدالة iif مع between
ابو ياسين المشولي replied to عمر ضاحى's topic in قسم الأكسيس Access
اخي هذا حسب مافهمته من تصميم المنوذج 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 -
خطأ استخدامي للدالة iif مع between
ابو ياسين المشولي replied to عمر ضاحى's topic in قسم الأكسيس Access
هل تقصد هكذا 01.rar -
كيف استطيع حذف بيانات مجموعة من الجداول عن طريق كود
ابو ياسين المشولي replied to أبو امين's topic in قسم الأكسيس Access
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
-
شخابيط وافكار : (Qr Code ) فكرة جديدة ☺
ابو ياسين المشولي replied to ابو جودي's topic in قسم الأكسيس Access
مشاركة مع اخي ابو جودي مجدل data يكون بجوار البرنامج ملفات QR.rar -
تغير ايقونه الاكسس في وندوز10
ابو ياسين المشولي replied to ابو ياسين المشولي's topic in قسم الأكسيس Access
للاسف اخي ابا جودى في وندوز 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
-
اداة تخفيض مستوى امان اكسيس 2019
ابو ياسين المشولي replied to نيفين محمد 2021's topic in قسم الأكسيس Access
نعم عندك حق -
اداة تخفيض مستوى امان اكسيس 2019
ابو ياسين المشولي replied to نيفين محمد 2021's topic in قسم الأكسيس Access
وهذا عندما يكون نفس المسار مافي داعي تكتب المسار فقط اسم البرنامج وكلمه المرور 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