Shivan Rekany

لم اجد اي خلل فيه بيفتح النموذجويجب ان اعمل تسجيل

وعليكم السلام ورحمة الله وبركاته في هذا المنتدى هناك قسم خاص للاعلانات لكن يجب ان تكتب ايميلك او رقم تلفونك او احد وسائل الاتصال لكي من يقدر ان يتواصل معك تحياتي

انت قمت بحذف الكود في وضع الحالي للفورم قم بتنزيل اخر قاعدة بيانات في مشاركتي وجربه

هو بیعمل جیدا ولیس ھناک خلل

كيف عملت الحذف ... ماذا تريد بالضبط اشرح لي ماتريد بالضبط واعطيني اسماء النماذج لكل عملية لكي اعطيك كود المناسب

اخي @omarahmed1424 انا ردیت علیک في موضوع الحماية اللي رابطه الاعلى وما رديتك هنا لان هذا الموضوع مختصة بحماية بشكل اخر وممكن نناقش هناك تحياتي

١ / نعم ٢ / نعم اخی الکریم @omarahmed1424 السلام علیکم ورحمە اللە وبرکاته لا يمكن ان هناك جهازين يحملان نفس سريال للمعالج والهارد اظن ان هناك خطأ في عملك ممكن تعطيني نسخة مصغرة من برامج لكي اضيف الحماية واعطيك لكي تجرب على الجهازين ؟

عدم ردي على هذا الموضوع يرجع لعدم فهم السؤال جيدا اشرح لي ما هو طلبك النهائي اي بعد اعمل تعديلات عليه لكي لا نرجع علموضوع مجددا اعطيني فهم عملك ماذا تريد بالضبط نقطة نقطة لكي اعطيك كود المناسب تحياتي

استاذ @Elsayed Bn Gemy ممكن تلقي نظرتا الى هذه الارقام في الصور لشهر 1 من سنة 2017 الى شهر 3 لسنة 2018 انا خذت لكل مربع 5 ارقام ونقدر نزيده او نقلله حسب رغبتنا وطبعا ان الارقام للتسجيل السنوي مختلف من هذه الارقام و للشراء مختلف من هذه الارقام و من الارقام السنوي اذا تريد هذا ساكمل العملية وارفقه هنا تقبل تحياتي

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

هل عندك قاعدة لعمل عليها او تريد ان اعمله من البداية ؟

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

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

بعد تحديث الحقل المطلوب اكتب هذا الكود مثلا للحقل NaEMP Me.NaEMP = UCase(Me.NaEMP)

اتفضل استخدم هذا الاستعلام SELECT [البيانات الاساسيه].[اسم الطالب], [البيانات الاساسيه].الحاله, DMax("[الرقم]","الحركات"," [الحركات]![الاسم] ='" & [اسم الطالب] & "'") AS [اکبر رقم] FROM [البيانات الاساسيه]; والیک القاعدە مشكله الاستعلام وفورم الادخال.rar

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

انا غيرت عدد الاعمدة في التقرير الى 5 عمود غيرها الى عمود واحد

اتفضل تم استخدام هذا الكود Private Sub com7_Click() Dim Sql As String Sql = "DELETE TblForPrintBarcode.* FROM TblForPrintBarcode;" DoCmd.SetWarnings False DoCmd.RunSQL (Sql) DoCmd.SetWarnings True Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From TblForPrintBarcode") Dim i As Integer Form_FM4F.Recordset.MoveFirst For i = 1 To Form_FM4F.Recordset.RecordCount Dim ii As Integer For ii = 1 To Form_FM4F.Qut rst.AddNew rst!Ds_Product = Form_FM4F.Ds_Product ' rst!price_b = Form_FM4F.pr rst!Code_Product = Form_FM4F.Code_Product rst!Date_Ex = Form_FM4F.Date_Ex rst.Update Next ii Form_FM4F.Recordset.MoveNext Next i rst.Close: Set rst = Nothing Dim stDocName As String stDocName = "dd" DoCmd.OpenReport stDocName, acViewPreview End Sub واضفت جدول خاص للطباعة الباركود و غيرت في اسماء النماذج اليك المرفق Database1.2.rar

فی الاستعلام استخدم NZ مثل Nz([B_TOTL];0)

اذن لا تقدر

جواب : هل هناك تاريخ بهذا التاريخ ( 0/0/1940 ) ؟ مثلا اسم الحقل التاريخ تابع نموذجك هو باسم Tarix استخدم هذا الكود بعد تحديث التاريخ Me.Tarix = Format(Me.Tarix, "yyyy-mm-dd")

انت على الحق فقط عليك ان تغير موقع هذا السطر Me.Requery من قبل حذف السجل الى اخر الكود اي انقل الى اخر سطر من الكود تحياتي

اتفضل Private Sub Command8_Click() If Me.Frame21 = 1 Then Dim Mablax1 As Integer Dim Mablax2 As Integer If Me.Text2 >= "21:00" Then Me.Text6 = Me.Text0 * 0.02 * (Format(Me.Text4, "h") - Format(Me.Text2, "h")) ElseIf Me.Text2 < "21:00" Then If Me.Text4 >= "21:00" Then Mablax1 = Me.Text0 * 0.01 * ("21:00" - Format(Me.Text2, "h")) Mablax2 = Me.Text0 * 0.02 * (Format(Me.Text4, "h") - "21:00") Me.Text6 = Mablax1 + Mablax2 Else Me.Text6 = Me.Text0 * 0.01 * (Format(Me.Text4, "h") - Format(Me.Text2, "h")) End If End If Else Me.Text6 = Me.Text0 * 0.05 * (Format(Me.Text4, "h") - Format(Me.Text2, "h")) End If End Sub Private Sub Frame21_AfterUpdate() Call Command8_Click End Sub برنامج التعويض عن العمل الإضافي (1).rar

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

لا اعرف كيف تكتب الساعة ... هل تكتب ارقام عادية ام تكتب ساعة و دقائق اذاً اذا تريد ان تكتب ارقام عادية اليك الكود الاسفل واذا تريد ان تكتب ساعة مع الدقائق غير الارقام في الكود الى ساعة Private Sub Command8_Click() Dim Mablax1 As Integer Dim Mablax2 As Integer If Me.Text2 >= 9 Then Me.Text6 = Me.Text0 * 0.02 * (Me.Text4 - Me.Text2) ElseIf Me.Text2 < 9 Then If Me.Text4 >= 9 Then Mablax1 = Me.Text0 * 0.01 * (9 - Me.Text2) Mablax2 = Me.Text0 * 0.02 * (Me.Text4 - 9) Me.Text6 = Mablax1 + Mablax2 Else Me.Text6 = Me.Text0 * 0.01 * (Me.Text4 - Me.Text2) End If End If End Sub