ابو جودي

يا دكتور @الحلبي انا في انتظار حضرتك تأتيني بالرقم القوم هنا

كيف ذلك هل يمكنك نسخ الرقم هنا يا دكتور لاقوم بالتجربة من واقع الرقم الخاص بكم

وهذا المرفق حتى تكون الاجابة بعد السؤال وباستفاضة وهذا مرفق تم فيه ايقاف عمل زر الـ TAP كذلك تم ايقاف الاتى النسخ من خلال الازرار Ctrl+C القص من خلال الازرار Ctrl+X اللصق من خلال الازرار Ctrl+V فتح محرر الأكواد من خلال الضغط على الازرار Alt+F11 هذا على سبيل المثال وليس الحصر Disabling Tab key.mdb

على كل حال سواء قمت بالتجربة وتوصلت لما تريد او لا زيادة فى الخير اليكم الطريقة البرمجية ضع السطر التالى فى حدث Form_Load KeyPreview = True لتفعيل الزر نعتمد فى الكود الاتى على امرين رئيسيين رقم الزر رقم مفتاح الشيفت وما هو استخدام رقم الزر ورقم الشفت ؟ | رقم الشفت اذا كان = 0 يتم تعطيل عمل المفتاح واذا كان رقم الشفت= 1 يعمل المفتاح مرة اخرى والرقم الخاص بزر TAP هو 9 لذلك ان اردنا تعطيله نستخدم الكود الاتى فى الحدث Form_KeyDown مع المتغير الثانى وهو رقم مفتاح الشيفت = 0 Select Case KeyCode Case 9 KeyCode = 0 MsgBox "Tab Cancelled" End Select طيب لو اردنا تفعيله رقم مفتاح الشيفت = 1 Select Case KeyCode Case 9 KeyCode = 1 MsgBox "Tab Cancelled" End Select طيب من اين علمنا رقم الزر هناك طريقتان من هلال القاعدة التى سوف اقوم بوضعها كمرفق او من خلال الموقع الاتى https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa243025(v=vs.60)?redirectedfrom=MSDN ملاحظة ممكن استخدام رقم الزر او الاسم الثابت للزر وتحصل على الاسم من الموقع من Constant Key Code Constants.zip

وممكن من خلال كود بس جرب دى الاول

وبما ان الحديث عن الرقم القومى ولتكتمل الفائدة هذا المرفق هدية ID NATIONALITY (2).mdb

وانا كذلك أضم صوتي إلى أصواتكم بالشكر والامتنان للـ @د.كاف يار لمجهوده المميز ومبادرته دائما في الرد على التساؤلات وتقديم يد العون دائما وابدا كحال كل اساتذتنا الكرام جزاهم الله خيرا شكرا لك @د.كاف يار انت وكل معلمينا الافاضل وشكر الله لكم

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

فى الروتين الاتى قمت بطباعة كل نتيجة من خلال الامر Debug.Print عدد مرات الطباعة من خلال الامر Debug.Print 14 مرة السؤال هو كيف يمكننا الخصول مثلا على النتيجة التى تخص Debug.Print digits(8 - 1) فقط Function SplitLong() Dim digits() As Long Dim intValue As String Dim i As Long Dim strValue As String intValue = "28202280101112" strValue = intValue ReDim digits(Len(strValue) - 1) As Long For i = 1 To Len(strValue) digits(i - 1) = Mid$(strValue, i, 1) Next Debug.Print " 1 >---->> "; digits(1 - 1) Debug.Print " 2 >---->> "; digits(2 - 1) Debug.Print " 3 >---->> "; digits(3 - 1) Debug.Print " 4 >---->> "; digits(4 - 1) Debug.Print " 5 >---->> "; digits(5 - 1) Debug.Print " 6 >---->> "; digits(6 - 1) Debug.Print " 7 >---->> "; digits(7 - 1) Debug.Print " 8 >---->> "; digits(8 - 1) Debug.Print " 9 >---->> "; digits(9 - 1) Debug.Print " 10 >---->> "; digits(10 - 1) Debug.Print " 14 >---->> "; digits(11 - 1) Debug.Print " 12 >---->> "; digits(12 - 1) Debug.Print " 13 >---->> "; digits(13 - 1) Debug.Print " 14 >---->> "; digits(14 - 1) End Function

على كل فى الاستعلام قم بوضع الدالة الاتية مع تغيير FldName باسم الحقل الذى يحتوى على الرقم القومى Mid([FldName],1,1) الرقم الثانى Mid([FldName],2,1) الرقم الثالث Mid([FldName],3,1) وانت كمل .....

