ابوخليل

نعم جميع اجهزة الباركود لها اعدادات خاصة حسب رغبات العملاء طريقة فحص قارىء الباركود بعد الاعداد : افتح المفكرة واقرأ الباركود الذي امامك وكرر القراءة ,,, اذا قرأ ونزل لسطر جديد فهذا هو مطلوبك

نيابة عن احبتي اقول بلسانهم كلنا ابوخليل .. واللي اخذ قلبك يتهنا به

لا نحب مثل هذه المواضيع مع شديد الاعتذار لاستاذي kanory

هذا بسبب التحديث الأخير سوف يتم معالجة الأمر

ههههههههههههه تصدق بطني اوجعني من كثر الضحك خلاص حبيبنا : الدار دارك حتى واحد من احبابي ارسل لي على الخاص ان مثل هذي لا بد تكون على الخاص انا من وجهة نظري اعترض .. ليش ما يكون على العام ؟ السبب ان الخبراء ليس لديهم صلاحية المشاركة في الخاص لذا جاتني فكرة وهي انه مدير الموقع يعمل قروب خاص بالخبراء حبايبي كل واحد منكم يرفع تقرير بهذه المشاركة لادارة الموقع

طيب احبتي واخص الخبراء هنا بدون تحديد ، لاني لو ذكرت اسماء سوف اغفل عن الكثير ما رأيكم بترشيح استاذنا الهاوي الى فريق الموقع الاشرافي الصحيح انه كثيرا يتذمر من الاجراءت الادارية ويطرح الكثير من الملاحظات التي يجب تلافيها فقط اريد التصويت بكلمة : موافق وطبعا الامر اولا واخيرا يرجع اليه بالموافقة من عدمها ولكني بالوقت نفسه اريده ان يفصح عن اسمه الحقيقي ، (ارسل لي على الخاص .. لن اكشف سرك )

ننتظر وصول قارى الباركود .. حبيبنا وسع صدرك

لا يقرأ

تمام بارك الله فيك تعني من ردك هذا : انه عند حجب لوحة المفاتيح من ادارة المهام سيتم حجب قارىء الباركود تبعا ؟

ابدا .. لا عتاب .. ولا مزاح جميع من في المنتدى من خبراء واعضاء هم اهلي واحبتي واخواني وانت منهم غالبا لا ادخل لاي موضوع الا حينما يكون العنوان جاذبا ، وخاصة اذا اشترك في الموضوع اكثر من خبير انا اكتب بما اراه واعتقده .. بغض النظر عمن اكتب له نرجع الى نقاشنا في الموضوع : فالموضوع يختلف عن الرابط الذي وضعته صاحب الموضوع يريد ان يحصر الادخال على قارىء الباركود .. ويحجب لوحة المفاتيح

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

حسب علمي قارىء الباركود لا يقرأ اقل من 3 خانات بمعنى انه لا يقرأ الباركود المكون من رقم او رقمين وينطبق هذا على الحروف

ما شاء الله نفخر استاذنا ابو عبدالله بأمثالك بيننا جميل جدا تمرير كلمة المرور قبل امر الفتح يتبقى تجربة صاحب السؤال .. واتمنى دالة التمرير تعمل على runTime

حسب علمي لا يوجد مكان لكلمة المرور داخل ShellExecute الطريقة الوحيدة التي اراها ( قد تنجح وقد لا .. لاني لم اجرب ) .. هي التحايل في نهاية الكود وبعد فتح القاعدة نستخدم sendkeys لارسال كلمة المرور ومرة اخرى ارسال مفتاح Enter sendkeys "password" sendkeys "{enter}"

نعم ,, ينقل المؤشر لبداية السجلات عذرا لم انتبه لوجوده

هذا السطر هو سبب المشكلة DoCmd.RunCommand acCmdSelectRecord قم بحجبه او حذفه

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

استخدم NZ هذه الدالة تحول قيمة الحقل الفارغ الى صفر

هل تريد حلا كما اشار اخي ابو غفران بمعنى تختار الطابعة من القائمة قبل النقر على الزر ام تريد حلولا اخرى ؟؟ مثلا عند اعداد الطلب يكون هناك حقلا او مربع تحرير يتم اختيار رقم الطابق بدلا من اسم الطابعة ؟ تفضل هذا الحل يتم فيه اختيار اسم الطابعة printerB.accdb

نعم يمكن ولكن يجب ان يكون هناك اشارة مرجعية او بمعنى وجود رقم على الفورم يدل على الطابعة المراد الطباعة عليها هل هذا مفهوم؟

دعنا نجرب غير السطر الاول الذي هو في اعلى المحرر بهذا : Private Declare PtrSafe Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long فقط تم اضافة PtrSafe اعتقد لا يلزم لانه عند النقر على الزر فالحدث يقوم بتغيير الطابعة الافتراضية الى الأمر الجديد اولا ثم تتم الطباعة

واضح ان المشكلة .. الثقل والبطء عندك انت في جهازك جربته سابقا على اكثر من برنامج على الشبكة يعمل بامتياز النظام عندي وندوز7 32 بت

لا اعلم اين الخلل عندك ولكن تفضل مثالك تم اضافة الوحدة النمطية والكود اليه printer2.accdb

واذا اردت استخراج اسماء الطابعات برمجيا هذه الوحدة النمطية للحصول على اسماء الطابعات المثبتة في جهازك Public Function GetPrinters() As String Dim prn As Printer Dim strPrinter As String If Application.Printers.Count > 0 Then For Each prn In Application.Printers strPrinter = strPrinter & """" & prn.DeviceName & """;" Next GetPrinters = Left$(strPrinter, Len(strPrinter) - 1) End If End Function ويمكنك مناداة الوحدة النمطية اعلاه واظهار الاسماء في مربع تحرير داخل النموذج اكتب هذا الكود في حدث الفتح او التحميل للنموذج Dim strMsg As String Dim strTemp As String strTemp = GetPrinters() If Len(strTemp) = 0 Then Cancel = True strMsg = "No installed printers found." Else Me.cboPrinter.RowSource = strTemp End If باعتبار Me.cboPrinter هو اسم مربع التحرير في النموذج

تفضل Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Private Sub cmdprt_Click() ' تعيين الطابعة الافتراضية SetDefaultPrinter ("hp LaserJet 1000") ' أمر الطباعة DoCmd.OpenReport "yourReport", acViewNormal End Sub لست بحاجة الى ip حيث تجد اسم الطابعة في الحاسب الرئيس في شاشة الاجهزة والطابعات صحيح قد تكون الطابعات من النوع والاسم نفسه ولكن تجد في آخر الاسم ما يدل على الموقع