Shivan Rekany

والسبب يرجع لان حضرتك عمل هذا ونسيت هذا تحياتي

غدا راح اشوفه ان شاء الله لان ليس لدي لابتوب الان لكن حسب فكري امسح كل الاكواد في زر لا فقط خلي كود اغلاق النموذج انتظرني حتى غدا

اتفضل اليك ما طلبت القي نظرتا الى الموضوع او هذا او هذا موقع اجنبي http://www.databasedev.co.uk/report_printing.html

شوف الصورة في ثلاث خطوات

هناك احد الحلول قم بتغير مكان سطر الطباعة التقرير من النموذج الرئيسي الى عند الضغط على نعم القي نظرتا اليه msg form.rar

اتفضل اليك هذه الطريقة تم الغاء خاصية اضافة في النموذج وللاضافة تم استخدام كم مربعات نصية مع الكود الاسفل Private Sub Command29_Click() DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Temp ( [اسم الموظف], [المبلغ المستلم], WrTahdeeth2, ملاحظات, [قيمة القرض] )" & _ "SELECT [Forms]![Temp]![N] AS N, [Forms]![Temp]![M] AS M, [Forms]![Temp]![TAR] AS TAR, [Forms]![Temp]![MIL] AS MIL, [Forms]![Temp]![R] AS R;" DoCmd.SetWarnings True Me.N = Null: Me.M = Null: Me.TAR = Null: Me.MIL = NUL: Me.R = Null Me.Requery End Sub asd.rar

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

اتفضل اليك هذا Private Sub أمر17_Click() On Error Resume Next DoCmd.RunCommand acCmdSaveRecord If MsgBox("هل تريد فتح التقرير إذا اخترت نعم فلا يمكنك التراجع", vbQuestion + vbYesNo + vbMsgBoxRtlReading + vbDefaultButton1, "") = vbYes Then DoCmd.OpenReport "بيانات", acViewReport, , , acDialog End If End Sub ادخال بيانات جديدة (1).accdb

اتفضل اوفيسينا (1).accdb

تقدر تستخدم هذا ايضا xlWB.SaveAs "D:\Excel Destn Temp" & Format(Now, "YYYYMMDDHHNNSS") & ".xlsx"

في مشاركتك الاخيرة بها ما تريد اذا تفتح التقرير بشكل acViewReport راح تقدر تضغط على الزر لكن اذا تفتح كمعاينة قبل طباعة acViewPreview لا يمكنك تضغط على الزر لكن تقدر تضغط عليه بكليك يمين وستجد قائمة احتر فيه طباعة اي برينت واذا تختار acViewNormal سيطبع التقرير مباشرتا ادخال بيانات جديدة (1).accdb

انا عم استخدم موبايل ان شاء الله غدا بالعصر راح تجدوني هنا

ان شاء الله غدا او بعد غدا راح ارجع لك انتظرني

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

ارسل رسالة الى هذا الايميل SurelyFreeApps@gmail.com

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

الحمد لله لانك وصلت الى ما تريد

اتفضل استاذ الرقم المعرف الغير المعرف 😉😉 كما طلبت ادخال بيانات جديدة.accdb

اتفضل database1 (1) (1).accdb

والسلام عليكم ورحمة الله وبركاته انا فتحت الموضوع جديد و ان شاء الله ساشرح خطوة خطوة وهذا رابطه لكن لان ليس لدي وقت كثير سيكون على عدد اجزاء اي كل مرة ساشرح بعض حتى نخلصه وهذا هو الرابط الشرح https://www.officena.net/ib/topic/86855-شرح-كيفية-حماية-القاعدة-البيانات-بواسطة-رقم-هارد-مع-المعالج-و-اختيار-مدة-التفعيل/

السلام عليكم ورحمة الله وبركاته على الرغبة السيد @محمد عبد الشفيع من هنا https://www.officena.net/ib/topic/86775-دمج-برنامج-الحماية-مع-برنامج-الفترة-التجريبية تم فتح هذا الموضوع و ان شاء الله ساشرح خطوة خطوة حسب وقتي حتى اخلص من الموضوع وفي النهاية راح اسمع اراء و مقترحاتكم والان نحن نحتاج جدول واحد لكي نحفظ فيه تسلسل و رقم هارد و المعالج و رقم التفعيل البرامج و مدة التفعيل و تاريخ التفعيل و تاريخ اخر مرة فتح البرامج وسنسمي هكذا بالتسلسل كما مبينة في الصورة ID من نوع ترقیم تلقائی NumForMoaalic من نوع نصي NumForHard من نوع نصي NumTascil من نوع نصي Midda من نوع رقم و مصدره يكون عمودين واحد لكتابة رقم ايا عدد ايام التفعيل والاخر لكتابة مثلا يوم واحد او اسبوع واحد هكذا وهذا هو مصدره "1";"يوم واحد";"7";"اسبوع واحد";"30";"شهر واحد";"90";"ثلاث اشهر";"180";"ستة اشهر";"365";"سنة واحدة";"18250";"مدى الحياة" شوف الصورة لكي نعرف خصائص هذا الحقل جيداً و ايضا عندنا حقل باسم firstdate من نوع وقت والتاريخ واخر حقل هو EndDate من نوع وقت والتاريخ وتم تسمية الجدول باسم TblTascil ولان ليس لدي وقت اليوم ان اكون على جهاز لابتوب غدا او يوم السبت ان شاء الله راح اكمل الشرح ونبدأ بعمل النماذج والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله وبركاته تم تنزيل المرفق لكن لم ارى اي باركودات بهذا الشكل في قاعدة بياناتك على الرقم كل شي جرب التغيير في هذا السطر غيره الى هذا xSalesPrice = Format(Mid([ProductID], 7), "##0.00")

السلام عليكم ورحمة الله وبركاته تهنئكم على شجاعتكم @qathi , @Barna , @محمد عبد الشفيع کملوا موضوع وانا ان شاء الله قريبا راح افتح موضوع جديد بقاعدة جديدة انا بدأت وقريبا راح تجدون الرابط هنا

شکرا لک وجزاک الله کل خیر

13.accdb