عمر ضاحى

روح على الجدول وفى خصائص الحقل مطلوب اجعلها نعم

هنا انت هتستخدم دالة Dlookup مع الكود السابق ذكره

ممكن بهذه الطريقة If TxT1 <> "محمود" And TxT1 <> "عصام" And TxT1 <> "مدحت" Then MsgBox "خطأ ادخل الاسم الصحيح" End If طبعا استبدل txt1 باسم مربع النص

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

ده ممكن بسبب شئ متعارض مثل حقل نوع رقمي وانت مدخل نص او رقم مفتاح اساسي غير قابل للتكرار وانت بتحاول تضيفه مره اخري راجع بيانات (انواع الحقول) الجدول غندك او المفاتيح ربما تحتاج لايقاف مثل اضافة رقم ID فى حالة كان الرقم نوع تلقائى ده قد يكون المشكله او قد يكون هناك حقل مطلوب ولم تدخل البيانات الخاصه به

انا شايف ان الكود يعمل عندك عادي ممكن توضح ايه الخطأ ؟

استخدم هذا الكود مع اى فورم هذا للاضافة Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("tabr", dbOpenDynaset) With rst .AddNew ![id] = ![nom] = ![sand] = ![datee] = ![resever] = ![rasee] = ![faree] = ![onde] = ![oytde] = ![indo] = ![outdo] = ![daleel] = ![notes] = ![years] = .Update .Close End With Set rst = Nothing db.Close Set db = Nothing عطل ما تريد تعطيله وفعل ما تريد ترحيله ------------------------------------------ هذا للتعديل Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("tabr", dbOpenDynaset) With rst .FindFirst Criteria:= If Not .NoMatch Then .Edit ![id] = ![nom] = ![sand] = ![datee] = ![resever] = ![rasee] = ![faree] = ![onde] = ![oytde] = ![indo] = ![outdo] = ![daleel] = ![notes] = ![years] = .Update End If .Close End With Set rst = Nothing db.Close Set db = Nothing اتمني هذا ما تريده

اعذرنى انا مش فاهم المطلوب صراحتا

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

اتفضلى

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

الموضوع بسيط اكتبي توضيح للمطلوب واتركي الصوره تكمل طلبك

هو كان هيكون فى كلام يتكتب بس تقريبا كنتى مستعجله للدرجة انك نسيتى تكتبي 😅

مفيش تعب ولا حاجه كل ما فى الموضوع انا عاوزك تعملها بنفسك علشان تتعلمها عموما انا عملتلك مشهد للطريقة وارفقتلك الملف . JO.rar

انا ما فعلت حاجه زياده فقط طبق ما سبق ان اخبرتك به هنا ما فى اسهل من كده جرب تطبق ما تخاف من شئ

ال هى كده يعني ؟

فى السطر هذا ضيف الشرط الاخر الذى تريده مثل and ثم الشرط الغير مستثني لاني مش فاهم ايه هو الاثتثناء الذى تريده فده ال اقدر اقدمه لك

ان شاء الله مش هيكون فى مشكله لما بتكون بالانجليزي الاكسيس هيعرف يتعامل معها بدون مشاكل فلا تشيلى هما (اعتبريه خطأ مني)

طيب الحمد لله

امممممم ممكن بسبب ان النسخه عندك انجليزي جربي تغيري فى الكود السطرين ال مكتوب فيهم الى contract.RowSourceType = "Value List"

اتفضلى ما تريدين 2 combobox.rar Private Sub account_AfterUpdate() Dim strSQL As String Select Case Me.account.Value Case "فردي" ' contract.RowSource = "" contract.RowSourceType = "قائمة القيم" contract.RowSource = "بدون تعاقد;بدون تعاقد" contract.Value = "بدون تعاقد" discount.Value = "0" discount.Enabled = True Case "تعاقد" strSQL = "SELECT contract_price_tbl.code, contract_price_tbl.contract, contract_price_tbl.discount FROM contract_price_tbl;" contract.RowSourceType = "Table/Query" contract.RowSource = strSQL discount = contract.Column(2) discount.Enabled = False Case "مجاني" ' contract.RowSource = "" contract.RowSourceType = "قائمة القيم" contract.RowSource = "بدون تعاقد;بدون تعاقد" contract.Value = "بدون تعاقد" discount.Value = "100" discount.Enabled = True Case "مختبر خارجى" strSQL = "SELECT out_tbl.code, out_tbl.out FROM out_tbl;" contract.RowSourceType = "Table/Query" contract.RowSource = strSQL End Select contract.Requery End Sub

افتح الاستعلام الذى باسم S4 وفى اى عمود فاضي ادخل الكود وخلاص طبعة هتفتح الاستعلام فى وضع التصميم

طيب ايه. الغرض من رفع الملف

غدا ان شاء الله باشوفه لك لاني مش على الكمبيوتر الان

بص جرب الفكره دي فى الاستعلام رقم S4 ضع هذا المعادلة فى حقل جديد داخل الاستعلام DateS4: Format([DDate];"mm-yyyy") & "" & Format([MDate];"mm-yyyy") جرب وقول لى اذا هذا ما تريد