Upoutávka

SQL príkaz

10.09.2014 19:56 barbara21 příspěvků:3	Dobrý deň, mám prvú tabulku Žiaci kde mám checkbox, SQL príkazom založím novú tabulku Docasna aby mi vybrala všetky záznamy ktoré su zaškrnuté. Potom chcem update druhú tabulku Jazdy ak pole MČ z Docasnej tabulky je zhodné s polom MČ z tabulky Jazdy avšak vždy mi vyskočí okno: "Zadajte hodnoty parametra Docasna.MČ" Private Sub Príkaz15_Click() Dim strSQL As String strSQL = "select * into [Docasna]" & _ "from [Žiaci]" & _ " where Vymaž= True;" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True Dim straSQL As String straSQL = "UPDATE Jazdy SET [Dátum] = '" & Null & "',[Jazda] = '" & 0 & "', [TR] = '" & 0 & "', [Inštruktor] = '" & Null & "' WHERE Jazdy.MČ = Docasna.MČ;" DoCmd.RunSQL straSQL End Sub - vedeli by ste mi pomôcť čo robím zle? Ďakujem za všetky odpovede!

10.09.2014 19:56

příspěvků:3

Dobrý deň,

mám prvú tabulku Žiaci kde mám checkbox, SQL príkazom založím novú tabulku Docasna aby mi vybrala všetky záznamy ktoré su zaškrnuté. Potom chcem update druhú tabulku Jazdy ak pole MČ z Docasnej tabulky je zhodné s polom MČ z tabulky Jazdy avšak vždy mi vyskočí okno: "Zadajte hodnoty parametra Docasna.MČ"

Private Sub Príkaz15_Click()
Dim strSQL As String

strSQL = "select * into [Docasna]" & _

"from [Žiaci]" & _
" where Vymaž= True;"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Dim straSQL As String

straSQL = "UPDATE Jazdy SET [Dátum] = '" & Null & "',[Jazda] = '" & 0 & "', [TR] = '" & 0 & "', [Inštruktor] = '" & Null & "' WHERE Jazdy.MČ = Docasna.MČ;"

DoCmd.RunSQL straSQL
End Sub
- vedeli by ste mi pomôcť čo robím zle?
Ďakujem za všetky odpovede!

SQL príkaz

Kategorie fóra