sql - query - insert into access




الوصول فبا: عدد قيم الاستعلام وحقول الوجهة ليست هي نفسها (2)

سيتم تمرير سلسلة سكل الخاص بك إلى محرك سكل الذي لا يعرف كيفية تفسير me!ComboProduct1 الخ تحتاج إلى إدراج قيم تلك المتغيرات في سلسلة:

Private Sub CmdAddtoProductionDetails_Click() 
    Dim StrSql As String StrSql = "Insert Into test1 (ProductName, [Lot Number], ProductionDate, Quantity, Unit, Client)" & _ 
    " Values( '" & me! ComboProduct1 & "', '" & me! LotNoProduct1 & "', #" & Format(me! txtDate, "yyyy/mm/dd") & "#, " & CStr(me! Product1Quantity) & ", '" & me!ComboProduct1Unit & "', '" & me! ComboProduct1Client & "' )" 
    CurrentDb.Execute (StrSql) 
End Sub

وضع يقتبس واحد حول سلاسل ولكن ليس حول الأرقام. بعض الحقول الخاصة بك لم أكن متأكدا مما إذا كانت الأرقام أو السلاسل - أنا جعلت تخمين. تحتاج إلى توخي الحذر مع التواريخ - تحقق من أن محرك سكل يفسر التواريخ بتنسيق يي / مم / د بشكل صحيح. سيتم تحويل السلسلة #2016/06/04# إلى تاريخ تلقائيا لك.

أحاول إضافة بيانات من نموذج أسيس إلى جدول. عندما قمت بتشغيل التعليمات البرمجية سكل، حصلت على رسالة خطأ تقول "عدد من قيم الاستعلام وحقول الوجهة ليست هي نفسها."

هذا هو رمز بلدي:

Private Sub CmdAddtoProductionDetails_Click() 
    Dim StrSql As String
    StrSql = "Insert Into test1 (ProductName, [Lot Number], ProductionDate, Quantity, Unit, Client) Values(me! ComboProduct1, me! LotNoProduct1, me! txtDate, me! Product1Quantity! me!ComboProduct1Unit, me! ComboProduct1Client)" 
    CurrentDb.Execute (StrSql) 
End Sub

طريقة أبسط وأكثر مباشرة هي استخدام مجموعة سجلات:

Private Sub CmdAddtoProductionDetails_Click() 

    Dim rs As DAO.Recordset

    Set rs = CurrentDb.OpenRecordset("Select Top 1 * From test1")
    rs.AddNew
        rs!ProductName.Value = Me!ComboProduct1.Value
        rs![Lot Number].Value = Me!LotNoProduct1.Value
        rs!ProductionDate.Value = Me!txtDate.Value
        rs!Quantity.Value = Me!Product1Quantity.Value
        rs!Unit.Value = Me!ComboProduct1Unit.Value
        rs!Client.Value = Me!ComboProduct1Client.Value
    rs.Update
    rs.Close

    Set rs = Nothing

End Sub




append