ابو جودي

انظر الى الموضوع هذا ان شاء الله تجد فيه مرادك 
 
وهذا التطبيق على قاعدتك .. اتفضل 
 
Database11 v2.accdb

اولا هذا منتدى الاكسس وليس الاكسل 
ولكن على كل حال اليك الحل 
وينقل الموضوع الى جيران الهنا فى منتدى الاكسل 
وعذرا ان لم استخدم الدوال بشكل صحيح او ان كان هناك اختصار للحل بطريقة افضل 
انا لا اعلم اى شئ عن الاكسل تقريبا تلك المرة الاولى التى احاول فيها التعامل مع ملفات الاكسل ولكن بحثت على الانترنت وهذا تطبيق طويلب علم مجتهد  لذلك ارجو السماح
وعلى الله حد يتريق على الحل اللهم انى ناوى اصوم رمضان هاهاهاهاهاها
 
للعلم استخدمت الدالة SUMIF  لحساب اجمالى المنتجات للمندوب
والدالة SUMIFS لحساب اجمالى المنتج المطلوب استثناءه
ثم قمت بعمل طرح اجمالى المنتج المطلوب استثناءه من اجمالى المنتجات للمندوب للحصول على النتيجة المرجو الوصول اليها
كل عام وانتم بخيــــــــر 
 
Book1.xlsx

بسيطة للقاعدة الخلفية
=DLookUp("Database","MSysObjects","Type=6 ")  

اتفضل 
 
Req_Link_img.accdb

راجع الموضوع الاتى 
لو تعذر عليك التطبيق ارفق قاعدة بياناتك
 

وهذه مشاركتى المتواضعة
يتم وضع الكود فى موديول
ويتم استدعاء الكود من خلال السطر الاتى مع الاخذ فى الاعتبار كتابة اسم النموذج الفرعى frmSub
Call SwitchDefaultView(Me, "frmSub")  
Public Sub SwitchDefaultView(frm As Form, ByVal strSubFrmName As String) Dim sFrm As String Dim sFrm2 As String On Error Resume Next frm.Dirty = False If Err.Number <> 0 Then MsgBox Err.Description: Exit Sub On Error GoTo 0 sFrm = frm.Name DoCmd.Close acForm, sFrm, acSaveYes sFrm2 = strSubFrmName DoCmd.OpenForm sFrm2, acDesign, , , , acHidden If Forms(sFrm2).DefaultView = 1 Then Forms(sFrm2).DefaultView = 2 DoCmd.Close acForm, sFrm2, acSaveYes ElseIf Forms(sFrm2).DefaultView = 2 Then Forms(sFrm2).DefaultView = 1 DoCmd.Close acForm, sFrm2, acSaveYes End If DoCmd.OpenForm sFrm, acNormal, , , , acWindowNormal End Sub  
SwitchViewsubForm.accdb

اتفضل الكود يكون كالأتى :
Private Sub Form_Error(DataErr As Integer, Response As Integer) 'to know error number use next line 'MsgBox DataErr & vbCrLf & Err.Description Response = acDataErrContinue If DataErr = 3314 Then Response = True: MsgBox "You can write the of message here as you like" End Sub وهذا التطبيق على مرفقكم 
 
id primary key.accdb

