Laufzeitfehler 2108 (Access)

KS, Dienstag, 16.06.2009, 13:42 (vor 3810 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

Laufzeitfehler 2108

KS, Dienstag, 16.06.2009, 14:50 (vor 3810 Tagen) @ KS

Hat sich erledigt!
Kann gelöscht werden oder so ...

Laufzeitfehler 2108

Martin Asal @, Dienstag, 16.06.2009, 17:53 (vor 3810 Tagen) @ KS

Hi,

da es möglicherweise eine interessierte Öffentlichkeit dafür gibt, könntest Du die Lösng ruhig auch hier posten. Ich würde mal sagen:

 
Private Sub K1_BeforeUpdate(Cancel As Integer)[/quote]
 '(usw)
 
[quote]Umsatz1.SetFocus
 

ist das Problem, denn da K1 noch nicht geupdated ist, kann auch der Fokus nicht verschoben werden.

bis denn
Martin

Laufzeitfehler 2108

KS, Donnerstag, 18.06.2009, 10:00 (vor 3808 Tagen) @ Martin Asal

Hey,

 
        If Region <> "" Then
            Set rs = db.OpenRecordset("Select Umsatz_810D_840Dpl from T_vMQ_All where REGION = '" & Region & "';")
            Umsatz1 = rs("Umsatz_810D_840Dpl")
        End If
 
 

Meine Lösung! :)
KS

RSS-Feed dieser Diskussion
powered by my little forum