wael_rafat

يالتوفيق اخي صالح

اتفضل اخوي جرب هذا الكود .... فى الحدث قبل التحديث Private Sub barcode_BeforeUpdate(cancel As Integer) If IsNull(DLookup("[itemcode]", "Tmenu", "[itemcode]='" & [barcode] & "'")) Then If MsgBox("هذا الكود غير موجود بالاصناف.... " & barcode & vbCrLf & vbCrLf _ & "هل تريد اضافته ؟؟؟ " & vbCrLf, _ vbCritical + vbYesNo + vbDefaultButton1, _ "صنف غير متاح") = vbNo Then DoCmd.CancelEvent barcode.Undo Else DoCmd.OpenForm "F_items", , , , , acDialog End If End If حيث itemcode هو حقل كود الصنف tmenu جدول الاصناف barcode حقل ادخال كود الصنف F_items نموذج ادخال الاصناف

اهلا باستاذنا الغالي جرب كده DoCmd.OutputTo acOutputTable, "Query1", "ExcelWorkbook(*.xlsx)", "ãÕÑæÝÇÊ ÚãæãíÉ.xlsx", True, "", , acExportQualityPrint مصروفات عمومية.xlsx

استاذي الجميل شيفان .... سعيد بمشاركتك معنا وبارك الله فيك الفكرة استاذي الحبيب وكما قال استاذنا الغالي رمهان نحتاج لنظام ذكي . بمعني انه ليس من الطبيعي انه بعد انتهاء شفت الكاشير نقوم بعمل بحث بالتاريخ والوقت عن الفترة اللي عمل بها . ولذلك الفكرة تتلخص بانه عند انتهاء شفت الكاشير يقوم المدير بضغط زر ( انهاء الشفت ) ومن ثم يتم تسكير حساب هذا الكاشير وطباعة ملخص الحساب ( ارقام الفواتير - التاريخ -الوقت - اجمالي المبلغ ) ؛ ثم يستلم الكاشير التالي وبعد انتهاء شفت العمل يقوم المدير بضغط زر ( انهاء الشفت ) ويتم تسكير حسابه ..... وهكذا .... * والفكرة التي توصلت اليها بالمرفق الاخير ( shift) هو ارسال جميع الفواتير التي تتم من خلال الكاشير الي جدول مؤقت ( اسم الكاشير - تفاصيل الفواتير ) وعند الضغط على زر تسكير الحساب يتم طباعة ملخص الحساب ثم يتم الغاء جميع البيانات بالجدول المؤقت وهكذا مع الكاشير التالي ...... وبذلك يتم ادراج التاريخ والوقت تلقائي وبدون تدخل الكاشير وبهذه الطريقة يكون العمل ذكي ومرن نفس فكرة عمل ماكينة الكاشير ( casio) كل الشكر والتقدير استاذنا @Shivan Rekany

السلام عليكم مشاركة مع اخي سلمان لنفس الموضوع كان لي مشاركة سابقة لنفس الموضوع مع استاذنا وحبيبنا رمهان وللاسف لم يكتمل وحشتنا كتييييير استاذي الغالي @رمهان .... ودائما على بالي بالخير وارجو من الله تعالى ان تكون بخير وسلام وبعد اذنك تم عمل التعديلات المطلوبة بالمشاركة المذكورة shift.rar

بارك الله فيك استاذنا الغالي جعفر وجزاك الله عنا خير الجزاء وعام خير وسلام وبركة ان شاء الله ... علينا جميعا وعلى الامة العربية والاسلامية

مشاركة مع استاذي العزيز @Shivan Rekany جرب اخي كاسر Dim i As Integer Dim rs As Recordset Set rs = Me.Tabl_2.Form.RecordsetClone rs.MoveLast r = rs.RecordCount rs.MoveFirst For i = 1 To r If IsNull(rs!Tex) Or IsNull(rs!Tex1) Then MsgBox " íæÌÏ Þíã ÝÇÑÛÉ íÌÈ ÇÏÎÇáåÇ ... ÇÏÎá ÇáÞíã ÇáÝÇÑÛÉ ", vbCritical, " ÈÏæä ßãíÉ " Refresh Exit Sub End If rs.MoveNext Next rs.Close Set rs = Nothing DoCmd.GoToRecord , , acNext New .rar

اتفضل تقرير. استاذنا الحبيب @Shivan Rekanyممكن توضيح الاجراء الذي اضفته مع شكري وتقديري ،،،

مشاركة مع استاذنا يوسف او قم بازالة نسخة الاوفيس الحالية لديك والتي هي ( 64 بت ) ثم قم بانزال نسخة اوفيس ( 32 بت ) بالتوفيق

مشاركة مع اخي الكريم ايمن استاذنا العزيز ابو عبد الله اعتقد ان الامر ليس له علاقة بالبرنامج وانما هو خاص بامكانيات جهاز الPOS وعليه ممكن يكون السؤال كالتالي :- كيفية / طريقة عرض جزء معين من الشاشة الرئيسية ( شاشة الكاشير ) الي شاشة العميل ، بمعني كيف يمكنني اختيار جزء معين من الشاشة الرئيسية لعرضة علي شاشة الزبون . وهنا ارجع لاخونا ايمن ... ممكن تراجع الكتيب او الكتالوج المرافق للجهاز وتبحث عن هذه الخاصية . مع الشكر للجميع ...

الحمد الله الذي بنعمته تتم الصالحات بالتوفيق

عليكم السلام ="*" & [code] & "*" ونوع الخط IDAutomationHC39M

اتفضل اخي محمد عند الضغط ضع هذا الكود =date()-1 بالتوفيق

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

راجع هذا الموضوع لاستاذنا السيد جمال لعله يفيدك

يا مرحبا باستاذنا الجميل @Elsayed Bn Gemy محتاجين لمساتك الرائعة كما عوتنا حبيبنا على مثال بالاكسس ...لو سمحت تقديري واحترامي استاذنا المارد

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

تمام الحمد لله

عليكم السلام اتفضل اخي الكريم docmd.runcommand accmdprint

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

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

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

نعم لاحظت ذلك

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

السلام عليكم ورحمة الله وبركاته استاذنا الفاضل @jjafferr سامحني الكود شغال زى الفل على طابعة الA4 ، ولكن للاسف بعد التجربة على طابعة الفواتير للاسف لم يعمل ويعطيني نسخة واحدة فقط بمعني DoCmd.PrintOut acPrintAll, , , , 3 يعطي نسخة واحدة فقط والله حاولت كتير استاذنا الكريم قبل هذه المشاركة وايضا باعدادات الطابعة كثيرا دون جدوى وسوف يتضح معك الامر لو قمت بالتجربة على طابعة الاوفيس Send To OneNote 2013 عموما استاذي لدي فكرة او حيلة .. لو حاولنا ان نقوم بتكرار الكود DoCmd.PrintOut acPrintAll, , , , 3 سوف تنجح الفكرة .... ولكني فشلت فى الوصول لهذه الحيلة كل شكري واحترامي استاذنا الساحر