كيفية حفظ مربع نص (غير منظم) غير متبط بجدول

[عبدالقدوس48]

السلام عليكم

كيفية حفظ مربع نص (غير منظم) غير متبط بجدول حفظه في جدول أخر وشكرا

[متقاعد]

36 دقائق مضت, عبدالقدوس48 said:

كيفية حفظ مربع نص (غير منظم) غير متبط بجدول حفظه في جدول أخر وشكرا

عن طريق استعلام الحاق بواسطة معالج اكسس ثم نحوله الى كود ⬇️

DoCmd.RunSQL "INSERT INTO tbl_1 ( tx )SELECT [Forms]![frm1]![txt] AS Expr1;"

وممكن بدون معالج ونكتب الكود ⬇️

DoCmd.RunSQL "insert into tbl_1 (tx) values (txt)"

وممكن عن طريق العمل على مصدر السجلات ⬇️

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tbl_1")
rs.AddNew
rs!tx = Me.txt
rs.Update
rs.Close
Set rs = Nothing

مرفق مثال

تحياتي

Database41.accdb

[Eng.Qassim]

اضافة لما تفضل به اخي استاذ خالد..لنفرض لديك جدول اسمه tblItems وفيه حقل ItemName

ومربع النص لديك اسمه txtitem فيمكنك استخدام الكود التالي

   Dim sql As String
   Dim MyItem As String
   MyItem = Me.txtitem.Value
   If Not IsNull(MyItem ) Then 
      sql = "INSERT INTO tblItems ([ItemName]) VALUES ('" & MyItem  & "') 
       CurrentDB.Execute (sql)
Else
      MsgBox "ادخل اسم الصنف رجاء"
Exit Sub
End If

 

[عبدالقدوس48]

شكرا لكم وجزاكم الله خيرا

هذا هو مطلوب 

[عبدالقدوس48]

يأخي لو كان أكثر من حقل يعني خمسة حقول

[متقاعد]

29 دقائق مضت, عبدالقدوس48 said:

يأخي لو كان أكثر من حقل يعني خمسة حقول

بنفس الطريقة

DoCmd.RunSQL "insert into tbl_1 (tx,tx1) values (txt,txt2)"


-------------
هنا اسماء الحقول بالجدول
(tx,tx1)


وهنا اسماء الحقول بالنموذج
(txt,txt2)
تفصل بينهم بـ ,

وممكن ايضا عن طريق مصدر  السجلات

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tbl_1")
rs.AddNew
rs!tx = Me.txt
rs!tx1 = Me.txt2
rs.Update
rs.Close
Set rs = Nothing


------------
اسماء الحقول في الجدول
rs!tx
rs!tx1

اسماء الحقول في النموذج
Me.txt
me.txt2

 

[عبدالقدوس48]

جزاك الله خير  يأخي