Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

SQL instructie Wissen

garciake
4 antwoorden
  • In Access heb ik een kleine database
    Er is een tabel klanten en in een formulier wil een een klant kunnen wissen, daarom heb ik onderstaande code ingebouwd maar bij het uitvoeren krijg ik een foutmelding: "Fout 3219 tijdens uitvoering: Invalid Operation."


    Private Sub Wissen_Klant_Click()

    'Samenstellen van de message box
    strPrompt = "Wilt u deze klant wissen?"
    intButtons = 292
    strTitle = "Wissen?"

    bytAntwoord = MsgBox(strPrompt, intButtons, strTitle)

    'Als de gebruiker op Ja klikt, krijgt bytAntwoord de waarde 6 (of vbYes)
    'Als de gebruiker op Nee klikt, krijft bytantwoord de waarde 7 (of vbNo)

    If bytAntwoord = vbYes Then

    Set dbs = CurrentDb

    'Samenstellen SQL instructie
    strSQL = "DELETE * FROM Klanten where Klantnummer = " & [Forms]![Zoek_Klant]![Klantnummer]

    'SQL instructie uitvoeren
    Set rst = dbs.OpenRecordset(strSQL)
    Else

    End If

    End Sub
  • Verander 'DELETE * FROM' eens in 'DELETE FROM'.
  • Anders probeer je eens
    [code:1:5bff6c6e01]dbs.execute sql[/code:1:5bff6c6e01]
    Je hoeft geen recordset te openen.
  • [code:1:d67e9e136a]
    Private Sub Wissen_Klant_Click()

    'Samenstellen van de message box
    strPrompt = "Wilt u deze klant wissen?"
    intButtons = 292 ' lekker handig. NOT! Gebruik hier de constanten voor
    strTitle = "Wissen?"

    if (MsgBox(strPrompt, intButtons, strTitle) = vbYes) Then
    'Als de gebruiker op Ja klikt, krijgt bytAntwoord de waarde 6 (of vbYes)
    'Als de gebruiker op Nee klikt, krijft bytantwoord de waarde 7 (of vbNo)

    Set dbs = CurrentDb ' ???

    'Samenstellen SQL instructie
    strSQL = "DELETE FROM Klanten where Klantnummer = " & _
    "[Forms]![Zoek_Klant]![Klantnummer]"

    'SQL instructie uitvoeren
    Call dbs.Execute(strSQL)
    else
    ' geen Yes, dus niet verwijderen.
    endif

    End Sub[/code:1:d67e9e136a]

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.