Fout bij converteren

[OctaFish]

Je zit natuurlijk al in een With....End With situatie bij het openen van de Recordset.

Overigens zag ik nog een klein foutje in deze code:

Dim i As Integer
Dim sTabel As String
For i = 1 To 6
    If ("cmbBehandeling" & i) <> "" Then
    sTabel = [B][COLOR="Blue"]"GegevensBehandeling"[/COLOR][/B]
    On Error Resume Next
            With CurrentDb.OpenRecordset(sTabel)
            .AddNew
            !Fields(1) = Me.cmbCode.Value
            !Fields(2) = "Me.cmbBehandeling" & i
            !Fields(3) = "Me.txtComplicaties" & i
            .Update
            .Close
        End With
    End If
Next i

 

[Tamara27]

ok, we zijn al zo ver dat hij nu records opslaat
maar, nu krijg ik 6 lege records enkel de autonummer is ingevuld

ik zal u de databank dan toch maar best sture vanavond denk k

 

[OctaFish]

Goed plan! Maak er wel wat tijd voor vrij...

 

[Tamara27]

we gerake dr wel...

met deze code slaat hij de records op:

Dim i As Integer
Dim sTabel As String
For i = 1 To 6
    If cmbBehandeling & i <> "" Then
    sTabel = "GegevensBehandeling"
    On Error Resume Next
            With CurrentDb.OpenRecordset(sTabel)
            .AddNew
            ![Unieke Code] = Me.cmbCode.Value
            ![Type Behandeling] = ("Me.cmbBehandeling" & i)
            ![Complicaties] = ("Me.txtComplicaties" & i)
            .Update
            .Close
        End With
    End If
Next i

probleem nog, en dat is wsl snel te verhelpen,
dat hij letterlijk Me.CmbBehandeling opslaat met de waarde van i
dit is wsl omdat het tussen "" staat... maar zet ik de "" niet, dan geeft hij ook fout...

 

[OctaFish]

Moet dit niet zijn:

    IF Me("cmbBehandeling" & i)  <> "" Then