Błąd składniowy w dacie w wyrażeniu kwerendy '#03.11.2020'.

0

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

screenshot-20201203202521.png

Proszę o pomoc bo nie męczę się z tą datą cholerną już ponad tydzień.

0

screenshot-20201203202857.png

Tak wygląda mój formularz

0

Prawdopodobnie chodzi o konwersje daty. Nie za bardzo mam vba pod ręką ale cos takiego powinno pomóc Format(datefield,"yyyy-mm-dd")

0

wklej treść GOTOWEGO zapytania (to co idzie do RunSQL), które się wywala

1

bo źle sklejasz zapytanie:

dodaj_rozgrywka = "" & _
        "INSERT INTO Rozgrywki ( IDStadionu, Data, Idkolejki)" & _
        "SELECT " & stadion & " AS Wyr1, #" & Data & "# AS Wyr2, " & Kolejka & " AS Wyr3;"

da ci w wyniku:

INSERT INTO Rozgrywki ( IDStadionu, Data, Idkolejki)SELECT 1 AS Wyr1, #2020-12-2# AS Wyr2, 1 AS Wyr3;"

Nie mam pewności cza access sobie radzi z select bez from
@woolfik ma racje, trzeba zmienić format daty, ale dla Acessa: mm/dd/yyyy

Czyli dla ciebie ułatwiłbym sobie i zrobił

dodaj_rozgrywka = "INSERT INTO Rozgrywki ( IDStadionu, Data, Idkolejki) values " & _
        "(" & stadion & ", #" & Format(Data,"mm/dd/yyy" & "#, " & Kolejka & ");"

1 użytkowników online, w tym zalogowanych: 0, gości: 1