title image


Smiley Daten (Formulartextfelder) in DB schreiben ...
Hallo



Ich versuche die sich in 'Formulartextfeldern' befinden, in meine DB zu schreiben. Um die Sache etwas zu beschleunigen, nehme ich hierzu 'GetFormResult' her. Das funktioniert soweit bei 'CheckBox-Textfeldern', doch wenn es sich um 'normale Textfelder' handelt, tritt ein 'Laufzeitfehler 24; falscher Parameter' auf.



Hier mein Quelltext ...





Private Sub CommandButton1_Click()

    

    Application.ScreenUpdating = False

    

    If rs.State = adStateOpen Then

        

        Dim i&

        

        For i = 1 To 99

            rs.Fields(i) = CBool(WordBasic.GetFormResult("K" & i))

        Next

        

        ' Ab hier Fehler 24 ...

        

        'MsgBox CStr(WordBasic.GetFormResult("T1"))

        

        For i = 1 To 51

            rs.Fields(i + 100) = WordBasic.GetFormResult("T" & i)

        Next

        

        rs.Update

        

    End If

    

    Application.ScreenUpdating = True

    

End Sub





Code eingefügt mit Syntaxhighlighter 2.4





Danke ...


Gruß
Thomas


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: