wael_rafat

تسلم ايدك استاذنا الفاضل ومعلمنا القدير ابو خليل وتم عمل نقل البيانات لمربعي نص داخل المتصفح والحمد لله ولكن للاسف ما قدرت اتوصل لطريقة للضغط على الايقونات اسفل مربعات الادخال مثل login , remember me 2 text.rar بارك الله فيك وجزاك الله عنا كل خير استاذنا العزيز صالح الرابط لا يعمل بارك الله فيك

تمااام بالتوفيق

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

اخي غريب موضوعك حلو اتقضل الحل " الطريقة الرمهانية " .... من استاذنا وحبيبنا الغالي @رمهانربنا يبارك فيه ويجازيه عنا كل خير الطريقة الرمهانية.rar بالتوفيق ،،،،

اتفضل اخوي ابو انس ان شاء الله يفي بالغرض If IsNull(DLookup("[ÑÞã ÇáØÇáÈ]", "last_dora", "[ÑÞã ÇáØÇáÈ]=" & (Me.äÕ18) & "")) Then MsgBox " åÐÇ ÇáØÇáÈ áíÓ áå ÏæÑÇÊ ", vbCritical, " " Me.dat = "" DoCmd.CancelEvent Else Me.dat = DMax("[ÊÇÑíÎ ÇáÏæÑÉ]", "last_dora", "[ÑÞã ÇáØÇáÈ]=" & (Me.äÕ18) & "") End If وملاحظتي لك ان تستخدم حروف انجليزية بدل من العربية حتي لا تحدث مشاكل بالاكواد بالمستقبل بالتوفيق ... last date.rar

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

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

اتفضل اخوي جرب هذا الكود .... فى الحدث قبل التحديث 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