Laufzeitfehler 2108 (Access)

KS, Dienstag, 16.06.2009, 13:42 (vor 3806 Tagen)

Hallo,
wenn ich diesen Code

 
Private Sub K1_BeforeUpdate(Cancel As Integer)
 
Dim db As Database
Dim rs As recordset
Dim strsql As String
Dim i As Integer
 
    Set db = CurrentDb()
 
    Region.SetFocus
    If Me!Region.Text = "" Then
    Else
        strsql = "Select Umsatz_810D_840Dpl from T_vMQ_All where REGION = '" & Me!Region.Text & "'"
        Set rs = db.OpenRecordset(strsql)
        Umsatz1.SetFocus
        Umsatz1.Text = rs("Umsatz_810D_840Dpl")
    End If
 
End Sub
 

ausführe, kommt der Laufzeitfehler 2108:
"Sie müssen das Feld erst speichern, bevor Sie die GeheZuSteuerelement-Aktion, die GoToControl oder SetFocus-Methode ausführen können."

Was soll ich denn da speichern?

Region & Umsatz1 sind Textfelder.

Vielen Dank im Vorraus!
KS


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum