ابوخليل

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

لا يقرأ

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

حسب علمي قارىء الباركود لا يقرأ اقل من 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 حيث تجد اسم الطابعة في الحاسب الرئيس في شاشة الاجهزة والطابعات صحيح قد تكون الطابعات من النوع والاسم نفسه ولكن تجد في آخر الاسم ما يدل على الموقع

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

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

اسمحوا لي بالتداخل معكم اخي وحبيبي ابو ابراهيم .. اسمح لي بقفل الموضوع صاحب الموضوع معروف لدينا ، وضع فوقها اكثر من نقطة يكفي انه لم يرد على الاخ مسفر

شكرا لاخي جعفر للشرح والتوضيح بالنسبة لحذف بيانات الجدول في الموضوع هناك انه لدينا جدولين tbl1 و tbl2 الجدول1 يحتوي على بيانات المشروع والجدول2 هو الجدول الذي سوف تنسخ اليه نتيجة الإهلاك فلما ننقر على الزر لتنفيذ الكود تظهر النتيجة في جدول2 ، ولكن حين ننقر مرة اخرى يتم تكرار النسخ وهكذا ... الى مالا نهاية فالحل هو عند كل نقرة على الزر يتم تفريغ الجدول2

مثل هذه الاسئلة يجب افرادها في موضوع جديد مستقل وانصحك بالاطلاع على هذا الموضوع ... هذا شرح لبداية الكود الخاص بهذا الموضوع 'اعلان عن متغير يمثل قاعدة البيانات Dim db As DAO.Database 'اعلان عن متغير يمثل مجموعة سجلات داخل جدول Dim rs1 As DAO.Recordset 'تعيين المتغير لقاعدة البيانات الحالية Set db = CurrentDb 'تعيين المتغير لسجلات الجدول Set rs1 = db.OpenRecordset("TBL1") 'اذهب الى آخر سجل في الجدول rs1.MoveLast 'اذهب الى اول سجل في الجدول rs1.MoveFirst الجملة تقول احذف جميع البيانات في TBL2

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

انظرهنا

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