[ maniujus @ 07.10.2008. 17:00 ] @
imam formu >>frmEvidencijaUpis<< na kojoj imam dva combobox i text polje.
cbKorisnik - koji vuče ime i prezime korinika iz tblOsobe.
cbTerapija - koji vuče polje terapija iz tblTerapija, i
txtDatum - za datum.
ja želim odabrati osobu u cbKorisnik, terapiju u cbTerapija i datum i upisati ih tblOsEvid(osobnaEvidencija).
fora je u tome što u tblOsEvid trebam mjesto imena i prezimena željene osobe upisati njegov idOsobe kojeg je ne znam kako isfurati.
greška koju prijavljuje je:
>>Microsoft office access can’t append all the records in the append query<<
[ Air Live @ 07.10.2008. 18:05 ] @
Evo probaj jeli to to
[ maniujus @ 07.10.2008. 21:49 ] @
ne nažalost nije. fora je u tome da moj insert nije točan:

Dim strSQL As String
strSQL = "Insert Into tblOsEvid ( idOsobe, Datum, Terapija) " & _
"Values('" & cbKorisnik & "','" & txtDatum & "', '" & cbTerapija & " ');"
DoCmd.RunSQL strSQL

on treba preko cbKorisnik koji se puni iz tblOsobna sa Prezimenom i imenom
ivuć value za idOsobe i to zajedno sa Datumom i Terapijom upisat u
tblOsEvid (osobnaevidencija)
[ SLOJ.1973 @ 08.10.2008. 06:13 ] @
Evo,možda je ovo to što tražiš:
[ maniujus @ 08.10.2008. 09:33 ] @
je znači sql izgleda ovako:
strSQL = "Insert Into tblOsEvid ( idOsobe, Datum, Terapija) " & _
"Values(" & Me.cbKorisnik.Column(0) & ",'" & txtDatum & "', '" & cbTerapija & " ');"

thnx man