Prosím o pomoc – Visual Basic – Fórum – Programujte.com

Dobrý den,

Vytvořil jsem formulář, ve kterém pomocí dotazu vytahuji asi z 6 tabulek údaje. (napíšu kod produktu, zmačknu tlačítko a vyjede mi daný produkt s údaji)

Následně jsem k tomuto přidal tlačítko odstranit záznam IDPS_KK (v tabulce je to automatické číslo)

a teď přichází ten problém. Když naprogramuji to tlačítko tak jak vidíte níž a chci tedy záznam odstranit napíše mi to "nesoulad datových typu ve vyrazu". Kde dělám chybu ? díky :)

Private Sub Příkaz1854_Click()

Dim strSQL As String

strSQL = ("DELETE * FROM dbo_tPS_KK where IDPS_KK = '" & CStr(IDPS_KK) & "';")

If MsgBox("Přejete si odstranit '" & IDPS_KK & "'.", vbYesNo + vbQuestion) = vbYes Then
            DoCmd.SetWarnings (False)
            DoCmd.RunSQL strSQL
            DoCmd.SetWarnings (True)
    End If
End Sub

zkusil bych za řádek

If MsgBox("Přejete si odstranit '" & IDPS_KK & "'.", vbYesNo + vbQuestion) = vbYes Then

dát Print strSQL

abych viděl co se tem posílá....

a případně se nainstalovat SQL management studio a zkusil bych v něm tento příkaz - strSQL

tam se ti vypíše detailně kde je chyba, jde o to že podle

http://www.csidata.com/custserv/onlinehelp/vbsdocs/vbs89.htm

muže v řetězci strSQL za IDPS_KK = být identifikátor NULL a ten jako číslo neexistuje.

#1 Jamarson23
Jak píše GNA pokud je to číslo tak bez jeho zapouzdření 

strSQL = ("DELETE * FROM dbo_tPS_KK where IDPS_KK = " & CStr(IDPS_KK) & ";")

Dále píšeš, že taháš data z více tabulek, tam bych byl hodně a hodně opatrný a dával bych si opravdu velký pozor, kde a co mažu - v závislosti na struktuře tabulky a nastavení relací mezi tabulkami.

Pokud by to nebylo správně nastavené může se stát, že si v lepším případě smažeš záznam na, který odkazují další tabulky, nebo v horším případě smažeš vše co je na tento záznam vázané.