Guten Morgen an Alle,
also ich habe einen Button „NEU“, wenn ich diesen anklicke kommt eine InputBox, in die ich einen Neuen Matchcode(z.B.Drucker,Sound) eintrage.Dieser wird dann auch erfolgreich an die entspr.Tebelle gegeben, aber nicht an die ListBox übergeben!
Die bereits eingetragenen Matchcodes sieht man in einer ListBox.
Hab auch schon aktualisieren ausprobiert!
Bin für jede Hilfe mega dankbar!!
MfG Sabine L.
Hi Sabine,
versuch es mal mit .requery im Anschluß der Zuweisung.
Gruß
Ingo
Hallo Ingo,
wo genau muss Listbox.Requery dann hin?
Der Code für die Sub wenn ich auf den „NEU“ Button klicke sieht so aus:
Private Sub Befehl106_Click()
Dim Mldg, Titel, Hersteller
Dim z As Variant
Dim objcon As ADODB.Connection
Dim rstTab As ADODB.Recordset
If MsgBox(„Wollen Sie neuen Matchcode hinzufügen?“, vbYesNo + vbQuestion, „Neuer Matchcode“) = vbYes Then
z = InputBox(„Bitte geben Sie den Matchcode ein:“, „Neuer Matchcode“)
Set objcon = Application.CodeProject.Connection
Set rstTab = New ADODB.Recordset
rstTab.CursorType = adOpenDynamic
rstTab.LockType = adLockOptimistic
rstTab.CursorLocation = adUseClient
rstTab.Open „Softwarebestand“, objcon, , , adCmdTable
rstTab.AddNew
With rstTab
.Fields(„Matchcode“).Value = z
.Update
End With
rstTab.Close
Set rstTab = Nothing
Set objcon = Nothing
antw = MsgBox(„Der Matchcode " & z & " wurde der Tabelle hinzugefügt!“, _
vbOKOnly + vbInformation)
aktualisieren_Click
Else
End If
End Sub
MfG Sabine L.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Oh es funktioniert schon 
Danke Ingo
MfG Sabine L.
(:antw = MsgBox("Der Matchcode " & z & " wurde der
Tabelle hinzugefügt!", _
vbOKOnly + vbInformation)aktualisieren_Click
Listbox.Requery
Else
End If
End Sub)
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]