محمد أبوعبدالله

انتبه معي اخي الكريم 200 * 15% = 30 230 * 15% = 34.5 100 * 15% = 15 100 * 15% = 17.25 تحياتي

تفضل اخي الكريم =Nz([S])-(Nz([s])*Nz([tax])) 99.rar تحياتي

وعليكم السلام ورحمة الله وبركاته في كود استعراض وفتح قاعدة البيانات اضف الامتداد للفلتر strFilter = ahtAddFilterItem(strFilter, "Access files (*.accdb, *.mdb)", "*.accde;*.mde") او يمكنك عند استعراض قاعدة البيانات كتابة *.* لعرض جميع الملفات في المجلد تحياتي

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به اخي الحبيب @احمد الفلاحجي وله الشكر تفضل اخي الكريم اكتب هذا في حقل الناتج =Nz([S])-(Nz([tax])*100) 99.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim db As DAO.Database Dim rs As DAO.Recordset Dim rss As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("SELECT tbl1.*FROM tbl1;") Set rss = db.OpenRecordset("SELECT tbl2.*FROM tbl2;") rs.AddNew rs("txt1") = Me.txt1 rs("txt2") = Me.txt2 rs("txt3") = Me.txt3 rs.Update rs.Close rss.AddNew rss("txt1") = Me.txt1 rss("txt2") = Me.txt2 rss("txt3") = Me.txt3 rss.Update rss.Close تحياتي

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

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

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به اخونا الكريم @نبراس كاظم وله الشكر يمكن انشاء نموذج وعرضه بديلاً عن msgbox تحياتي

لا يوجد في نموذج Q_NFOUS هذه الحقول يمكن اضافة النموذج كنموذج غير منضم بريد الفرز.rar تحياتي

وعليكم السلام ورحمة الله وبركاته في الجدول نقوم باضافة chk1 من نوع Yes/No لنوقم بتحديد من يستحق الضريبة فنضع عليه علامة صح وفي الاستعلام نقوم بتعديل حقل الضريبة كالتالي الضريبة:iif(chk1=0;0;Round([ض2]*2.5/100;2)) شئون العاملين.rar تحياتي

استخدمه كالتالي If Dir(Me.txt1 & "*.*") = "" Then MsgBox "مجلد الحفظ فارغ لا يحتوى على أى نسخ !!", 48, "نافذة الرسائل" Else If MsgBox("هل تريد حذف النسخة الاحتياطية السابقة ؟", vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbYesNo, "تحذيــــر") = vbYes Then Kill (Me.txt1 & "*.*") MsgBox "لقد تم حذف جميع النسخ الإحتياطية بنجاح!!!!", 48, "نافذة الرسائل" End If End If حذف محتويات مجلد.rar تحياتي

بالاضافة الى ما تفضل به استاذنا jjafferr وله الشكر اخي الكريم استخدم + بديلا عن And كالتالي saves: (Nz(DSum("save";"tabl1";"code=" & [code]);0))+(Nz(DSum("ahmed";"tabl1";"code=" & [code]);0)) AA1.rar تحياتي

السلام عليكم لحذف محتويات مجلد نستخدم الكود التالي Kill Me.txt1.Value او تحديد المسار كالتالي Kill "C:\My_Files\*.*" حذف محتويات مجلد.rar تحياتي

بالتوفيق اخي الكريم تحياتي

حسنا اخي الكريم اضغط على كود الصنف النموذج الفرعي سيظهر نموذج الاصناف اختار الاصناف ثم اضغط موافق وانظر النتيجية Hmza.rar تحياتي

لان جدول Table_StorExch مرتبط بعلاقة مع جدول Table_StorPri لذلك يجب تحديد رقم Id اولاً انظر الاستعلام Query1 Hmza.rar تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك استحدام دالة datediff لمعرفة الفرق بين تاريخين وهنا مثال سيفيدك ان شاء الله تحياتي

وعليكم السلام ورحمة الله وبركاته نعم ولا بد من تجديد المسار الجديد لقاعدة بيانات الخلفية او وضعهم في نفس المسار في كل جهاز والافضل وصع الملفين في مكان ثابت على محرك الاقراص وليكن D مثلاُ D:\DB_pro تحياتي

وعليكم السلام ورحمة الله وبركاته لتحديد الكل نستخدم استعلام تحديث كالتالي DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE TableItem SET TableItem.Selc = -1;" DoCmd.SetWarnings True Me.Requery ولالغاء تحديد الكل DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE TableItem SET TableItem.Selc = 0;" DoCmd.SetWarnings True Me.Requery ولنسخ البيانات الى جدول اخر نستخدم استعلام الحاق كالتالي DoCmd.SetWarnings False DoCmd.OpenQuery "Query1" DoCmd.SetWarnings True Me.Requery Hmza.rar تحياتي

لا بد من منادة الوحدة النمطية داخل النموذج لاتمام عملية داخل النموذج تحياتي

وعليكم السلام ورحمة الله وبركاته ضع الكود التالي في وحدة نمطية جديدة Public Function XXPicture() Dim XPicture As String XPicture = Application.CurrentProject.Path & "/01.jpg" XXPicture = XPicture End Function وضع الكود التالي في النماذج Private Sub Form_Load() Me.Picture = XXPicture End Sub مع تغيير اسم الصورة ووضعها بجوار البرنامج تحياتي

بعد اضافة البيانات الا ترى تفريغ الحقول ليتم كتابة بيانات جديدة ؟ MsgBox "تم اضافة البيانات بنجاح ان شاء الله ", , "officena" ' Emptying TxttBox Me.txtName = Null Me.txtTel = Null Me.txtAddress = Null تحياتي

اسأل الله الا يحرمنا منك ولا من اضافتك وللفائدة نقوم بتفريغ الحقول في النموذج الرئيسي لعدم تكرار الاضافة If Len(Me.txtName & "") = 0 Then MsgBox "يحب اختيار اسم العميل اولاً", vbInformation, "officena" Me.txtName.SetFocus ElseIf Len(Me.txtTel & "") = 0 Then MsgBox "يحب اختياررقم التليفون اولاً", vbInformation, "officena" Me.txtTel.SetFocus ElseIf Len(Me.txtAddress & "") = 0 Then MsgBox "يحب اختيار العنوان اولاً", vbInformation, "officena" Me.txtAddress.SetFocus Else 'to make a New Record in the SubForm, it has to be in Focus Me.frm2.SetFocus DoCmd.GoToRecord , , acNewRec 'now take the values from the Main Form Me.frm2!XName = Me.txtName Me.frm2!XTel = Me.txtTel Me.frm2!XAddress = Me.txtAddress 'save the SubForm Record so that the Record Count shows correctly If Me.frm2.Form.Dirty Then Me.frm2.Form.Dirty = False MsgBox "تم اضافة البيانات بنجاح ان شاء الله ", , "officena" ' Emptying TxttBox Me.txtName = Null Me.txtTel = Null Me.txtAddress = Null End If 1280.DB_test.accdb.zip تحياتي

اضف الكود التالي Me.Label1.Caption = Me.frm2.Form.RecordsetClone.RecordCount DB_test.rar تحياتي

تفضل اخي الكريم Private Sub start_date_Exit(Cancel As Integer) Dim i As Date Dim j As Date i = DateAdd("YYYY", 7, [start_date]) j = DateAdd("d", 1, i) end_date = j End Sub New Microsoft Office Access Application.rar تحياتي