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

السلام عليكم نستخدم دالة DateAdd لاضافة ايام او شهور او سنين لاضافة ايام DateAdd("d";1;[start_date]) لاضافة شهور DateAdd("m";1;[start_date]) لاضافة سنين DateAdd("yyyy";1;[start_date]) الكود المستخدم لاضافة ايام + سنين Dim i As Date Dim j As Date i = DateAdd("YYYY", 7, [start_date]) j = DateAdd("d", 1, i) end_date = j New Microsoft Office Access Application.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم If IsNull([txtName]) Then MsgBox "يحب اختيار اسم العميل اولاً", vbInformation, "officena" DoCmd.GoToControl "txtName" Else If IsNull([txtTel]) Then MsgBox "يحب اختياررقم التليفون اولاً", vbInformation, "officena" DoCmd.GoToControl "txtTel" Else If IsNull([txtAddress]) Then MsgBox "يحب اختيار العنوان اولاً", vbInformation, "officena" DoCmd.GoToControl "txtAddress" Else Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT tbl1.*FROM tbl1;") Rs.AddNew Rs("XName") = Me.txtName Rs("XTel") = Me.txtTel Rs("XAddress") = Me.txtAddress Rs.Update Rs.Close MsgBox "تم اضافة البيانات بنجاح ان شاء الله ", vbInformation + vbOKOnly, "officena" DoCmd.Close End If End If End If علمأ بأن حقل كود العميل تلقائي اذن لا يمكن اضافته بهذه الطريقة وستكون اضافته تلقائية DB_test.rar تحياتي

وعليكم السلام ورحمة الله وبركاته سنفرض ان لديك المجموع في حفل txt1 وحقل نسبة الخصم txt2 لمعرفة نسبة الخصم =nz([txt1])*nz([txt2]) ولمعرفة الصافي بعد الخصم =nz([txt1])-(nz([txt1])*nz([txt2])) بالتأكيد سيكون افضل لو ارفقت مثال تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم للبحث في النموذج الرئيسي Private Sub أمر14_Click() Dim Rs As Object Set Rs = Me.Recordset.Clone Rs.FindFirst "[no]= '" & Me.Text15 & "'" Me.Bookmark = Rs.Bookmark End Sub وللبحث في النموذج الفرعي ( تصفية ) Private Sub أمر11_Click() Dim myCriteria As String myCriteria = myCriteria & "[no]= '" & Me.Text17 & "'" Debug.Print myCriteria Me.sub_tb_f.Form.Filter = myCriteria Me.sub_tb_f.Form.FilterOn = True End Sub Search_2.rar تحياتي

السلام عليكم المشكلة ليس لها علاقة ببرنامج smart install ولكن لديك مكتبة pdfxcview.dll لا بد ارفاقها مع البرنامج وتثبيتها في الجهاز الجديد حتى يعمل البرنامج بدون ظهور رسالة الخطأ تحياتي

تحياتي

وهل الجدول لديك باسم Home اذا كان كذلك استخدم UPDATE Home SET Home.[رقم وتاريخ الوثيقة] = [رقم الوثيقة] & "في" & [تاريخ الوثيقة]; تحياتي

جرب الان المحل نسخة تجريبية_4.rar تخياتي

حسناً استبدل الكود الى Private Sub أمر4_Click() If DLookup("[FATORA_NO]", "[TABOL_1]", "[FATORA_NO ] ='" & Me.FATORA_NO & "'") Then MsgBox "الرقم مكرر" Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE TABOL_1 SET TABOL_1.FATORA_NO = [Forms]![FORMS_1]![FATORA_NO];" DoCmd.SetWarnings True MsgBox "تم" End If End Sub واذا اردت رسالة تنبيه فقط استخدم الكود التالي Private Sub أمر4_Click() If DLookup("[FATORA_NO]", "[TABOL_1]", "[ID_NO] ='" & Me.FATORA_NO & "'") Then MsgBox "الرقم مكرر" Exit Sub End If End Sub test1.rar تحياتي

معذرة هل تقصد FATORA_NO ارجو التوضيح بارك الله فيك تحياتي

جرب الان المحل نسخة تجريبية_4.rar ملاحظة : لو قمت بتفريغ الجداول البيانات والبداية من جديد ستنتهي المشاكل باذن الله تحياتي

وعليكم السلام ورحمة الله وبركاته استخدم استعلام تحديث كالتالي UPDATE جدول1 SET جدول1.[رقم وتاريخ الوثيقة] = [رقم الوثيقة] & "في" & [تاريخ الوثيقة]; دمج الحقل.rar تحياتي

قمت بعمل الحقل ID حقل اساسي لا يقبل التكرار ولكني اضطرت الى حذف بيانات ولم تحدث مشكلة المحل نسخة تجريبية_4.rar تجياتي

وعليكم السلام ورحمة الله وبركاته انظر اخي الكريم هل هذا هو المطلوب test1.rar تحياتي

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

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

لا توجد مشكلة فاستعلام الالحاق يقوم بنقل البيانات بمعيار حقل ID اذن المشكلة الاساسية لديك في جدول الاصناف فلديك حقل ID يقبل التكرار انظر مثلاً الرقم 16 مكرر 3 مرات وانظر الرقم 17 مكرر مرتين تحياتي

تفضل اخي الكريم المحل نسخة تجريبية_4.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم المحل نسخة تجريبية_4.rar تحياتي

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

اخي بارك الله فيك لا داعي لفتح موضوع جديد فقط انتظر بعض الوقت حتى يتم الرد عليك تحياتي

بعد اذن استاذنا الفاضل @ابا جودى يمكنك تعطيل الكود التالي 'Private Sub Form_AfterInsert() ' LastNum 'End Sub 121.zip تخياتي

وعليكم السلام ورحمة الله وبركاته بالتأكبد معك النسخة الاصبية من البرنامج accdb او mdb ارفقها هنا وباذن الله نحاول حل المشكلة تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Form_Open(Cancel As Integer) Dim z0 z0 = DLookup("ID", "المستخدمين", "ID=forms!login!ID") If z0 = 2 Then Me.Command12.Visible = False Else Me.Command12.Visible = True End If End Sub المحل نسخة تجريبية_2.rar تحياتي

رائع جدا استاذنا الفاضل اسأل الله ان يزدك من علمه وكرمه تحياتي