حسين العربى

استاذي الفاضل jjafferr شكرا علي مرورك الطيب انا قرأت المشاركة ولاكن هو يجلب الوزن عن طريق جهاز وسيط طبعا الميزان عندي متصل بكبل نت ورك وانا شفت البرنامج الي يتعامل معه تبع شركة كان فيجول بيسك طبعا انا اريد ان اجلب الوزن من الميزان ولو امكن ان اطبع علي طابعة الميزان نفسه وهذا برنامجي علشان نبدأ بمثال برنامج ميزان.accdb

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

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

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

تفضل اخي طلبك في الرابط ده وهذا برنامج صادر وارد نفس الفكره

الحمدلله /هذه فضل من رب العالمين ان يجمع العمالقه في مشاركتي

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

السلام عليكم ورحمه الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام لدي هذا الكود الشرط فيه انه لو اول رقم في الحقل =7 يعطيني رساله If Left(Me.serh_Barcod, 1) = 7 Then طيب لوحبيت اعدل الشرط انه يكو ن اول ثلاث ارقم في الحقل = 7 فما التعديل وشكرا للعلم انا حاولت وبحث

ده الكود بتاع استاذي الفاضل احمد If Left(text1, 1) = 7 And Me.text2 = 7 Then MsgBox "ÊäÈíå" 'Me.Undo DoCmd.CancelEvent End If وده الي اعتمدته عندي لاني ده هو المطلوب

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

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

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اوريد رسالة تنبيه بشرطين في زر امر اختبار الشرط اذا كان الرقم الذي في حقل text1 يبدأ برقم ( 7 ) والحقل text2 يوجد به رقم ( 7 ) يعطي رسالة تنبيه وشكرا اليكم مثال للتطبيق عليه test1.accdb

اخي الفاضل خالد/ انت كريم ونحن نستاهل وعلي فكره كنت هرفع ملف بس لقيت الاستاذ احمد عطاني الاجابه ولو حابب ارفعلك الملف انا حاضر لاني انا حاسس اني موضوع الملف ده مزعلك😄

حاضر استاذي الفاضل انا عطيت اخي الفاضل الاستاذ خالد افضل اجابه بس ممكن الاستاذ خالد يجي يقولي اعطيها للاستاذ احمد ونقعد نتعازم انا كده خلاص مش هغير تاني / ههههههه 😂 جزاكم الله خيرا جميعا والله انتو تستاهلو اكتر من كده بكتير بس كل الي نقدر نقدمه لكم الدعاء ان يزيدكم الله من عمله ويوفقكم الله لما يحيبه ويرضاه

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

استاذي الفاضل انا لو علي الاستعلام كنت حليت الموضوع بس انا عاوز عن طريق كود انا ممكن كنت عملت استعلام تحديث لحقل الكمية الي بيسجل null بس انا عاوز ه كود لتعم الفائده ومنكم نستفيد وانا اسف هغلبك معي

اخي الفاضل نفس مثالك بس اجعل حقل الكمية null انا جربت الكود ماظبط يعطيني احمر معناه خطأ Nz([QUNTY]);0)and([UNT_ID]);7)then

الخيار الاول لايظبط مع لشئ خاص بالبرنامج عندي يطول شرحه الخيار الثاني ممكن تكتبلي الكود كامل لو تكرمت لانه ماظبط معي

معلش اخي شوف ردي الاخير بعد التعديل علي

الف الف شكر استاذي الفاضل جزاك الله خيرا بس عندي مشكلة حقل الكمية بيكون NULL فالكود مش بشتغل الي اذا حطيت 0 في الكمية

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد رسالة تنبيه في حقل البحث في حدث بعد التحديث / الشرط /في حالة حقل الكمية = 0 / وحقل رقم الوحدة = 7 يظهر لي رسالة وجزاكم الله خيرا

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

استاذي الفاضل jjafferr انا عاوز اعمله اقصد نفس الكود ده A = Nz(DLookup("[SELLS_PRICE]& '|' & [item_name]", "POS_MASTER", "[ITEM_BARCODE]='" & Me.ITEM_BARCODE & "'"), "|") x = Split(A, "|") Me.SELLS_PRICE_2 = x(0) Me.ITEM_NAME_2 = x(1)

انت والله استاذي أحمد الفلاحجى ومعلمي وانا والله ما اقصد شي ولك مني كل التقدير ولاحترام واخر سؤال مني في نفس الموضوع لو هنستدعي من نموذج الي نموذج اخر مثل الكود هيكون ازاي Forms!forms1!serh_Barcod = DLookup("[ITEM_BARCODE]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Me.ITEM_BARCODE & "'") Forms!forms1!item_no = DLookup("[ITEM_CODE]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Me.ITEM_BARCODE & "'")

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