سؤال حول صيغة الإضافة بجملة sql

اخي الفاضل حاكم

اطلع على الإجابه في الجدول فقد تم كتابتها من خلال النموذج ثم قمنا بعملية الإدارج للجدول

HAKEM.rar

بارك الله فيكِ على سرعة الإستجابة .. وللأسف لم يكن لدي أوفيس على الجهاز الذي طرحت من خلاله المشاركة

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

أتمنى أن أجد الحل بمساعدتك وفقك الله

بعد أذن مشرفتنا الغالية (( زهره ))

فأنا أعرف أنها مشغولة :

يمكنك استبدال جملة sql بالكود التالي :

 Dim rst As New ADODB.Recordset
		rst.Open "[test]", CurrentProject.Connection, adOpenDynamic, adCmdTable

		rst.AddNew

		rst("numd") = Me.numd
		rst("nn") = Me.nn

		rst.Update
		rst.Close

ولكن يجب ضبط المراجع الخاصة بالكائن ADO

مثال مرفق جرب هل يروق لك

HAKEM.rar

يروقني كل ما يقدمه هذا المنتدى وبالتأكيد ما تقدمه أستاذي العزيز

وكنت أتمنى أن يكون الحل وفق جملة الإضافة sql ... لثقتي بأن لا شيء بإذن الله يحول دون تحقيق ذلك بتواجدكم .. ولحاجتي بأن يكون الحل كذلك بعد أن قطعت شوطاً كبيراً في البرنامج الذي أعمل عليه .... وها أنت تضيف لمعلوماتنا المتواضعة جانباً آخر من الحلول ... بارك الله فيك

والله يا عزيزي الغالي

ظهرت المشكلة التي أشرت إليها مع جملة SQL ولم أعلم السبب فقلت في نفسي نبحث جانباً أخر للوصول معك لحل.

عموماً لا زالت الجهود مستمرة لإكتشاف المشكلة ولا أظن إن sql تعجز ولكن أين السبب هذا ما أحاول وبقية الأخوة الوصول إليه

السلام عليكم

dim lpnn
lpnn = "'" + replace(nn.value, "'", "''") + "'"
DoCmd.RunSQL ("INSERT INTO test (numd, nn) values(forms!ftest!numd," & lpnn + ")")

والله أعلم

السلام عليكم

جربت هذا الكود فأعطانى خطأ لأنى لم أقم بضبط المراجع الخاصة بالكائن ADO لأنى ضعيف بها هل من الممكن أن تضعها فى صورة بالموضوع

وهل هذا الكود سليم ام لا خاصة عندما أنادى على قيمة فى الجدول تساوى null فى السطر

And rst!well_num = Null

Dim db As Database, rst As Recordset

Set db = CurrentDb

Set rst = db.OpenRecordset("tbl_tahlilwekly_merf")

rst.MoveFirst

Do Until rst.EOF

If rst!regname = Me!reg_name And rst!comp_id = Me!comp_id And rst!well_num = Null And rst!date = Me!date Then

MsgBox " العينة مكررة ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبية"

Me.Undo

DoCmd.CancelEvent

Exit Do

End If

rst.MoveNext

Loop

rst.close

وشكرا جزيلالالالالالالالالالالالالالالا

استاذي الفاضل Mo7eb_Alrasool ... نعم هذا ما ابحث عنه .. فبارك الله فيك طبقت الكود ونجح الأمر 100 %

والشكر موصول للفاضلة زهرة والعزيز ابو ساره على تجاوبهم وحضورهم المميز