Foksh

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

حاول استخدام مكتبة 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

معناه ان الرعشة أو الوميض الذي ذكرته قد يكون ناتج عن أن الكود يقوم بجعل قيمة مربع النص txtCurrentID = itemcod عند التركيز على اي مربع نص لتحقيق الشرط في التنسيق الشرطي ، مما يسبب رعشة في النموذج الفرعي .

اذا كنت قد طبقت الخطوات بالضبط ، فلا أعلم ما السبب ، ولكن اذا امكنك تصوير طريقة الترميش التي تتحدث عنها !! ما لم يكن هناك حدث عند الوقت في النموذج الفرعي على العموم كإضافة لكلامي ، جرب ما يلي : Private Sub Form_Current() DoCmd.Echo False Me.txtCurrentID = Me.itemcod DoCmd.Echo True End Sub

إذاً يا صديقي ، الخطوات يا صديقي كالآتي .. قمت بإنشاء مربع نص غير منضم ومخفي اسميته txtCurrentID ، وفي حدث في الحالي On Current للنموذج الفرعي ، قمت بوضع هذا السطر البسيط :- Me.txtCurrentID = Me.itemcod لجعل قيمة مربع النص هذا في كل صف = قيمة مربع النص itemcod . الآن قمت بتحديد جميع مربعات النص في النموذج الفرعي التي اريد ان يتم تغيير خلفيتها وفي التنسيق الشرطي لها ، قمت بإضافة شرط جديد Expression Is : [txtCurrentID]=[itemcod] واخترت لون الخلفية للمربعات كما اريد :- والنتيجة في الملف المرفق :- تلوين الفرعى.accdb

معك حق ، اختلطت علي الأمور يا صديقي ، هل هذا ما تقصده ؟؟

وعليكم السلام ورحمة الله وبركاته .. يمكنك استخدام الحدث عند التركيز والحدث عند فقدان التركيز لمربعات النص التي في الفرعي .. جرب هذا التعديل البسيط حيث استخدمت النمط التالي فقط بتغيير اسم مربع النص :- Private Sub itemcod_GotFocus() Me.itemcod.BackColor = &H808080 'لون رمادي وتستطيع تغييره كما تريد End Sub Private Sub itemcod_LostFocus() Me.itemcod.BackColor = vbWhite End Sub تلوين الفرعى.accdb

وما زلت تقع في نفس الخطأ !!!!!!! أرفق ملف اذا سمحت

هدفي التوجيه وليس الإنتقاد يا صديقي سامر

التوزيع سيتم على أي أساس ؟ يعني اللي من 25 - 30 هيكون توزيعهم ايه ؟؟ ..... إلخ ( أرجو التوضيح )

أخي سامر ، ارجو منك مستقبلاً أن تركز في طبيعة المعلومات التي تقدمها لنا . ففي المشاركة الأولى كان النموذج اسمه "الحركة" ، وهو بعد ارسالك للمرفق يقوم بفتح التقرير "حركة حالية" من خلال زر "الطباعة" . وبعد ارسالك للكود التالي :- توضح بعد المرفق انك قفزت لموضوع آخر مختلف في نموذج آخر وتقرير آخر .. على العموم بالنسبة للطلب الأخير وهو بخصوص الكود ؛ فقد تم تصويب الكود بوضعه في المكان الصحيح - وليس في حدث عند تحميل التقرير ، ودون الإعتماد على مربع النص "نوع الحركة" في التقرير نفسه ؛ بل بالقائمة المنسدلة "نوع الحركة" من النموذج "التقرير" - إلى الحدث عند التنسيق للقسم الموجود فيه المربعين ( w , m ) . المرفق بعد التعديل . الخزينة test.accdb

اخي @samyegypt1 جزاك الله كل خير ، ولكن اختيار افضل إجابة يتم عند الإنتهاء من الموضوع بإيجادك الحل ، وانا لم أحل المشكلة لك ، لذا ارجو منك إزالة افضل إجابة عن مشاركتي ومنحها لمن يستحقها في إجابتك 😇 .

اخونا الكريم @samyegypt1 ، قرأت طلبك أكثر من مرة محاولاً فهم طلبك ، إلا انني وجدت في نقاط طلبك نقص في المعلومات في معظمها . وأعتقد أن حال من مر من هنا هو كحالي . فأرجو أن تمنحنا تفصيلاً أكثر لكل نقطة منفصلة بشكل واضح حتى تحصل على طلبك في الحلول تبحث عنها 🤗 .

شكراً لك على هذا الموضوع المفيد معلمنا الفاضل @jjafferr 🤗 ،، سأتمعنه برفق آملاً منه الفائدة التي أرجوها .. والفيديو قد اتطلعت عليه سابقاً وقد اعجبتني جداً فكرته 😇 . وليس لدي مشكلة في طريقة تحريك الأهداف بالشكل الذي اريده وحيثما أريدها ؛ بقدر ما هي مشكلتي في عدم الإستغناء عن الصور واستبدالها برسوم تركيبية ( مربعات و دوائر ) لتلافي الترميش والفلاش ( الوميض ) .

بعد 9 شهور هذه المشاركة قرب يصير عندها عيال يا صديقي هههههه . تفضل نرجو منك عدم إهمال مواضيعك ، حتى نعلم إن كنت وجدت الحل أم لا !! Scanner 2 PDF.zip

🤦🏻‍♂️

اخي سامر رضي الله عنك وأرضاك 🤗 بما أنك لم تحصل على الحل ، فساعدنا وارسل مرفقك على الأقل 🙄 . انا الآن على سفري ، وقد لا أتمكن من رؤيته في الوقت الحالي ، عل أحد الأساتذة والإخوة يدعمك في الحل بعد إرسالك للملف 😅 .

اخي سامر الكل هنا أخوة ويساند بعضه البعض 😇 ما رأيك باستخدام الدالة Case كتجربة 😉 ، يمكن في حالة الجمل الشرطية في حالتك تكون أسهل . Select Case Me.نوع_الحركة Case "وارد" Me.w.Visible = True Me.m.Visible = False Case "منصرف" Me.w.Visible = False Me.m.Visible = True Case Else Me.w.Visible = True Me.m.Visible = True End Select حسب نوع الحركة ( منصرف ، وارد ، غير ذلك ) . وللنصيحة ، عند نسخ الأكواد وكانت تحتوي حروف عربية ، اجعل مؤشر الكتابة باللغة العربية ثم قم بالنسخ من محرر الأكواد الى المشاركة أو العكس من هنا الى هناك 🤗 جرب وأخبرنا بالنتيجة 😇

اخونا العزيز @سامر محمود ، وعليكم السلام ورحمة الله وبركاته ارسل مرفقك وستجد العديد من الحلول بإذن الله 😇