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

ابو جودي

أوفيسنا
  • Posts

    5,579
  • تاريخ الانضمام

  • Days Won

    123

Community Answers

  1. ابو جودي's post in انشاء نموذج لتوليد سجلات بناءا على معطيات was marked as the answer   
    اتفضل 
    توليد سجلات (3).accdb
  2. ابو جودي's post in طلب المساعدة في توزيع قيمة حقل بالنموذج الرئيسي الى حقول النموذج الفرعي عند تحديد السجل was marked as the answer   
    جزانا الله واياكم وكل وامة محمد صل الله عليه وسلم خير الجزاء ان شاء الله 
    انا ما لى علاقة بالتصميم نهائى ولا اعرف عنه شئ فصاحبه ادرى بافكاره .... أهل مكة أدرى بشعابها 
    فقط قمت بتحقيق المطلوب على المرفق 
    وهذا تعديل جديد للعمل بطريقة عكسية فى حالة الغاء التاشير 

     
     
    Microsoft Access3.zip
  3. ابو جودي's post in شخابيط وأفكار : ( رمز الاستجابة السريع QR CODE حسب متطلبات هيئة الضرائب السعودية ) - بدعم جافا - ☺ was marked as the answer   
    طيب رجاء جرب المرفق الاتى تم تناول التعامل مع تنسيق الوقت بطريقة اخرى
    وللعلم انا جربته وما بيظهر عندى انه متوافق على تطبيقين لان دفتر مو متوفر ولم اجده على متجر بلاى
    E-Invoicing.zip
  4. ابو جودي's post in مساعدة في وضع المؤشر في آخر مربع البحث مع تفعيل خيار (الانتقال إلى بداية الحقل) was marked as the answer   
    غير للكود ده
    Private Sub tx0_Change() On Error GoTo Proc_Err Dim txtsearch As String: txtsearch = Me.tx0.Text Me.Filter = "RAWY_NAME" & " Like ""*" & txtsearch & "*""": Me.FilterOn = True Me.tx0.SetFocus Me.tx0 = txtsearch Me.tx0.SelStart = Len(txtsearch) Exit Sub Proc_Err: Select Case Err.Number Case Is = 2185 Me.FilterOn = False Me.tx0.SetFocus Me.tx0.SelStart = Me.tx0.SelLength Beep MsgBox "There are no results" Case Else MsgBox "Error " & Err.Number & vbNewLine & Err.Description End Select End Sub  
  5. ابو جودي's post in طلب برمجة فورم طباعة الاشعارات بشروط was marked as the answer   
    الشكر لله ...
    اهلا بك 
    اتفضل اتمنى كون قدرت افهم طلبك
    بس انت باقى لك الحفول اللى بالتقرير rpt2 تضبط مصدر بياناتها
    ومصدر بيانات التقرير هو الاستعلام qryRpt2 تقدر كذلك تقوم بالتعديلات المناسبة لاختيار الحقول التى تريدها
    reglemen1 (4).accdb
  6. ابو جودي's post in طباعة الفترات المحددة was marked as the answer   
    اتفضل  
    ان شاء الله تلاقى طلبك
     
    reglemen1 (2) .accdb
  7. ابو جودي's post in اخفاء اشرطة التمرير والتمرير من خلال عجلة الماوس ( الفأرة ) was marked as the answer   
    ضع الكود الاتى فى موديول  
    Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer On Error GoTo Err_Handler Dim strMsg As String If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then RunCommand acCmdSaveRecord RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext) DoMouseWheel = Sgn(lngCount) End If Exit_Handler: Exit Function Err_Handler: Select Case Err.Number Case 2046& Resume Next Case 3314&, 2101&, 2115& strMsg = "Cannot scroll to another record, as this one can't be saved." MsgBox strMsg, vbInformation, "Cannot scroll" Case Else strMsg = "Error " & Err.Number & ": " & Err.Description MsgBox strMsg, vbInformation, "Cannot scroll" End Select Resume Exit_Handler End Function ثم فى النموذج فى حدث On Mouse Wheel ضع السطر التالى
    Call DoMouseWheel(Me, Count)  
  8. ابو جودي's post in سؤال عن : نسخ ملف dll من مسار محدد الى المسار C:\Windows\System32 was marked as the answer   
    وحتى تعم الفائدة الحمد لله توصلت للاتى لكل من يهتم بعمل مثل تلك الباتشات
    المميزات
    العمل على كلتا النواتان للويندوز 32 , 64 بت الشغيل حتى لو لم يتم تشغيل الملف كمسؤول يتم اغلاق الملف واعادة فتحه مره اخرى كمسؤول تلقائيا نسخ الملفات حتى لو ارد المبرمج ان ينسخها الى ملفات النظام فى الويندوز تسجيل المكتبات يتم فقط وضع الملف فى مجلد المكتبات وتغيير اسمائها فى الكود تبعا لاسماء المكتبات 
    @echo off CLS :init setlocal DisableDelayedExpansion set cmdInvoke=1 set winSysFolder=System32 set "batchPath=%~0" for %%k in (%0) do set batchName=%%~nk set "vbsGetPrivileges=%temp%\OEgetPriv_%batchName%.vbs" setlocal EnableDelayedExpansion :checkPrivileges NET FILE 1>NUL 2>NUL if '%errorlevel%' == '0' ( goto gotPrivileges ) else ( goto getPrivileges ) :getPrivileges if '%1'=='ELEV' (echo ELEV & shift /1 & goto gotPrivileges) ECHO. ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%" ECHO args = "ELEV " >> "%vbsGetPrivileges%" ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%" ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%" ECHO Next >> "%vbsGetPrivileges%" if '%cmdInvoke%'=='1' goto InvokeCmd ECHO UAC.ShellExecute "!batchPath!", args, "", "runas", 1 >> "%vbsGetPrivileges%" goto ExecElevation :InvokeCmd ECHO args = "/c """ + "!batchPath!" + """ " + args >> "%vbsGetPrivileges%" ECHO UAC.ShellExecute "%SystemRoot%\%winSysFolder%\cmd.exe", args, "", "runas", 1 >> "%vbsGetPrivileges%" :ExecElevation "%SystemRoot%\%winSysFolder%\WScript.exe" "%vbsGetPrivileges%" %* exit /B :gotPrivileges setlocal & cd /d %~dp0 if '%1'=='ELEV' (del "%vbsGetPrivileges%" 1>nul 2>nul & shift /1) mode 95,40 color 0C echo ---www.officena.net------------------------------- echo ---Mohammes Essam--------------------------------- set location=%cd% reg Query "HKLM\Hardware\Description\System\CentralProcessor\0" | find /i "x86" > NUL && set OS=32BIT || set OS=64BIT echo MachineSecurityLevel2003.reg echo UserSecurityLevel2003.reg echo F| XCOPY %location%\DBPix20.ocx %SystemRoot%\System32\DBPix20.ocx /h /f /y echo F| XCOPY %location%\barcodex.ocx %SystemRoot%\System32\barcodex.ocx /h /f /y echo regsvr32 %SystemRoot%\System32\DBPix20.ocx echo regsvr32 %SystemRoot%\System32\barcodex.ocx if %OS%==64BIT echo MachineSecurityLevel2003.reg if %OS%==64BIT echo UserSecurityLevel2003.reg if %OS%==64BIT echo F| XCOPY %location%\DBPix20.ocx %SystemRoot%\syswow64\DBPix20.ocx /h /f /y if %OS%==64BIT echo F| XCOPY %location%\barcodex.ocx %SystemRoot%\syswow64\barcodex.ocx /h /f /y if %OS%==64BIT echo regsvr32 %SystemRoot%\syswow64\DBPix20.ocx if %OS%==64BIT echo regsvr32 %SystemRoot%\syswow64\barcodex.ocx pause CLS color 1E echo "----------------------------------------------------------------------------------------"; echo Libraries copied and registered successfully pause @echo on  
    وتسهيلا على إخواني 
     
    Xcopy Command Syntax
    Use the following syntax for the xcopy command:
    xcopy source [destination] [/a] [/b] [/c] [/d [:date]] [/e] [/f] [/g] [/h] [/i] [/j] [/k] [/l] [/m] [/n] [/o] [/p] [/q] [/r] [/s] [/t] [/u] [/v] [/w] [/x] [/y] [/-y] [/z] [/exclude:file1[+file2][+file3]...] [/?]
    Xcopy Command Options Item Description source This defines the files or top level folder that you want to copy from. The source is the only required parameter. Use quotes around source if it contains spaces. destination This option specifies the location where the source files or folders should be copied to. If no destination is listed, the files or folders will be copied to the same folder you run the xcopy command from. Use quotes around destination if it contains spaces. /a Using this option will only copy archive files found in source. You can not use /a and /m together. /b Use this option to copy the symbolic link itself instead of the link target. This option was first available in Windows Vista. /c This option forces xcopy to continue even if it encounters an error. /d [:date] Use the command with /d option and a specific date, in MM-DD-YYYY format, to copy files changed on or after that date. You can also use this option without specifying a specific date to copy only those files in source that are newer than the same files that already exist in destination. This is helpful when using xcopy to perform regular file backups. /e When used alone or with /s, this option is the same as /s but will also create empty folders in destination that were also empty in source. The /e option can also be used together with the /t option to include empty directories and subdirectories found in source in the directory structure created in destination. /f This option will display the full path and file name of both the source and destination files being copied. /g Using xcopy with this option allows you to copy encrypted files in source to a destination that does not support encryption. This option will not work when copying files from an EFS encrypted drive to a non-EFS encrypted drive. /h The command doesn't copy hidden files or system files by default but will when using this option. /i Use the /i option to force xcopy to assume that destination is a directory. If you don't use this option, and you're copying from source that is a directory or group of files and copying to destination that doesn't exist, the xcopy command will prompt you enter whether destination is a file or directory. /j This option copies files without buffering, a feature useful for very big files. This option was first available in Windows 7. /k Use this option when copying read-only files to retain that file attribute in destination. /l Use this option to show a list of the files and folders to be copied... but no copying is actually done. The /l option is useful if you're building a complicated command with several options and you'd like to see how it would function hypothetically. /m This option is identical to the /a option but xcopy will turn off the archive attribute after copying the file. You can not use /m and /a together. /n This option creates files and folders in destination using short file names. This option is only useful when you're using the command to copy files to a destination that exists on an drive formatted to an older file system like FAT that does not support long file names. /o Retains ownership and Access Control List (ACL) information in the files written in destination. /p When using this option, you'll be prompted before the creation of each file in destination. /q A kind of opposite of the /f option, the /q switch will put xcopy into "quiet" mode, skipping the on-screen display of each file being copied. /r Use this option to overwrite read-only files in destination. If you don't use this option when you want to overwrite a read-only file in destination, you'll be prompted with an "Access denied" message and the command will stop running. /s Use this option to copy directories, subdirectories, and the files contained within them, in addition to the files in the root of source. Empty folders will not be recreated. /t This option forces the xcopy command to create a directory structure in destination but not to copy any of the files. In other words, the folders and subfolders found in source will be created but there we be no files. Empty folders will not be created. /u This option will only copy files in source that are already in destination. /v This option verifies each file as it's written, based on its size, to make sure they're identical. Verification was built in to the command beginning in Windows XP, so this option does nothing in later versions of Windows and is only included for compatibility with older MS-DOS files. /w Use the /w option to present a "Press any key when ready to being copying file(s)" message. The command will begin copying files as instructed after you confirm with a key press. This option is not the same as the /p option which asks for verification before each file copy. /x This option copies file audit settings and System Access Control List (SACL) information. You imply /o when you use the /x option. /y Use this option to stop the command from prompting you about overwriting files from source that already exist in destination. /-y Use this option to force the command to prompt you about overwriting files. This might seem like a strange option to exist since this is the default behavior of xcopy but the /y option may be preset in the COPYCMD environment variable on some computers, making this option necessary. /z This option allows the xcopy command to safely stop copying files when a network connection is lost and then resume copying from where it left off once the connection is reestablished. This option also shows the percentage copied for each file during the copy process. /exclude:file1[+file2][+file3]... This option allows you to specify one or more file names containing a list of search strings you want the command to use to determine files and/or folders to skip when copying. /? Use the help switch with xcopy to show detailed help about the command. Executing xcopy /? is the same as using the help command to execute help xcopy.  
  9. ابو جودي's post in ]داله تفريغ الرقم القومي الي حقول was marked as the answer   
    اتفضل يا سيدى 
     
    ID NATIONALITY.mdb
  10. ابو جودي's post in تعديل في كود عمل نسخة احتياطية was marked as the answer   
    اتفضل
     
  11. ابو جودي's post in أريد حل لعمل دالة أو كود لاضافة رقم بناءً على نص بشرط معين was marked as the answer   
    اتفضل بكل طرق الحلول الممكنة 
    ولكن نصيحة تجنب استخدام المسافات بين الكلمات فى تسمية الجدول وكذلك تجنب تسمية الحقول داخل الجداول باللغة العربية حتى لا تواجه مشاكل مستقبلا انت فى غنى عنها
    مثال.accdb
  12. ابو جودي's post in اضافة رقم لكل اسم لكن بشرط was marked as the answer   
    اتفضل 
    بسيطة غير للكود الاتى
    On Error GoTo Oops Dim db As dao.Database: Set db = CurrentDb() Dim rs As dao.Recordset: Set rs = db.OpenRecordset("file-1") Dim intSpID As Long: intSpID = 0 With rs .MoveFirst Do intSpID = intSpID + 1 rs.Edit rs![الرقم الحسابي] = 11 & intSpID rs.Update .MoveNext Loop Until .EOF .Close End With db.Close function_exit: Set rs = Nothing Set db = Nothing Exit Sub Oops: ' Handle the errors here GoTo function_exit  
  13. ابو جودي's post in معادلة رياضية was marked as the answer   
    على كل حال جرب المرفق ولى عودة ان كان هناك جدوى
     
    12.accdb
  14. ابو جودي's post in عمل قائمة منسدلة بالتواريخ was marked as the answer   
    اتفضل 
     بدون اى جداول فقط حسب الوجدة النمطية 
     
    3Dates.accdb
  15. ابو جودي's post in عمل قائمة منسدلة بالتواريخ was marked as the answer   
    اتفضل 
     بدون اى جداول فقط حسب الوجدة النمطية 
     
    3Dates.accdb
  16. ابو جودي's post in عمل قائمة منسدلة بالتواريخ was marked as the answer   
    اتفضل 
     بدون اى جداول فقط حسب الوجدة النمطية 
     
    3Dates.accdb
  17. ابو جودي's post in مساعدة في دالة Dcount was marked as the answer   
    اتفضل غير الكود بتاعك بالكود ده 
    If Nz(DCount("*", "typeDa2wa", "[type]='" & Me![type] & "'"), 0) = 1 Then MsgBox "بيانات مكررة" Exit Sub Else Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("typeDa2wa") rs.AddNew rs![type] = Me.type rs.Update Me.type = "" End If  
  18. ابو جودي's post in المساعدة في Progress bar المرفق was marked as the answer   
    اتفضلى يا استاذه 
    progressbar.accdb
  19. ابو جودي's post in كيفية الكتابة على قيم في الاستعلام was marked as the answer   
    عنوان الموضوع : كيفية الكتابة على قيم في الاستعلام
    وحضرتك طلبت 
    وطلبت

     
    انا بصراحة صيرت ما افهم شئ وغير قادر على محاولة الفهم حتى 
  20. ابو جودي's post in المساعدة في حل رسالة خطأ was marked as the answer   
    استبدلها بـ 
    dim dBase As DAO.Database  
  21. ابو جودي's post in ارجو المساعده في حل هذه المشكلة was marked as the answer   
    لابد من اضافة المكتبة
    Microsoft ActiveX Data Objects 2.5 Library
    ools > References > Check the checkbox in front of "Microsoft ActiveX Data Objects 2.5 Library" Other libraries that work include: Microsoft ActiveX Data Objects 2.6 Library Microsoft ActiveX Data Objects 2.7 Library Microsoft ActiveX Data Objects 2.8 Library Microsoft ActiveX Data Objects 6.1 Library  
  22. ابو جودي's post in ممكن اعرف سبب هذا الخطا عند كتابة حرف مع الرقم was marked as the answer   
    الحل كالاتى ادخل الى النموذج فى وضع التصميم
    ومربع النص هذا اسمه فى النموذج مربع_تحرير_وسرد95
    من الخصائض الخاصة به فقط امسح General Number 
     

  23. ابو جودي's post in طلب مساعدة عن هذه الرسالة was marked as the answer   
    https://support.microsoft.com/ar-sa/office/-مواصفات-access-0cf3c66f-9cf2-4e32-9568-98c1025bb47c
  24. ابو جودي's post in عند تسجيل بيانات شخص تظهر معلومات اقاربه was marked as the answer   
    تمت كتابة الرسائل بالعربية ولضيق وقتى لم احولها لـ unicode  ولكن لا انصح بكتابة العربى داخل محرر الاكواد
    تم تنقيح وتعديل بعد الاخطاء
    تم تفعيل الحذف ويتم معه حذف السجلات الفرعية والمرتبطة بالسجل الرئيسي والصورة
    تم تعديل ظهور الصورة بالتقرير 
    Data Registration (v. 3).mdb
  25. ابو جودي's post in النسخ الاحتياطي لقاعدة البيانات was marked as the answer   
    واتفضل
    هذا مثال فقط ينقصه اعادة ربط الجداول المرتبطة من قاعدة الخلفية فقط حتى يعمل النسخ الاحتياطى على اكمل وجه
     
     
     
    frontend.mdb db.mdb
×
×
  • اضف...

Important Information