Ahmos

السلام عليكم ورحمة الله وبركاته أخي الكريم فضلاً جرب الكود القديم من القاعدة المرفقة القاعدة 3_V1.zip

الأخوة الكرام أسعد الله مساءكم ووفقكم لك خير تحديث جديد يتضمن بعض التعديلات علي نموذج الـ html وهي 1- تم إضافة ميزة البحث بقيم متعدده يفصل بينهم | أو ; أو , وهذا في البحث العام او الحث الخاص بكل نموذج (2) 3- ميزة نسخ كامل محتوي العمود مع أمكانية أختيار الفاصل بينهم او كتابة فاصل جديد (4) وأيضاً اختيار ضم عنوان العمود أم لا (5) 6- تم معالجة بعض القيم لعرض أفضل 7- تم تحسين طريقة نسخ محتوي الخلية للتناسب مع الخلية التي تحمل رابط بداخلها صوره لبعض النتائج بالتوفيق Ahmos_AutoHtmlTable_V1.1_Files.zip

@عاشق_الرقي شاكر لك أخي الكريم كلامك الطيب أسئلك الدعاء وأسئل الله لك التوفيق وان يجعلك من العلماء الصالحين النافعين

@سامي الحداد بارك الله فيك، ونفع بك وزادك من فضله @moho58 آمين بارك الله فيك شكراً جزيلاً

وعليكم السلام ورحمة الله وبركاته أخي @سامي الحداد الله يسلمك، شكراً جزيلاً

السلام عليكم ورحمة الله وبركاته المطلوب حسب ما فهمت هو : إضافةً إلي ما يفعلة إستعلام التحديث الحالي انت تريد تحديث العمود G N بأخر رقم موجود في جدول الجرد تفضل أخي الكريم جرب هذا الكود Public Function arTableName() As String arTableName = ChrW(1580) & ChrW(1583) & ChrW(1608) & ChrW(1604) & ChrW(32) & _ ChrW(1578) & ChrW(1587) & ChrW(1580) & ChrW(1610) & ChrW(1604) & ChrW(32) & _ ChrW(1575) & ChrW(1604) & ChrW(1603) & ChrW(1578) & ChrW(1576) End Function Private Sub أمر8_Click() Dim arTblName As String Dim maxGN As Long Dim arMsgPrompt As String Dim arMsgTitle As String Dim msgResponse As VbMsgBoxResult On Error GoTo ErrorHandler arTblName = arTableName maxGN = Nz(DMax("[No_Gard]", "[T_Gard]"), 0) arMsgTitle = "تأكيد تنفيذ الأمر" arMsgPrompt = "أنت على وشك تحديث حالة جميع الكتب باليومية" arMsgPrompt = arMsgPrompt & vbCrLf & "من كتب موجودة إلى كتب فاقد" arMsgPrompt = arMsgPrompt & vbCrLf & "لتأكيد الأمر أضغط موافق ، ولإلغائه أضغط إلغاء" msgResponse = MsgBox(arMsgPrompt, vbQuestion + vbOKCancel + vbMsgBoxRight, arMsgTitle) strSQL = "UPDATE [" & arTblName & "]" & vbCrLf & _ " SET [" & arTblName & "].CaseBook = ""فاقد""," & vbCrLf & _ " [" & arTblName & "].[G N] = " & maxGN & vbCrLf & _ " WHERE ((([" & arTblName & "].CaseBook)=""موجود"")" & vbCrLf & _ " AND (Not ([" & arTblName & "].title) Is Null)" & vbCrLf & _ " AND (([" & arTblName & "].searinumber) Between [forms]![F_GardBooks]![text]" & vbCrLf & _ " AND [forms]![F_GardBooks]![text2]))" & vbCrLf & _ " OR ((([" & arTblName & "].CaseBook)=""موجود"")" & vbCrLf & _ " AND (([" & arTblName & "].title) Is Null)" & vbCrLf & _ " AND (([" & arTblName & "].searinumber) Between [forms]![F_GardBooks]![text]" & vbCrLf & _ " AND [forms]![F_GardBooks]![text2]));" If msgResponse = vbOK Then DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True MsgBox "تم تحديث البيانات بنجاح والحمد لله" Else End If Exit Sub ErrorHandler: Debug.Print Err.Number; Err.Description End Sub تم إضافة هذه الوظيفة {arTableName} لتعود بإسم الجدول العربي أنصح بإستخدامها كما تم تنسيق الكود قليلاً وإضافة { " [" & arTblName & "].[G N] = " & maxGN } لإضافة التحديث المطلوب إضافة بالنسبة للأستعلام الموجود بأسم {استعلام1} Nz(DMax("[No_Gard]", "[T_Gard]"), 0) (SELECT Max(T_Gard.No_Gard) FROM T_Gard) بالتوفيق

