Laufzeitfehler 2108 (Access)
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
Martin Asal 
, Dienstag, 16.06.2009, 17:53 (vor 4760 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