bei Fokusverlust speichern in Access

[slugse]

Hallo,

habe im Forum folgenden interessanten Quellcode für das speichern bei Fokusverlust gefunden.

Nur leider bringt mir Access eine Fehlermeldung und verweist auf set rst.
Kann mir irgendjemand weiterhelfen?

If Trim(tb_EditText.value) = Trim("No Data exist!") Then
MsgBox ("Type Text and save!")
Exit Sub
End If

If IsNull(Len(Trim(tb_EditText.value))) Then
MsgBox ("Type Text and save!")
Exit Sub
End If

Set rst = New ADODB.Recordset

rst.CursorLocation = adUseClient
rst.Open "SELECT * FROM Tabelle" _
& "WHERE Bedingung = '" & anderesFeld & "' ,
CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Dim aFields As Variant
Dim aValues As Variant
aFields = Array("Module_ID", "Language_ID", "Text")
aValues = Array(gt_Module, editLang, tb_EditText.value)

If rst.EOF Then
rst.AddNew aFields, aValues
Else
rst("Text").value = tb_EditText.value
End If

rst.Update
rst.Close

 

[ronaldh]

"Rst" ist ja in diesem Code auch nicht dimensioniert.

Das sollte gehen mit

     Dim Rst as RecordSet