[Access-Gui] Ein- und Ausklappbares Unterformular

[dmncstmpfl]

Um das Thema nach den wunderbaren Ferien nochmals aufzugreifen:

Unter dem Kombinationsfeld ist jetzt folgender code:

Private Sub fk_bez_id_KeyDown(KeyCode As Integer, Shift As Integer)
 	
 	Dim strSQL As String
 		If KeyCode = 13 Then
 		    strSQL = "Insert Into tbl_bez (bez_name) Values ('" & fk_bez_id.Text & "')"
 		Debug.Print strSQL
 		DoCmd.RunSQL (strSQL)
 		
 		Me.fk_bez_id.Requery
  
 		End If
 End Sub

Wenn ich jetzt direkt ins Kombinationsfeld schreibe und mit Enter bestätige, kommt die Abfrage ob man wirklich einen neuen Datensatz hinzufügen will. (Kann man das Unterbinden, das diese Abfrage nicht mehr kommt?)

Wenn ich das dann bestätige, kommt ein VB-Error:

Laufzeitfehler '2118':
Sie müssen das aktuelle Feld speichern, bevor Sie die Aktion AktualisierenDaten ausführen können.[/qoute]

Mit der Aktion AkutalisierenDaten meint er wohl Me.fk_bez_id.Requery. Dies benötige ich aber damit der Eintrag dan auch erscheint im Kombinationsfeld.

So das wäre dann der momentane Stand. Kann mir da jemand weiterhelfen?

 

[dmncstmpfl]

niemand eine Idee?

 

[Toaster]

moin,

ideen schon, aber im moment keine Zeit sorry

 

[dmncstmpfl]

uff, wäre schön wenn man einmal über das wochenende zeit finden könnte

ich arbeite jetzt halt mal an einer alternativ lösung.

 

[Toaster]

das prob ist halt auch sich da eine passende Testumgebung einzurichten, da ich ja nicht die Vorraussetzungen wie du habe