حسين العربى

UP

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد تعديل في كود التكرار / اضافة شرط اخر وهو تطابق السعر مع الباركود بمعني الباركود الي يكون سعر كذا Dim i As Integer i = DCount("ITEM_BARCODE", "tabol102", "ITEM_BARCODE = forms!CALCULATOR!serh_Barcod") If i > 0 Then وكذلك نفس الشي في الكود هذا وهو جلب كمية الباركود هذا الذي سعره كذا Me.EDET_QOTY = DLookup("[Qote_item]", "tabol102", "[ITEM_BARCODE]='" & Me.serh_Barcod & "'") ولكم جزيل الشكر

up

برنامج ارشيف صادر وارد.rar

لو احد من الاخوه الافاضل يعطينا كود لاخفاء البرنامج من Task Manager قائمة Processes يبقي كده تمام

رابط الفيديو

وانشاء الله هعمل فيديو اوضح فيه الهدف من ذلك واضع الربط هنا للاستفاده ونشوف راي عباقرة الاكسس في الفكره

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

الحمدلله تم التوصل الي حل من خلال سيكول سيرفر الف شكر لكم جميعا ولو حد عنده نفس المشكله سوف اشرح له الحل

استاذي ومعلمي الفاضل جعفر ولو فتحت المرفق الي في مشاركتي هتلاقي نفس الكود لاني واخده من الخبير ده 😢

up

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

شكرا لك استاذي الفاضل علي مرورك الطيب ولاكن بعض هذه المواضيع لي فيها مشاركة وليس هذا ما احتاجه لاني علي علم بعمليه الربط من ODBC وليست عندي مشكلة في ذلك ولاكن عند الربط عن طريق الكود الموضح في مشاركتي لا استطيع عمل تحديث او تعديل او حذف هذه هي مشكلتي مع الكود اوريد تعديل عليه وشكرا لكم

شكرا لك اخي الفاضل لم يفلح الامر او انني لم اطبق التطبيق الصحيح

السلام عليكم ورحمة الله وبركاته اعضاء ومشرفي المنتدي الكرام عندي كود للربط من سيكول بعد عمل ربط الجداول لااستطيع ادخال بيانات ولا تعديل فطبعا انا بروح علي ODBC وبعمل ربط من خلاله والامور تمام بس لو امكن احتاج للتعديل في الكود ليعمل مثل الاتصال ب ODBC ولكم جزيل الشكر اليكم الملف الي به الكود والموديول test.accdb

لو تكرمت استاذي الفاضل هذا الكود فانكشن لمكتبة في الاوفيس لا يتعامل مع اوفيس 64 فما التعديل عليه ليتوافق مع اوفيس 64 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

الف شكر استاذي الفاضل

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام عندي كود في وحده نمطيه لاخفاء شاشاة اكسسbt 32 وكود اخر لاحفاء شاشاة اكسس 64 bt لو امكن كود في وحده نمطية يتعامل مع الاثنين 46 & 32 وشكرا لكم جزيلا

الف الف شكر استاذي الفاضل جزاك الله خيرا وجعله الله في ميزان حسناتك وذادك الله من علمه

لم يظبط معي اخي الفاضل

شكرا لك استاذي الفاضل Khalf حل جميل لو امكن جعل ITEM_BARCODE وهي حقل نص بدلا من حقل item_no في الاستعلام LinKing_Tables مرف مثال مضاف فيه الباركود بدلا من رقم الصنف DATA_3_ASTLAM.rar

up

شكرا لكم جميعا ظبط معي طيب لو امكن حذف المكرر من الاصناف علي حسب السند

ياريت احد يطبق هذه الاجابه علي مثالي

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