وعليكم السلام ممكن اعرف السبب لان ده طلب غريب بصراحة

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

بضحك لأنى كنت ناوى أقول جرب الكود هذا وكنت متردد Dim fso As New FileSystemObject Dim strDesktopPath As String: strDesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") If fso.FolderExists(strDesktopPath & "\Folder2") Then: Else: fso.CreateFolder (strDesktopPath & "\Folder2") DoCmd.RunSavedImportExport "export" Dim ExceToLocC As String: ExceToLocC = "C:\Table1.xlsx" Dim ExcelCopy As String: ExcelCopy = strDesktopPath & "\Folder2\Table1.xlsx" FileCopy ExceToLocC, ExcelCopy: Kill ("C:\Table1.xlsx")

انت مش مشكلتك فى مسار سطح المكتب انت مشكلتك فى طريقة التصدير الغريبة بتاعتك وده مش تصدير دا امر نسخ وبصراحة انا مش فاهمه شغال ازاى ومن فين ضبط كودك او ابحث Dim fso As New FileSystemObject Dim strDesktopPath As String: strDesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") If fso.FolderExists(strDesktopPath & "\Folder2") Then Else fso.CreateFolder (strDesktopPath & "\Folder2") End If DoCmd.RunSavedImportExport "export" Dim strExportPath As String: strExportPath = strDesktopPath & "\Folder2\Table1.xlsx" fso.CopyFile strExportPath, True

اتفضل هذا السطر به حل مشكلتك Dim strDesktopPath As String: strDesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") حيث انه تم اسناد مسار سطح المكتب الى المتغير strDesktopPath يمكنك استدعاء المسار من خلال المتغير strDesktopPath انشئ زر امر وضع الكود الاتى يظهر لك مسار المجلد الخاص بسطح المكتب Dim strDesktopPath As String: strDesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") MsgBox (strDesktopPath) بعذ ذلك ما يأتى من كود يخصك انت

تحياتى استاذ @حسين العربى

اتفضل جرب Create Folde.accdb

طيب سؤال الموديل الواحد قد يكون لع اكثر من صورة هل تريد اضافة كل الصور التى تخص الموديل الى امر الانتاج ؟!

المرفق الجديد -------------------- تم اضافة عدة استعلامات لعمل نموذج مستمر لعرض الصور على هيئة كتالوج النموذج الخاص بعرض الصور اسمه frmImages رجاء اضف اكثر من 10 صورة وافتح نموذج frmImages وهذه النتيجة من تجربتى Photo Catalog v3.1.mdb

اتفضل

اولا دى رسالة تقيد بنجاح تنفيذ العملية انظر بجوار قاعدة الملبيانات تجد مجلد باسم Library Files افتحه تجد بداخلة مجلد اخر باسم Pictures افتحه تجد كل الصور التى تريد اضافتها يمكن ان تضيف اكثر من صورة فى المرة الواحدة والان بعد ان تم اضافة الصور الى المجلد انظر الى اسم الصورة تجدها بدأت برقم الموديل الخاص بالمنتج من واقع النموذج حسب السجل الحالى انظر الان فى قاعدة البيانات الى الجدول باسم tblImages تجد نفس عدد الصور فى الجدول مساوى لعددها فى المجلد الخاص بالصور وهذا نصف المسار الذى سوف يتم استخدامة مستقبلا ان شاء الله الان حاول اضافة نقس الصور مرة اخرى لن يتم عمل تكرار للصور لا فى المجلد ولا فى الجدول حتى لو حاولت اضافة نفس الصورة او نفس الصور مليون مرة

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

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

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

والان المرفق الجديد وتم مراعاة الآتي عدم الاعتماد على المكتبات المدمجة بالأكسس والتي تؤدى الى مشاكل باختلاف النسخ اذا تم التعامل مع نسخ اقل في الإصدار عدم الاعتماد كذلك على دوال الـ API والتي تسبب مشكل مع اختلاف انوية الاكسس X32 , x64 إمكانية ارفاق أي عدد من الصور الى مجلد يتم انشاءه آليا بجوار القاعدة في نفس مسارها دون تكرار الصور عند محاولة تكرارها الصور سوف تبدأ دائما برقم الموديل إضافة أسماء الصور في الجدول الخاص بها وهو الذى سوف يتم الاعتماد عليه مستقبلا في عرض الصور على هيئة كتالوج والذى سوف يتم من خلاله استعراض الصور في زوايا البرنامج Photo Catalog v2.4.mdb