ابو جودي

ارفق الملف ومعاه ربع جنيه وانا اساعدك

اهلا اهلا اهلا استاذى الحبيب طال غيابك مليون مرحب انا باستخدم الكود الاتى فى وحدة نمطية مع مراعاة تغيير البيانات الاتية فى رأس الموديول اسم التطبيق AppName اسم الايقونة بدون الامتداد icoName وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon() ويتم استدعاء الروتين من خلال Call Xicon onst AppName = "www.officena.net" Const icoName = "officenaIco" Public Function AppIcon() AppIcon = CurrentProject.Path & "\" & icoName & ".ico" End Function Public Function AccessIcon() AccessIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Debug.Print AccessIcon End Function Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function Function Xicon() On Error GoTo ErrHandler Dim dbs As Object Set dbs = CurrentDb() Dim intX As Integer Const DB_Text As Long = 10 ' AppTitle intX = AddAppProperty("AppTitle", DB_Text, AppName) ' AppIcon Dim Chk Dim MyIcon As String Set Chk = CreateObject("Scripting.FileSystemObject") If Chk.FileExists(AppIcon()) = False Then MyIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Else MyIcon = AppIcon() End If intX = AddAppProperty("AppIcon", DB_Text, MyIcon) dbs.Properties("UseAppIconForFrmRpt") = 1 Application.RefreshTitleBar exitProc: Exit Function ErrHandler: If Err = 3270 Then Resume Next Else MsgBox Err & Err.Description Resume exitProc End If End Function وهذا مرفق للتجربة testIcon.zip

ماشاء الله افكار رائعة

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

ويمكن استخدام الـ Unicode داخل محرر الاكواد وهذا موقعالـ Unicode https://www.ssec.wisc.edu/~tomw/java/unicode.html ويمكن استخدام الـ Asccii code كذلك

السلام عليكم ورحمة الله وبركاته هل كان في مشكلة بالمنتدى امس حاولت المشاركات بالرد على موضوعات او انشاء موضوع جديد ولكن واجهت مشكلة

اتفضل أو

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

ياباشا اصلا انت كاتب اسامى الحقول بالانجليزى بص هو ممكن تشرح ببساطه انت عاوز توصل لايه بلاش تحط فكرتك انت وتجبرنا نوصلك لـ نتيجة بناء على فكرتك انت لان شكلك انت بتفكر غلط وكده هتجيب لنا جنان اكثر من اللى احنا فيه

اتفضل يا سيدى وبكده بالنسبة لى الموضوع صار منتهى Photo Catalog v4.0.mdb

موضوع البخور هذا موضوع كبير بينى وبين استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr فقط اداعب استاذى وامرح معه لا عليك من موضوع البخور يا دكتور طيب يا دكتور انا تقريبا حليت المشكلة بالمرفق الأخير هل قمت بالتجربة المرفق مرة أخرى من هنا حذف من الفرعى (1).accdb

علشان مش فاهم والله انت عاوز هنا يجيب كل اسماء الحقول كده تقصد

أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @jjafferr اعتقد والله اعلم ان المشكلة تكمن فى الاتى عند الضغط على زر جديد يتم اضافة الترقيم التلقائى حتى لو لم يتم ملئ البيانات المطلوبة وطبعا عند الضغط على اضافة الى الفاتورة كذلك يتم فى كل مرة الحاق البيانات الى الجدول master من الحقول التى على النموذج الرئيسي وطبعا مع كل ضغطة زر حتى وان كانت الحقول جميعا فارغة ماعدا رقم الفاتورة يتم الحاق سجلات جديدة برقم الفاتورة فقط

وينه البخور هاد وقته

عروستى

لا ما اريد شكر كثيراااااااااااااااااااااا لك ولأصحاب البخور

اتفضل يا دكتور تم تعديل الاستعلام كذلك حذف من الفرعى (1).accdb

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

جرب كده يا دكتور حذف من الفرعى.accdb

يا دكتور جرب استبدال الكود تبعك اللى على Listbox بالكود الاتى Dim mydb As dao.Database Dim rs As dao.Recordset Dim rss As dao.Recordset Dim str As String str = " [list] = '" & List20 & "'" Debug.Print List20 Set mydb = CurrentDb Set rs = mydb.OpenRecordset("analysis", dbOpenDynaset) rs.FindFirst str Set rss = mydb.OpenRecordset("special-det") rss.AddNew rss![id] = Me.id rss![Analysis] = rs.Fields(2) rss![normal] = rs.Fields(3) rss![Tam] = rs.Fields(4) rss.Update Me.special22.Requery

ببساطة تريد عمل فلتر على القيم True , False وكما اشار استاذى القدير @ناقل المرفق بصراحة اتعجب ممن يريد اجابه ولا يريد تعب نفسه بوضع مرفق ويستسهل تعب الاخرين الذين يريدون مساعدته وعلى من يريد تقديم المساعدة ان يحضر البخور العمانى ويضرب الودع ليفهم الية العمل وطريقة التفكير التى تمت بها القاعدة وللاسف ما عندى بخور عمانى الان

ممكن اطلع على مرفقكم استاذى

لا شكر على واجب أستاذي الفاضل ولكن فضلا وكرما وليس امرا تأشر بأفضل إجابة للأستاذ ناقل.. ليكون من المعلوم انه تمت الإجابة على السؤال

هذا كلام مفهوم وان شاء الله مقدور عليه بأمر الله ولمن استوقفتني تلك العبارة فعلا لم اقدر على الفهم

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