wael_rafat

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

ماشاء الله تبارك الله عليك استاذنا الغالـــي كلامك من ذهب ربنا يزيدك من فضله نفس المشكلة تقريبا عندي منذ فترة ولكن تحدث عند طباعة التقرير لعدد 3 نسخ حيث يوجد فرق وقت طويل ما بين كل نسخة والاخرى . وكنت فاكر ان المشكلة بكود الطباعة حيث كان DoCmd.OpenReport "Rreceipt", acViewNormal, , "[orderno] = " & Me![orderno] DoCmd.OpenReport "Rreceipt", acViewNormal, , "[orderno] = " & Me![orderno] DoCmd.OpenReport "Rreceipt", acViewNormal, , "[orderno] = " & Me![orderno] وقمت بتغيير الكود الي Dim I As Integer For I = 1 To 3 DoCmd.OpenReport "Rreceipt", acViewNormal, , "[orderno] = " & Me![orderno] Next I ولكن نفس المشكلة مازالت مستمرة علما ان هذه المشكلة تحدث فقط عند زيادة السجلات ..... حيث بلغت حوالي 34000 سجل 34 الف وعند تفريغ السجلات تذهب هذه المشكلة عموما .... جاري تطبيق الخطوات التي ذكرتها ، وابلاغك بالنتيجة ان شاء الله لكن مبدئيا استاذنا هل يوجد فرق بين الكودين المذكورين اعلاه لامر الطباعة لاكثر من نسخة ؟؟؟؟ اقصد فرق فى الاداء والاستجابه ؟؟؟؟ كل الحب والتقدير استاذنا الغالــــــــــــــــي ،،،

حبيبي استاذنا بارك الله فيك

وهذا تصوري للمعالجة weekly.rar منتظر رؤيتك استاذنا الحبيب

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

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

السلام عليكم ورحمة الله وبركاته ،،،، السادة الافاضل مشرفي واعضاء منتدانا الجميل استفساري عن تحديد بداية ونهاية اسابيع الشهر الحالي بمعنى 1- الاسبوع الاول من الشهر الحالي يبدأ بتاريخ 1 / 4 / 2017 وينتهى بتاريخ 7 / 4 / 2017 2 - الاسبوع الثاني من الشهر الحالي يبدأ بتاريخ 8 / 4 / 2017 وينتهي بتاريخ 14 / 4 / 2017 3 - الاسبوع الثالث من الشهر الحالي يبدأ بتاريخ 15 / 4 / 2017 وينتهي بتاريخ 21 / 4 / 2017 4 - الاسبوع الرابع من الشهر الحالي يبدأ بتاريخ 22 / 4 / 2017 وينتهي المفروض بتاريخ 28 / 4 / 2017 ولكن حتى لا يتبقى يومان بالشهر يمكن عملة الي نهاية الشهر 30 / 4 / 2017 هي الفكرة تدور حول تقسيم الشهر الى اربع فترات اسبوعية والغرض منها تقارير اسبوعية للمبيعات ( الاسبوع الاول - الثاني - الثالث - الرابع ) برجاء من لدية رؤية او مقترح للمطلوب بطريقة افضل ... اكون له شاكرا ،،، كل الشكر والتقدير احبائي ،،، weekly.rar

الف مبروك استاذنا وحبيبنا والي الامام دائما باذن الله

كلام من ذهب!!!! عودا حميدا استاذنا وحبيبنا نورت الدنيا كلها

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

يرجع بالسلامة ان شاء الله

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

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

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام و السادة الافاضل اعضاء منتدانا الجميل تظهر رسالة بصفة مستمرة عند فتح نموذج البداية والذي يقوم بالتأكد من وجود ملف فى جهاز الكمبيوتر ( ملف الويندوز ) والذي يقوم بغلف البرنامج فى حالة عدم وجوده . ولا ادري ما المشكلة ؟؟؟ وانما عند الدخول الى الكود بنافذة الاكواد ثم الخروج منها مرة اخرى لا تظهر هذه الرسالة !!!! ؟؟؟؟ مرفق الكود ورسالة الخطأ 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 ارقام حتي لا يكون عملية الادخال شاقة على البائع بمعنى مجموعة الاسلاك او الكابلات تبدأ برقم 1 1001 كابل 100 ملل 1002 كابل 200 مللي 1003 ...... الخ مجموعة اللمبات و الاضاءة مثلا تبدأ برقم 2 2001 لمبات فلورسينت مقاس كبير نوع كذا 2002 لمبات فلورسنت مقاس وسط نوع كذا .... الخ وعلية سوف يكون عملية الادخال بسيطة وسلسة شكرا لك اخى الكريم بس انت عارف علشان اخليه يشترى طابعة للباركود ب 3000 جنيه وقارئ كمان بقدهم العملية صعبة شوية اما بخصوص لاصق الباركود نفسة اللي موجود على الصنف حتي يتعرف الكاشير على كود الصنف فممكن تطبع ورقة واحدة فقط لكل صنف على ورق استيكر عادي وتضعة عن مكان تخزين هذا الصنف او عند الكاشير وعلية سوف يقوم الكاشير برؤية كود الصنف وادخالة مباشرة الى البرنامج ، ومع الوقت والتكرار ستكون العملية سلسة رؤية

واياك اخي الفاضل بالتوفيق

عليكم السلام اخي الطاير ولنفترض ان حقل الرقم القومي اسمه civil_no الطريقة الاولي ضع في خصائص الحقل بالجدول عند خاصية input mask القناع 00000000000000 ;0;_ الطريقة الثانية بالنموذج عند خاصية on change if len (me.civil_no.text )<>14 then رسالة بالخطأ me.civil_no.set focus end if بالتوفيق

السلام عليكم مشاركة مع اخي ساند اخي محمد في الغالب هذه الرسالة تدل علي انك تستخدم نسخة اوفيس 64 بت وليس 32 بت راجع هذا الرابط او حاول وضع كلمة ptrsafe قبل كلمة function لتصبح declare ptrsafe function بالتوفيق

تمااام استاذ شيفان الكود يعمل تمام تسلم ايدك تمام استاذ شيفان الكود يعمل تمام تسلم ايدك

بارك الله فيك استاذ شيفان وجاري التجربة

تمام ان شاء الله وتسلم استاذنا وجزاك الله كل خير كل الشكر والتقدير استاذنا .....

هو بالفعل قيمة افتراضية لنموذج المبيعات on load وايضا عند الضغط على زر حفظ بعد ادخال البيانات .... واضحة استاذ رمهاان ؟؟؟ ام اوضحلك اكثر ؟؟

انا وضعت 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 يا سلام عليك يا فناااان يا ملك الاختصارات تسلم ايدك استاذنا الغالــــــــــــــي والله لا يحرمنا منك بارك الله فيك وزادك الله من فضله كل الشكر والتقدير

تمااام استاذي ..... يعمل تمااام