Slette en post i en tabel i formular

Når du har fundet din post, kan du slette med denne:

DoCmd.RunSQL "DELETE FROM DINTABEL Where DINTABEL.DITRFELT= '" & Me.DITFELT & "'"

Ovenstående gælder for et alfanumerisk felt. Er dit felt numerisk skal den se således ud:

DoCmd.RunSQL "DELETE FROM DINTABEL Where DINTABEL.DITRFELT= " & Me.DITFELT & ""

men hvordan får jeg fyldt data i tekstfelterne. det er mere for at man kan tjekke om det er den rigtige man vil slette

Hvis din db er lavet korrekt med relationer m.v., burde data komme, når du indtaster et unikt ID for den pågældende post.

Hvis du arbejder med ubundne felter i formularen, kan du benytte funktionen DLookUp:

Alfanumerisk kriterie:
Tekst2 = DLookup("[FELTNAVN]", "TABELNAVN", "[Navn]='" & Me.Navn & "'")

Numerisk kriterie:
Tekst2 = DLookup("[FELTNAVN]", "TABELNAVN", "[ID]=" & Me.ID)

Du laver din formular med en kombiboks, og så indsætter du en underformular med din kundetabel. Du sætter så hovedformular/underformular egenskaberne til NavnKombiboks/kundenummer. Når du så vælger et kundenummer i kombiboksen vil underformularen så automatisk vise den relevante post. Du kan så på underformularen (evt. på formularfoden af underformularen) autogenerere en knap, som kan slette en post. Den vil så slette den pågældende post!~)

!~)

Til spg

Jeg synes ikke rigtig jeg kan få det til at virke. Kan jeg ikke få dig til at forklare det så selv jeg kan forstå det