Vraag & Antwoord

Programmeren

SQL instructie Wissen

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

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

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