حسين العربى

استاذي ومعلمي الفاضل jjafferr بعد تجربة الكود بعد تعديل حضرتك عند وضع باركود صحيح يجلب لي البيانات اما لو وضعت باركود غير صحيح يظهر لي خطاء ملحوظه انا بستدعي البيانات من استعلام وليس من جدول هل هذ هو السبب ام ماذا اليكم المرفق بعد اخر تعديل test_102.rar

بالنسبه للكود السابق الخاص بحضرتك استاذ jjafferr انا طبقته علي مرفق تجريبي عند وضع رقم غير موجود يعطي خطأ في الكود اليك المرفق جرب بنفسك انا طبعا ممكن احط هذا الكود On Error Resume Next لمنع اظهار الخطأ بس انا مش عاوز كده عاوز لو الرقم مش موجود الحقول تسير فاضيه مسل هذ الكود Me.item_no = DLookup("[ITEM_CODE]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Me.serh_Barcod & "'") Me.deskwn1 = DLookup("[deskwn1]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Me.serh_Barcod & "'") انا مجربه عندي والمرفق في مثال لكود حضرتك ومثال للكود الثاني انظر الفرق test_102.rar

استاذي الفاضل jjafferr بخصوص هذا الكود انه ممتاذ جدا انا جربته فوق الممتاز وفر علي جهود كثيره زادك الله من علمه وجعله في ميزان حسناتك Dim x() As String A = DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn") x = Split(A, "|") ' For i = LBound(x) To UBound(x) ' Debug.Print x(i) ' Next i Me.pn = x(0) Me.size = x(1) Me.vendor = x(2) Me.Description = x(3) Me.Maxrl = x(4) Me.Maxrlegyptair = x(5) Me.ACType = x(6) Me.Pos = x(7) Me.BiasRadial = x(8) Me.code = x(9)

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

شكرا لك استاذي الفاضل أحمد الفلاحجى علي اهتمامك لاكن الكود الاول والثاني بهم خطأ test_1.rar

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

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 وشكرا لكم جزيلا

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