Wrong syntax on DOA.Recordset field update

[GraeagleBill]

Name: 000.jpg  Views: 24  Size: 55.3 KB  ID: 45949" class="thumbnail" style="float:CONFIG" />

Since I know, as with the failed statement, that "Mov1" is a valid field in the current DAO Recordset, I assume the syntax is wrong? The compiler only demanded the brackets. I verified in Debug that the current value of "I" is in fact one (1).

[Micron]

Have never seen nor would use Me("something"). If not Me.Something then Me.Controls("Something")
Perhaps the form collection is the collection being referred to. Could try the bracketed syntax above or replace with a valid value as a test.

[GraeagleBill]

Could try the bracketed syntax above or replace with a valid value as a test.

That was the first thing I tried. I.e., !["Mov" & I] = "" Also, I first coded the source of the assignment Me.Controls("tbMov" & I) like I would normally do but dropped the ".Control" only after trying a few other things out of desperation.

[kd2017]

Try

.Fields("Mov" & I) = Me.Controls("tbMov" & I)

[Micron]

Then as always, must verify that values and concatenations are what you expect. I get the impression that this happens even on the first pass which is why I didn't mention that the collection is zero based if it is for a recordset fields or form controls. So it's more than likely that at least Mov1 would work. I guess I'd be debug.printing either
rs!fields("Mov" & I).Name (or for the form controls collection).
Not sure which because your post suggests that there is a With block above and I'm assuming it is for the recordset. Do you mind if I ask why you post the absolute minimum amount of code when you need help? It begs too many questions and assumptions - at least on my part.

[kd2017]

My access at least wont digest !["Mov" & I]
It doesn't complain about .Fields("Mov" & I) though.

[GraeagleBill]

Yes, perfect. Access simply needed to recognize my referenced to members of the Fields collection.
Bill

[Micron]

It doesn't complain about .Fields("Mov" & I) though.

It will work IF the With is

With rs.Fields but not if it is With rs

as in

With rs.Fields
   Debug.Print !sysnum
End With

which works. Too bad what the With was about wasn't evident.

[GraeagleBill]

Set rsWorks = DBEngine(0)(0).OpenRecordset("QWorks")

With rsWorks

    .AddNew
    !Title = WorksTitle
    !CatSystem = CatSys
    !CatSystemVal = CatSysVal
    !CompID = CompID
    !OrchID = OrchID
    !CondID = CondID
    !GenreID = GenreID
    !SoloID = SoloID
    !VolID = lngVolID
    For I = 1 To 16
        .Fields("Mov" & CStr(I)) = Me.Controls("tbMov" & CStr(I))
        .Fields("Mov" & CStr(I) & "t") = Me.Controls("t" & CStr(I))
    Next I
    .Update
End With

rsWorks.Close
Set rsWorks = Nothing

[kd2017]

It will work IF the With is

With rs.Fields but not if it is With rs

as in

With rs.Fields
   Debug.Print !sysnum
End With

which works. Too bad what the With was about wasn't evident.

In my testing I found it was the !["..."] notation it barked at. To be specific it's the string within the square brackets. I've used ![ControlName] without issue

Private Sub Command6_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim I As Integer
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Table1")
    
    With rs
        .AddNew
        
        'For I = 1 To 3
            '.Fields("Mov" & I) = Me.Controls("tbMov" & I)
        'Next I
        
        ![Mov1] = Me.Controls("tbMov1") '<---- This works
        
        !["Mov1"] = Me.Controls("tbMov1") '<---- This doesn't work

        
        .Update
        .Close
    End With
    
    
    Set rs = Nothing
    Set db = Nothing
End Sub

[Micron]

!["Mov1"] = Me.Controls("tbMov1") '<---- This doesn't work

because of the quotes inside the brackets? [ ] defines the field name so [field1], not ["field1"].
Either [Mov1] or ("Mov1") but not ["Mov1"].

[kd2017]

Yep, that's what I've found.