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

wael_rafat

عضو فعال
  • Content count

    278
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

37 Excellent

1 متابع

عن العضو wael_rafat

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب

اخر الزوار

508 زياره للملف الشخصي
  1. السلام عليكم مشاركة مع اساتذتي اقصر طريق ان تقوم بفتح المستند بوضع معاينة الطباعة ثم تقوم باختيار الطابعة الافتراضية لهذا المستند . وبذلك لن تحتاج ان تختار الطابعة لكل مستند عند الطباعة ..... حيث انك قمت مسبقا باختيار الطابعة الافتراضية لكل مستند . اتمني ان تكون وضحت الفكرة بالتوفيق
  2. عليكم السلام اخي الكريم هذه هي طبيعة عمل الباركود بعد الادخال ينتقل تلقائيا الي الحقل التالي نفس فكرة زر الادخال enter وكأنك ادخلت رقم الصنف ثم قمت بالضغط enter وعلية ممكن تعدل بالكود عندك كالتالي بعد عملية الباركود ينتقل الي حقل الكمية بدلا من سجل جديد . بمعني حقل الباركود ثم حقل الكمية ثم سجل جديد اتمنى تكون وضحت الفكرة بالتوفيق
  3. السلام عليكم ورحمة الله وبركاته اساتذتي الكرام و السادة الافاضل اعضاء منتدانا الجميل تظهر رسالة بصفة مستمرة عند فتح نموذج البداية والذي يقوم بالتأكد من وجود ملف فى جهاز الكمبيوتر ( ملف الويندوز ) والذي يقوم بغلف البرنامج فى حالة عدم وجوده . ولا ادري ما المشكلة ؟؟؟ وانما عند الدخول الى الكود بنافذة الاكواد ثم الخروج منها مرة اخرى لا تظهر هذه الرسالة !!!! ؟؟؟؟ مرفق الكود ورسالة الخطأ Private Sub Form_Open(cancel As Integer) On Error Resume Next If Dir("c:\windows\compu.dll") = "" Then MsgBox "نسخة غير اصلية .. اتصل بالمبرمج non genuine copy , contant programmer", vbCritical, "Error " SendKeys "{ESC}" DoCmd.Quit Exit Sub End If End Sub افيدوني بارك الله فيكم هل هناك مشكلة بالكود ..؟؟؟ ولماذا عند الدخول لنافذة الاكواد ثم الخروج منها تختفي هذه الرسالة ثم تعود مرة اخرى ............. وهكذا علما ان ...... نسخة الاكسس لدي 2013 32 بت كل الشكر والاحترام ،،،،
  4. والبحث سيكون بالمجموعة او الصنف او الشركة ................. الخ وبذلك سيكون البحث سلس وبسيط
  5. مشاركة مع الاستاذ شيفان استاذي الحبيب السيد جمال لا احبذ موضوع البحث عن الصنف بالاسم وذلك لانه فيما بعد سوف يكون احتمال كبير في تغيير الاسم ولذلك احبذ موضوع الكود لانه ثابت لا يتغير وطبعا سيكون الادخال اما عن طريق ادخال كود الصنف مباشرة او عن طريق الباركود كما اشار استاذ شيفان والميزة في ذلك انه مهما تغير اسم الصنف سيظل الكود ثابت تحياتي نعم استاذي خلي الكود صغير نسبيا بمعني 4 او 5 ارقام حتي لا يكون عملية الادخال شاقة على البائع بمعنى مجموعة الاسلاك او الكابلات تبدأ برقم 1 1001 كابل 100 ملل 1002 كابل 200 مللي 1003 ...... الخ مجموعة اللمبات و الاضاءة مثلا تبدأ برقم 2 2001 لمبات فلورسينت مقاس كبير نوع كذا 2002 لمبات فلورسنت مقاس وسط نوع كذا .... الخ وعلية سوف يكون عملية الادخال بسيطة وسلسة شكرا لك اخى الكريم بس انت عارف علشان اخليه يشترى طابعة للباركود ب 3000 جنيه وقارئ كمان بقدهم العملية صعبة شوية اما بخصوص لاصق الباركود نفسة اللي موجود على الصنف حتي يتعرف الكاشير على كود الصنف فممكن تطبع ورقة واحدة فقط لكل صنف على ورق استيكر عادي وتضعة عن مكان تخزين هذا الصنف او عند الكاشير وعلية سوف يقوم الكاشير برؤية كود الصنف وادخالة مباشرة الى البرنامج ، ومع الوقت والتكرار ستكون العملية سلسة رؤية
  6. واياك اخي الفاضل بالتوفيق
  7. عليكم السلام اخي الطاير ولنفترض ان حقل الرقم القومي اسمه civil_no الطريقة الاولي ضع في خصائص الحقل بالجدول عند خاصية input mask القناع 00000000000000 ;0;_ الطريقة الثانية بالنموذج عند خاصية on change if len (me.civil_no.text )<>14 then رسالة بالخطأ me.civil_no.set focus end if بالتوفيق
  8. السلام عليكم مشاركة مع اخي ساند اخي محمد في الغالب هذه الرسالة تدل علي انك تستخدم نسخة اوفيس 64 بت وليس 32 بت راجع هذا الرابط او حاول وضع كلمة ptrsafe قبل كلمة function لتصبح declare ptrsafe function بالتوفيق
  9. تمااام استاذ شيفان الكود يعمل تمام تسلم ايدك تمام استاذ شيفان الكود يعمل تمام تسلم ايدك
  10. بارك الله فيك استاذ شيفان وجاري التجربة
  11. تمام ان شاء الله وتسلم استاذنا وجزاك الله كل خير كل الشكر والتقدير استاذنا .....
  12. هو بالفعل قيمة افتراضية لنموذج المبيعات on load وايضا عند الضغط على زر حفظ بعد ادخال البيانات .... واضحة استاذ رمهاان ؟؟؟ ام اوضحلك اكثر ؟؟
  13. انا وضعت Dim F As Date If DCount("daily_serial", "Torderno") > 0 Then F = DMax("dat", "Torderno") If Date < F Then MsgBox " لا يمكن" DoCmd.close acForm, "f_order" End If End If Me.daily_serial = Nz(DMax("daily_serial", "Torderno", "dat=date()")) + 1 يا سلام عليك يا فناااان يا ملك الاختصارات تسلم ايدك استاذنا الغالــــــــــــــي والله لا يحرمنا منك بارك الله فيك وزادك الله من فضله كل الشكر والتقدير
  14. تمااام استاذي ..... يعمل تمااام