اللهم بارك فيه وفي علمه وعمله وأجعل عمله خالصاً لك وحدك يارب العالمين اللهم زد وبارك مبارك عليك أخي فادي @Foksh ماشاء الله تبارك الله أعمالك مميزة وجميلة زادك الله حرصاً وإتقاناً بالتوفيق ❤️

@ابو جودي آمين بارك الله فيك، و شكراً جزيلاً لك أخي الكريم اللهم أرضَ عن عبدك وثبته علي دينك @عاشق_الرقي آمين بارك الله فيك، ورزقك علماً نافعاً ينتفع به وأسئل الله العلي القدير أن ينعم عليك ويزيدك من فضله @عمر ضاحى بارك الله فيك وفي علمك وعملك شكراً جزيلاً

@kanory بارك الله فيك شكراً جزيلاً

@Moosak أخي الكريم، شكراً جزيلاً آمين بارك الله فيك وزادك من فضله ونفع بك وعفا عنك وعافاك @ابوخليل أخي الكريم، شكراً جزيلاً آمين اللهم تقبل أسئل الله العلي القدير أن ييسر لك الخير حيث كان ورزقك علماً نافعاً ينتفع به @Foksh أخي الكريم، شكراً جزيلاً بارك الله فيك، متشكر علي الكلام الجميل ده نفع الله بك وبعلمك وزادك من فضله @محمد طاهر عرفه الأستاذ الفاضل بارك الله فيك، شكراً جزيلاً أسعدكم الله جميعاً وبارك فيكم ورزقكم علماً نافعاً ينتفع به وجمعني بكم علي خير في جنات النعيم رفقة النبيين والصديقين والشهداء والصالحين وحسن أولئك رفيقا

@شايب شكراً جزيلاً لك أخي الكريم بارك الله فيك أسئلك الدعاء بالتوفيق والسداد فالحمد لله والشكر له علي كل شي { سبحان الله وبحمده سبحان الله العظيم } أشعر اني مازلت هاوي مجتهد وصدقاً أجد فيكم الكثير من المعلمين الأفاضل ولكني سأعتز بهذه الترقية ولو لم أكن أستحقها 😁

وعليكم السلام ورحمة الله وبركاته أسعدتني، بارك الله فيك فهي شهادة يعتز بها منكم أنتم الخبراء الحقيقين أسئل الله لكم التوفيق والنجاح

الشكر ليك أخي الكريم دي شهادة أعتز بها شكراً جزيلاً بارك الله فيكم

@jjafferr أخي الفاضل أسعد الله صباحك بكل الخير 1- أحتاج في عملي الي التعامل كثيراً مع بيانات متغيرة ولتسهيل مراجعتها قمت بعمل نموذج يسمح لي باضافة بعض القواعد للتحقق من البيانات وتلوينها حتي تتم المراجعة والفرز بشكل أسرع لذلك فكرت في هذا العمل حتي أتمكن من تحويل أي جدول 2- مشاركة بعض الجداول التي تحتوي علي بيانات مرجعية قد تحتاج الوصول اليها في اي وقت فيمكنك من خلال تليفونك عمل بحث وتصدير وارسال ملف الأكسل بالبيانات المطلوبة فقط كما يوجد وظيفة تمكنك من نسخ محتوي الخلية بمجرد الضغط عليها 3- عند التعامل مع بيانات متغيرة أقوم ببناء جداول كثيرة برمجياً لأنها جداول مؤقتة ولا حاجة لإعداد نماذج داخلية بالبرنامج أقوم بتعبتها وتفريغها عند الإنتهاء اما اضعها في المحفظة CLipBoard ثم انسخها داخل ملف اكسيل او اقوم بتصديرها بصيغة CSV الأن أصبح لدي خيار ثالث بمميزات أفضل هذه الأسباب الأساسية

@Foksh أسعد الله صباحك آمين، وإياك أخي الكريم بالتوفيق @jjafferr صبحك الله بالخير