Foksh

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

النموذج يفتح بهذا الشكل

وضح هذه النقطة اذا سمحت ..

أختنا الكريمة صفاء ، أول حاجة محدش هنا ضدك أو ضد أي حد صدقيني ,, والأهم في الموضوع انك لاحظتي اختلاف وقلة الردود في مواضيعك بسبب اسلوبك اللي يخلي أي واحد بحاول يساعد ما يكررهاش تاني لأنه بيتوه في اللي انتي عايزاه . وفكرة انك قايلالي فدي بحد ذاتها مش صحيحة لأني في رسائل الخاص ما بينك وبيني انا لمحت لك وقلت لك بالإقتباس الجملة دي :- مش محتاج أزبط نفسي قدام أي حد من كلامي ده ، ولكن انتي عندك اسلوب تخلي اللي حواليكي ينفر من انه حتى يقرأ مشاركتك . والكلام ممكن مش بس يكون موجه ليكي تحديداً صدقيني . في ناس عددها قليل هنا عندها اسلوب تخليك تتجنب تشارك في مواضيعها . انا بعتذر من نفسي على الكلام ده لكن ، شكراً ليكي على انك فكرتيني باللي انتي قلتيه ( قصدي اللي انا قلته )

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

من وجهة نظري ، يتم عادةً وضع الجداول فقط في الـ Back End ، بينما يتم الاحتفاظ بجميع الاستعلامات والنماذج والتقارير ووحدات الماكرو ، ووحدات VBA في الـ Front End ، وذلك للسبب التالي :- 1. سهولة الصيانة والتحديث : عندما تكون الاستعلامات في الـ Front End ، يمكن إجراء التحديثات أو التعديلات بدون التأثير على البيانات الفعلية في الـ Back End . وعادة يتم توزيع نسخة من الـ Front End على كل مستخدم ، وهذا يسهل إجراء التحديثات لكل مستخدم على حدة دون التأثير على قاعدة البيانات الرئيسية . 2. فيما يتعلق بالمقارنة مع أنظمة أخرى مثل SQL Server : في أنظمة قواعد البيانات الأكبر مثل SQL Server و MySQL و Oracle ، يتم عادةً الاحتفاظ بجميع البيانات وأغلب العمليات على مستوى قاعدة البيانات (مثل الاستعلامات ، والإجراءات المخزنة "Stored Procedures"، والتريجرات) في الـ Back End . ومن ثم تتصل التطبيقات الأمامية (مثل التطبيقات المكتوبة بلغة C# أو واجهات المستخدم الأخرى) بقاعدة البيانات للقيام بعمليات الإدخال والإخراج من خلال هذه الاستعلامات أو الإجراءات . وطبعاً هذا الموضوع مختلف عن آكسيس . هذا اللي اعرفه يا صديقي

بداية ، من خلال الجداول اللي ارفقتها في الملف ، قم بإنشاء استعلام جديد والصق كود الـ SQL فيه ، وراقب النتيجة ان كانت صحيحة أم لا . ولا حاجة لأرفاقي الملف في هذه المشاركة SELECT [ادخال الكتب].bookID AS [رقم الكتاب], [ادخال الكتب].Store AS [العدد الموجود في المستودع], Nz(Sum([المبيعات].salquantity),0) AS [إجمالي المبيعات], [ادخال الكتب].Store-Nz(Sum([المبيعات].salquantity),0) AS [عدد الكتب المتبقية], [ادخال الكتب].bookID, [ادخال الكتب].bonName FROM [ادخال الكتب] LEFT JOIN المبيعات ON [ادخال الكتب].bookID = المبيعات.bookID GROUP BY [ادخال الكتب].Store, [ادخال الكتب].bookID, [ادخال الكتب].bonName, [ادخال الكتب].bookID ORDER BY [ادخال الكتب].bookID;

تم إضافة نموذج لإنشاء العلاقات من خلال البرنامج بشكل بسيط بحيث :- يتم اختيار الجدول الأول ، ثم الحقل الذي نرغب بانشاء علاقة له ، ثم اختيار الجدول الثاني وكذلك الأمر اختيار الحقل الثاني الذي سيكون على علاقة مع الحقل السابق يتم التعرف على نوع بيانات الحقول التي تم اختيارها للتأكيد على انك كمستخدم تعرف أنواع البيانات في الحقلين . أيضاً يتم التعرف على الحقل ما إذا كان مقتاح أساسي أم لا . عند النقر على زر نوع العلاقة ، فسيتم اظهار نوع العلاقة المنطقية لهذين الحقلين . في الزر انشاء العلاقات سيتم انشاء العلاقة بشكل تلقائي بين الجدولين مع تفعيل تتالي الحذف والإضافة . لإختبار ما اذا كان هناك علاقة بين الجدولين ، من خلال الزر تحقق سيظهر لك نتيجة العلاقة إذا كانت موجودة ونوعها والحقول التي بينها علاقة في الجدولين . عند وجود علاقة سابقة بين الجدولين سيتم تنبيه المستخدم بوجود علاقة سابقة ، هل ترغب باستبدال العلاقة السابقة بعلاقة جديدة ؟؟ وفي حال الموافقة سيتم حذف العلاقة القديمة واستبدالها بالعلاقة الجديدة . طبعاً هنا يجب التنويه أن البرنامج لن يقوم بإنشاء أي علاقة غير صحيحة بين اي حقلين نهائياً . تم اضافة زر لحذف العلاقة بشكل اختياري بين اي جدولين بينهم علاقة . لإجراءاتكم بالتجربة وإفادتي بالنقاط التي قد أكون قد غفلت عنها . TBL Maker.accdb

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

وعليكم السلام ورحمة الله وبركاته ،، بسم الله ما شاء الله 😅 انا من الموبايل بتابع و وصلت 8 طلبات في موضوع واحد. وعلى ما يبدو انت محتاج برنامج كامل . أنصحك بالتسلسل طلب طلب وفي موضوع مستقل لكل طلب حتى تحصل على طلبك 😇 .

من باب التأكد ، هل ما تقوم به هو نسخ الكود من ملف الخل الذي شاركك به الأستاذ @عمر ضاحى لملفك ومشروعك الأصلي ؟؟ اذا كان نعم فتأكد من المكتبات التي في الملف المرفق وبين مشروعك ❗

شكراً لك يا صديقي 😎 اعطينا مثال بملف علشان نفهم فكرتك 😁 .

تمت التجربه مسبقاً وكانت نفس النتيجة للأسف 😬

هي فعلاً كخلفية وليست صورة

ما شاء الله عليك .. نظام تتبع التغييرات بشكل جميل وذكي جداً . عيني عليك باردة أستاذنا ومعلمنا القدير @jjafferr . كل الإحترام والتقدير لجهودك

ما شاء الله ، قيّم وفريد ومتميز في معلوماتك التي تقدمها 😇

جاري البحث والتحري 😅 فكرة برضوو 🤝

بعد عدة تجارب ، تبين أن السبب وراء الترميش والوميض الذي تحدثت عنه هو بسبب وجود صورة خلفية في النموذج . فبعد إزالة الصورة من الخلفية تحركت الكائنات والصور دون اي ترميش ؛ حتى في الأجهزة ذات الإمكانيات الضعيفة .

حاول استخدام مكتبة WIA (Windows Image Acquisition) التي قد تكون متوافقة مع سكانر من نوع الـ HP

ومشاركة مع والدنا الحبيب @ابوخليل ، جرب هذا التعديل مع إمكانية تغيير عدد النسخ التي تريدها ان تبقى ، في الكود التالي :- Private Sub Comannd184_Click() Dim MyFile As String Dim DstFile As String Dim BackupDir As String Dim Syso As Object Dim File As Object Dim BackupFiles As Collection Dim i As Long On Error GoTo ErrH MyFile = CurrentProject.FullName BackupDir = CurrentProject.Path & "\Backup\" DstFile = BackupDir & "Database - " & Format(Date, "yyyy - mm - dd") & ".accde" Set Syso = CreateObject("Scripting.FileSystemObject") Syso.CopyFile MyFile, DstFile Set BackupFiles = New Collection For Each File In Syso.GetFolder(BackupDir).Files If InStr(File.Name, "Database - ") > 0 Then BackupFiles.Add File End If Next File If BackupFiles.Count > 2 Then For i = 1 To BackupFiles.Count - 2 Kill BackupFiles(i).Path Next i End If Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "yyyy-mm-dd") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: MsgBox "خطأ: " & Err.Description, vbCritical End Sub ملفك بعد التعديل New.zip

عدم التوضيح من زمن = من 3 سنوات

أخي الحلبي ، هل لك أن تجرب هذا التعديل :- Private Sub Form_Current() If Nz(Me.txtCurrentID, 0) <> Nz(Me!itemcod, 0) Then Me.txtCurrentID = Me!itemcod End If End Sub وأخبرنا بالنتيجة أيضاً

أهلا أخي الكريم .. في الحقيقة الآن ليس لدي سكانر فيدر يقوم بسحب عدة أوراق مرة واحدة للأسف .. ولكن من خلال تجربتي له على جهاز آخر فيما سبق ، وكان النموذج الذي أمامك جزء من مشروع لدائرة حكومية في العراق فكان يعمل دون أي مشاكل منذ ما يقارب العام . اما بالنسبة لتغييرك السطر من :- ألى :- فهو غير صحيح للأسف لأنه مسار البرامج التي قد قمت بتثبيتها . على العموم قد يكون اختلاف نواة نسخة الويندوز لديك هو السبب إن كانت 64 أو 32 . فقط حاول التأكد من أن المسار التالي صحيح أو لا !!!!! c:\program files\irfanview\i_view32.exe

وما زلنا نتعلم منكم ومن خبراتكم معلمي الفاضل @jjafferr ، وليس لدي شك في ذلك فعلاً الكود الذي استخدمه المعلم جعفر أكثر كفاءة لأنه يتجنب تحديث txtCurrentID إذا كانت قيمته بالفعل تساوي itemcod ؛ وهذا يعني أنه سيتم فقط تعديل txtCurrentID في حال كانت القيمتين مختلفتين ، مما يقلل من عدد مرات التحديثات إذا لم تتغير القيمة . ولكني لم أقم بتجربته وهذا لم انتبه له لعدم ظهور هذه المشكلة لدي في جهازي هذا

نعم صحيح ، ما تفضل به معلمي الفاضل الأستاذ جعفر حل ابسط واسهل ولم اتطرق له للحفاظ على تصميمك في المرفق . اما بالنسبة لتعديل تصميم النموذج الفرعي في وضع النموذج الجدولي ، تابع هذا المرفق من موضوع سابق 20231119_184539.zip