Hej, mam problem.
Poniżej zamieszczam kod, który napisałem.
Chce wziąc dane i wstawić z formularza do dwóch tabel, które są powiązane razem.
Wyskakuje mi błąd w dacie w wyrażeniu kwerendy '#19' screen również poniżej.
O to kod :
Public Sub Dodaj(Kolejka, stadion, Data, DA, DB, Optional wa = 0, Optional wb = 0)
If [wa] = "" Then wa = 0
If [wb] = "" Then wb = 0
DoCmd.SetWarnings False
dodaj_rozgrywka = "" & _
"INSERT INTO Rozgrywki ( IDStadionu, Data, Idkolejki)" & _
"SELECT " & stadion & " AS Wyr1, #" & Data & "# AS Wyr2, " & Kolejka & " AS Wyr3;"
DoCmd.RunSQL (dodaj_rozgrywka)
IDrogrywki = dajrozgrywki(stadion, Data)
dodaj_mecza = "" & _
"INSERT INTO MECZE (IDrogrywki,IDTeams,Bramki)" & _
"SELECT '" & IDrogrywki & "' AS Wyr1, '" & DA & "' AS Wyr2, '" & wa & "' AS Wyr3 ;"
DoCmd.RunSQL (dodaj_mecza)
dodaj_meczb = "" & _
"INSERT INTO MECZE (IDrogrywki,IDTeams,Bramki)" & _
"SELECT '" & IDrogrywki & "' AS Wyr1, '" & DB & " 'AS Wyr2, '" & wb & "' AS Wyr3 ;"
DoCmd.RunSQL (dodaj_meczb)
DoCmd.SetWarnings True
End Sub
Proszę o pomoc bo nie męczę się z tą datą cholerną już ponad tydzień.