Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابوخليل

Officena Team
  • Posts

    9,435
  • Joined

  • Last visited

  • Days Won

    127

ابوخليل last won the day on June 21

ابوخليل had the most liked content!

Reputation

4,180 Excellent

About ابوخليل

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    طالب علم
  • Location
    القصيم
  • Interests
    تحليل البيانات والتصميم
    mzm1430@gmail.com

Recent Profile Visitors

11,590 profile views
  1. ما شاء الله نفخر استاذنا ابو عبدالله بأمثالك بيننا جميل جدا تمرير كلمة المرور قبل امر الفتح يتبقى تجربة صاحب السؤال .. واتمنى دالة التمرير تعمل على runTime
  2. حسب علمي لا يوجد مكان لكلمة المرور داخل ShellExecute الطريقة الوحيدة التي اراها ( قد تنجح وقد لا .. لاني لم اجرب ) .. هي التحايل في نهاية الكود وبعد فتح القاعدة نستخدم sendkeys لارسال كلمة المرور ومرة اخرى ارسال مفتاح Enter sendkeys "password" sendkeys "{enter}"
  3. نعم ,, ينقل المؤشر لبداية السجلات عذرا لم انتبه لوجوده
  4. هذا السطر هو سبب المشكلة DoCmd.RunCommand acCmdSelectRecord قم بحجبه او حذفه
  5. السلام عليكم ما المشكلة اذا كل طلب في فاتورة جديدة مادام رقم الطاولة موجود ارى ان طباعة ثلاث فواتير او اكثر لطاولة واحدة شيء عادي وطبيعي
  6. استخدم NZ هذه الدالة تحول قيمة الحقل الفارغ الى صفر
  7. هل تريد حلا كما اشار اخي ابو غفران بمعنى تختار الطابعة من القائمة قبل النقر على الزر ام تريد حلولا اخرى ؟؟ مثلا عند اعداد الطلب يكون هناك حقلا او مربع تحرير يتم اختيار رقم الطابق بدلا من اسم الطابعة ؟ تفضل هذا الحل يتم فيه اختيار اسم الطابعة printerB.accdb
  8. نعم يمكن ولكن يجب ان يكون هناك اشارة مرجعية او بمعنى وجود رقم على الفورم يدل على الطابعة المراد الطباعة عليها هل هذا مفهوم؟
  9. دعنا نجرب غير السطر الاول الذي هو في اعلى المحرر بهذا : Private Declare PtrSafe Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long فقط تم اضافة PtrSafe اعتقد لا يلزم لانه عند النقر على الزر فالحدث يقوم بتغيير الطابعة الافتراضية الى الأمر الجديد اولا ثم تتم الطباعة
  10. واضح ان المشكلة .. الثقل والبطء عندك انت في جهازك جربته سابقا على اكثر من برنامج على الشبكة يعمل بامتياز النظام عندي وندوز7 32 بت
  11. لا اعلم اين الخلل عندك ولكن تفضل مثالك تم اضافة الوحدة النمطية والكود اليه printer2.accdb
  12. واذا اردت استخراج اسماء الطابعات برمجيا هذه الوحدة النمطية للحصول على اسماء الطابعات المثبتة في جهازك 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 هو اسم مربع التحرير في النموذج
  13. تفضل 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 حيث تجد اسم الطابعة في الحاسب الرئيس في شاشة الاجهزة والطابعات صحيح قد تكون الطابعات من النوع والاسم نفسه ولكن تجد في آخر الاسم ما يدل على الموقع
  14. عليكم السلام يجب عليك التفصيل اكثر ، طلبك غير مفهوم انت تعرف عملك ومالذي تريد ولكننا لا نعرف ما يدور في رأسك هل الفورم هذا موجود عند كل مستخدم بأزراره ؟ اذا الجواب نعم لماذا ؟ ، لانه غير منطقي ... اشرح بالتفصيل ما يحدث بالضبط اشرح الفكرة والغرض منها بالتفصيل الممل
  15. سبحان الله الموضوع قديم جدا ، عجبا .. كيف تخاطب صاحب موضوع كتبه من اكثر من 16 سنة
×
×
  • Create New...

Important Information