Delete * from

[Tamara27]

Nog maar eens een vraagje voor al degene die mij al goed geholpe hebben.

Situatie:
Ik heb een combobox op een onafhankelijk formulier staan, die al de namen weergeeft van de mensen in de databank.

Door 1 naam te selecteren en op de commandbutton 'verwijder' te klikken, zou ik graag de gegevens van die persoon zien verwijderd worden. Ik heb onderstaande code, maar werkt niet...

Private Sub cmdVerwijderen_Click()
Dim lResponse As Integer
lResponse = MsgBox("Weet u zeker dat u de gegevens wilt verwijderen?", vbYesNo, "Verwijderen")

If lResponse = yes Then
DoCmd.RunSQL "DELETE * FROM GegevensComplicaties WHERE GegevensComplicaties.UniekeCode = Me.[cmbVerwijderen]"

Else
Exit Sub
End If
    
End Sub

Probleem:
Hij gaat gewoon terug naar het formulier. Kijk ik in de tabel, is er niks veranderd... Ik heb al veel combinaties met " en ' gebruikt, maar ik kom er maar niet uit.

Is er misschien een eenvoudige verklaring voor?

Dank je!

Tamara

 

[Tardis]

Private Sub cmdVerwijderen_Click()
Dim lResponse As Integer
If MsgBox("Weet u zeker dat u de gegevens wilt verwijderen?", vbYesNo, "Verwijderen") = vbYes Then
DoCmd.RunSQL "DELETE * FROM GegevensComplicaties WHERE UniekeCode = '" & Me.[cmbVerwijderen].Column(1) & "'"
Else
Exit Sub
End If
    
End Sub

Tardis

 

[Tamara27]

Klein beetje aangepast, is het dit geworde

Dim lResponse As Integer
If MsgBox("Weet u zeker dat u de gegevens wilt verwijderen?", vbYesNo, "Verwijderen") = vbYes Then
DoCmd.RunSQL "DELETE * FROM GegevensComplicaties WHERE [Unieke Code] = '" & Me.[cmbVerwijderen] & "'"

en het werkt!

Erg bedankt!!

 

[Tardis]

Zag vandaag dat je deze coderegel ook niet meer nodig hebt

Dim lResponse As Integer

Tardis

 

[Tamara27]

Idd klopt, heb ik dan ook maar gedelete

Bedankt voor je hulp!