[es] - Popunjavanje subforme preko polja u formi

sandi.petic
Banja Luka, RS

Član broj: 281155
Poruke: 20
*.teol.net.

+1 Profil

Popunjavanje subforme preko polja u formi

^{04.08.2015. u 14:12 - pre 106 meseci}

Imam tabele pazar i pazardetalji.
U tablei pazar je broj računa, kupac, način plaćanja, a u detaljima naziv artikla, jm, cijena.
Hoću da kad u formi u nevezano txtpolje upišem naziv artikla, cijenu i količinu da mi to popuni u detaljima.
Problem je kod novog računa, koristim ovo:

Code:

Private Sub cboNaziv_AfterUpdate()
Me.sifra.Value = Val(cboTraziArtikal.Column(4))
txtmjera = cboTraziArtikal.Column(2)
SQL1 = "UPDATE PazarStavke SET Kolicina=Kolicina+txtKolicina.value WHERE Artikal =" & sifra & "and PazarID=" & txtID.Value
SQL2 = "insert into PazarStavke (PazarID,Artikal,Kolicina,MPC,JedinicaMjere) VALUES(txtID.value, sifra,txtKolicina.value, txtMPC.value,'" & txtmjera & "') "
strSQL = "SELECT Artikal FROM PazarStavke WHERE Artikal =" & sifra & " and PazarID=" & txtID.Value
Set rs = CurrentDb.OpenRecordset(strSQL)
DoCmd.SetWarnings False
If rs.RecordCount > 0 Then
DoCmd.RunSQL (SQL1)
Else
DoCmd.RunSQL (SQL2)
End If
DoCmd.SetWarnings True
'Me.KalkulacijaStavke_Subform.Requery
Me.cboTraziArtikal.Value = Null
Me.cboNaziv.Value = Null
Me.txtKolicina.Value = 1
Me.PazarStavke_subform.Requery
Me.cboTraziArtikal.SetFocus

End Sub

Problem je u PazarID koji nema vrijednost.

Odgovor na temu