ابو جودي

اتفضل يا سيدى 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

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

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

البداية اعتذر لعدم لعدم التنسيق اكثر من ذلك نظرا لضيق وقتي في انتظار رايك لان هذا الجزء ان شاء الله يعد بمثابة حجر الأساس Photo Catalog.mdb

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

ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه بس رجاء اريد كود مكتوب وليس مرفق

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

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