طيب مبدئيا كده ركز فى الكود
انت بدأت الكود بـ  If IsNull(Me.cbAproved) Then
وبعد كده عاوزة يجلب البيانات من App1 = Me.cbEmpNo.Column(1)
ركز كده مع اللون الاحمر 
طب ايه اللى جاب القلعة جمب البحر 
Dim str As String If IsNull(Me.cbAproved) Then Me.App1 = "" Me.App2 = "" Me.App3 = "" Me.App4 = "" str = "Select * from QryforREP_ALL_EMP" Me.RecordSource = str Exit Sub Else App1 = Me.cbEmpNo.Column(1) App2 = Me.cbEmpNo.Column(2) App3 = Me.cbEmpNo.Column(3) App4 = Me.cbEmpNo.Column(4) str = "Select * from QryforREP_ALL_EMP where [Emp_No]=" & Me.cbAproved.Column(0) Me.RecordSource = str End If  
الكود الصحيح يكون كالاتى ... وياريت نركز شوية واحنا شغالين ماشى 
Dim str1 As String If IsNull(Me.cbAproved) Then Me.App1 = "" Me.App2 = "" Me.App3 = "" Me.App4 = "" str1 = "Select * from QQQQ" Me.RecordSource = str1 Exit Sub Else App1 = Me.cbAproved.Column(1) App2 = Me.cbAproved.Column(2) App3 = Me.cbAproved.Column(3) App4 = Me.cbAproved.Column(4) str1 = "Select * from QQQQ where [Emp_No]=" & Me.cbAproved.Column(0) Me.RecordSource = str1 End If وهذا ملفك بعد التعديل 
 
test1001 -Update.accdb

المشكلة من التقعيل الغير قانونى 
استخدم اداة تفعيل اخرى غير المستخدمة حاليا وبعد التفعيل قم بعمل تحديث اونلاين للاوفيس

مبدئيا تجربة توزيع الطلاب على عدد المدرجات
فى انتظار ابداء الرأى لنرى ما بعد ذلك 
split students.accdb

الملف موجود فى مشاركة الباش مهندس @Eng.Qassim 
ورابط المرفق مرة أخرى
 
Converter Arabic and Unicode (v. 3).accdb

الملف موجود فى مشاركة الباش مهندس @Eng.Qassim 
ورابط المرفق مرة أخرى
 
Converter Arabic and Unicode (v. 3).accdb

الملف موجود فى مشاركة الباش مهندس @Eng.Qassim 
ورابط المرفق مرة أخرى
 
Converter Arabic and Unicode (v. 3).accdb

بسيطه انت بس اجعل مصدر بيانات التقرير هو الاستعلام Qcdc

اتفضل 
توليد سجلات (3).accdb

جزانا الله واياكم وكل وامة محمد صل الله عليه وسلم خير الجزاء ان شاء الله 
انا ما لى علاقة بالتصميم نهائى ولا اعرف عنه شئ فصاحبه ادرى بافكاره .... أهل مكة أدرى بشعابها 
فقط قمت بتحقيق المطلوب على المرفق 
وهذا تعديل جديد للعمل بطريقة عكسية فى حالة الغاء التاشير 

 
 
Microsoft Access3.zip

طيب رجاء جرب المرفق الاتى تم تناول التعامل مع تنسيق الوقت بطريقة اخرى
وللعلم انا جربته وما بيظهر عندى انه متوافق على تطبيقين لان دفتر مو متوفر ولم اجده على متجر بلاى
E-Invoicing.zip

غير للكود ده
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  

الشكر لله ...
اهلا بك 
اتفضل اتمنى كون قدرت افهم طلبك
بس انت باقى لك الحفول اللى بالتقرير rpt2 تضبط مصدر بياناتها
ومصدر بيانات التقرير هو الاستعلام qryRpt2 تقدر كذلك تقوم بالتعديلات المناسبة لاختيار الحقول التى تريدها
reglemen1 (4).accdb

اتفضل  
ان شاء الله تلاقى طلبك
 
reglemen1 (2) .accdb

ضع الكود الاتى فى موديول  
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)  

وحتى تعم الفائدة الحمد لله توصلت للاتى لكل من يهتم بعمل مثل تلك الباتشات
المميزات
العمل على كلتا النواتان للويندوز 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.  

اتفضل يا سيدى 
 
ID NATIONALITY.mdb

اتفضل
 

اتفضل بكل طرق الحلول الممكنة 
ولكن نصيحة تجنب استخدام المسافات بين الكلمات فى تسمية الجدول وكذلك تجنب تسمية الحقول داخل الجداول باللغة العربية حتى لا تواجه مشاكل مستقبلا انت فى غنى عنها
مثال.accdb