AlwaZeeR

السلام عليكم ورحمة الله وبركاته هلا بيك اخي يبدو انك قد حملت المرفق القديم بدل الجديد عموماً زيادة الخير خيرين تفضل هذا المرفق بعد التعديل جربه ووافني بملاحظاتك للان لم نقم بعمل اي تقرير عزيزي فقط بناء نماذج الادخال والجداول والاستعلامات بخصوص ملاحظاتك: تمت كلها وزيادة كلها لها لزوم في بنية البرنامج الداخلية هناك حقل تقوم بوضع قيمة الصندوق لليوم الجديد ثم تضغط تحديث واذا كان الرصيد للصندوق نفسه من الرصيد السابق تضع صفر ثم تحديث يتم ترصيد رصيد الصندوق يوميا حسب تاريخ اليوم ولا يقبل التكرار BridSalen2018.rar

احسنت صديقي صالح ،،، حل رائع والحمد لله على كل شيء :: تحياتي لكم جميعا

اذن تريد هذا العمل ان يتم تحت امر حفظ في النموذج الذي قمت بذكره؟؟؟ سهلة وبسيطة فقط اعد الاكواد الخاصة بك تحت زر الادراج ، ثم ضع الاكواد الخاصة بي انا تحت زر حفظ :: تحياتي

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

تفضل عزيزي sandanet testfont-waz.rar كم خط تريد استخدام؟ وهنا يتم تعديل الوحدة بعدد الخطوط التي تريدها :: تحياتي

السلام عليكم ورحمة الله وبركاته عزيزي ابو زاهر المرفق الذي ارفقته في مشاركتك الاخيرة لم ينزل عندي لذا اشتغلت لك على المرفق الاول تفضل ووافني بالنتيجة طبعا انا لا استخدم RS ووو كثيرا فقط اعمل على Sql :: تحياتي Jard-waz.rar

في حدث عند التنسيق او الطباعة عزيزي بالنسبة للكود الثاني ارفقه في مثال كي احاول التعديل عليه تحياتي

ضع هذا الكود في وحدة نمطية: Public Sub SetFntName(strFName As TextBox) Rem: استبدل خط ايريل بالخط الذي تريد strFName.FontName = "Arial" End Sub يتم الاستدعاء هكذا: Call SetFntName(TxtName)

تفضل عزيزي ابن بلدي وقلت لك سابقاً: دعنا نبدأ من هذه النقطة... قصدت من ذلك ان تتابع معي كي نصل الى برنامج رائع لبيع الخبز ولا حاجة للانتظار والسهر فقط غير تاريخ الجهاز يدويا وجرب بخصوص اسماء الصنف: عملت لك استعلام يظهر اسماء الاصناف كتابة :: تفضل هذا تعديل جديد BridSale.rar

نعم بتاريخ اليوم الذي يتم فيه البيع تلقائياً من تاريخ الجهاز :: تحياتي

تفضل عزيزي دعنا نبدأ من هذه النقطة واي اضافة تريدها اطرحها :: تحياتي BridSale.rar

ابحث في المنتدى عن منع التكرار وستجد حلولاً كثيرة If DCount("*", "TableName", "FieldName = " & Me.FieldName) > 0 Then MsgBox "الرقم موجود" Cancel = True End If

وعليكم السلام ورحمة الله وبركاته ما المهم في بقاء Me,Requery لحدث بعد التحديث للخيار؟؟؟

انت لم تحدد العلامة القصوى لكل مادة ،،، والحل الذي قدمه لك الاخ حازم السيد صحيح للتعديل على النتيجة اذكر العلامة القصوى لكل مادة كي تكون النتائج اكثر دقة ::

وعليكم السلام ورحمة الله وبركاته اخي العزيز عبد الله هذه ليست للسنة بل ان Y يعني السماح بالكتابة نعم والـ D رمز الى ان القاعدة على الدرايف ان شاء الله سوف اوافيك بمثال بسيط حال تسمح ظروفي بذلك :: تحياتي

ان شاء الله ،،، سانزل المرفق الجديد

وعليكم السلام ورحمة الله وبركاته حياك الله اخونا عبد الله ،،، كل الاحترام كنت قد قرأت عن نفس الموضوع في منتدى اجنبي قديماً وكان هذا الكود يفي بالغرض لا ادري ان كان هو نفس ما تستخدم ام لا عموماً هذا هو الكود: :: تحياتي echo off xcopy \\SrverName\Flderzz\YrDb.accdb %USERPROFILE%\Documents /y /d Start %USERPROFILE%\Documents\YrDb.accdb

جرب بهذه الطريقة عزيزي MinAge.rar

وعليكم السلام ورحمة الله وبركاته جرب مع تغيير حقل المقارنة حسب ما تريد :: تحياتي If Rsnf <> 0 Then MsgBox "الرصيد ليس صفر لا يمكن الحذف" Me.xx = 0 ElseIf Rajmsanf = DLookup("[Rajmsanf]", "HRR") Then MsgBox "رقم الصنف موجود في جدول HRR" Me.xx = 0 Else End If

وعليكم السلام ورحمة الله وبركاته تفضل عزيزي جرب المرفق ووافني بالنتيجة ،،، :: تحياتي في حال لم يفتح المرفق قم بتحميل الوينرار اخر اصدار وتنصيبه من جديد DatabaseWazz.rar

Rs=Format(Nz(DSum("[madeen]-[daaen]";"r1";"Nz([ID_r];0)<=" & Nz([ID_r];0));0);"#,###" & 0)

الملف مضغوط على وينرار 5.50 قم بتنزيل الوينرار 5.50 وتنصيبه عندك وسوف يفتح الملف :: تحياتي

وعليكم السلام ورحمة الله وبركاته هناك نقص في الحقول من: الخميس1 الى الخميس8 هذه الحقول موضوعة تحت كل يوم بنفس الحجم الحلقة تبحث عنها ولا تجدها ،،، يجب اضافتها ‫‫‫1 - نسخة - نسخةwazz - نسخة.rar

جرب هذا الكود ضعه في وحدة نمطية جديدة ثم قم باستدعائه في حدث التقرير في المكان الذي تريد ان يظهر فيه العلامة المائية اجعلها نقطة البداية لهذا الامر وانطلق ،،، تحياتي Call Watermark(Me) Public Function Watermark(rpt As Access.Report) Dim strMessage As String Dim lngHorSize As Long Dim lngVerSize As Long Debug.Print rpt.Name strMessage = "Alwazeer" With rpt 'Set scale to pixels, and set FontName and 'FontSize properties. .ScaleMode = 3 .FontName = "Courier" .FontSize = 48 .ForeColor = 12632256 ' Horizontal width. lngHorSize = .TextWidth(strMessage) ' Vertical height. lngVerSize = .TextHeight(strMessage) ' Calculate location of text to be displayed. .CurrentX = (.ScaleWidth / 2) - (lngHorSize / 2) .CurrentY = (.ScaleHeight / 2) - (lngVerSize / 2) ' Print text on Report object. .Print strMessage End With End Function

اعتقد من الافكتس الخاصة بالطابعة