hallo,
ik ben nog niet zo bekend met het werken met VBA Access en ik loop tegen wat problemen aan.
ik heb een tabel waar de gebruiker labels kan saven. dan heb ik een listbox waar de gebruiker kan zien welke labels hij heeft opgeslagen in de tabel
op dit form heb ik ook the optie voor de gebruiker om records te deleten.
nu heb ik code om records te deleten. hij verwijdert de geselecteerde item uit de tabel. maar het werkt niet helemaal goed. als ik de items die ik geselecteerd heb verwijderd heb, zijn de items die nog in de listbox staan niet juist. hij heeft een record verwijderd die ik niet geselecteerd had.
naamloos.jpg is een screenshot voordat ik de geselecteerde items verwijderd heb
after.jpg is een screenshot nadat ik de geselecteerde items verwijderd heb.
zoals je kunt zien heeft hij niet de items verwijderd die ik geselecteerd had. als je naar naamloos.jpg kijkt kun je zien dat ik een hpl-40 en een hpl-131 niet geselecteerd had.
zo die 2 moeten nog in de listbox staan nadat ik delete selected heb gedrukt.
maar als je kijkt naar after.jpg kun je zien dat er nog 2 hpl-131 in staan.
dit is de code die ik gebruik:
kan iemand mij helpen please?
greetz ilse
ik ben nog niet zo bekend met het werken met VBA Access en ik loop tegen wat problemen aan.
ik heb een tabel waar de gebruiker labels kan saven. dan heb ik een listbox waar de gebruiker kan zien welke labels hij heeft opgeslagen in de tabel
op dit form heb ik ook the optie voor de gebruiker om records te deleten.
nu heb ik code om records te deleten. hij verwijdert de geselecteerde item uit de tabel. maar het werkt niet helemaal goed. als ik de items die ik geselecteerd heb verwijderd heb, zijn de items die nog in de listbox staan niet juist. hij heeft een record verwijderd die ik niet geselecteerd had.
naamloos.jpg is een screenshot voordat ik de geselecteerde items verwijderd heb
after.jpg is een screenshot nadat ik de geselecteerde items verwijderd heb.
zoals je kunt zien heeft hij niet de items verwijderd die ik geselecteerd had. als je naar naamloos.jpg kijkt kun je zien dat ik een hpl-40 en een hpl-131 niet geselecteerd had.
zo die 2 moeten nog in de listbox staan nadat ik delete selected heb gedrukt.
maar als je kijkt naar after.jpg kun je zien dat er nog 2 hpl-131 in staan.
dit is de code die ik gebruik:
Code:
Dim Response As Integer
Response = MsgBox(prompt:="Are you sure you want to delete the selected labels?", Buttons:=vbYesNo)
For i = 0 To Me.list_labeloverview.ItemsSelected.Count - 1
Dim LabelName As String
Dim h_mySQL As String
Dim ChosenName As String
Dim h_Queryname As String
Dim h_qdf As DAO.QueryDef
Dim h_rs As DAO.Recordset
LabelName = Me.list_labeloverview.ItemData(Me.list_labeloverview.ItemsSelected.item(i))
Set h_rs = CurrentDb.OpenRecordset("Generate_Labels")
With h_rs
If Response = vbYes Then
.Delete
Else
.Close
End If
End With
Next
UpdateGetLabelskan iemand mij helpen please?
greetz ilse
