[ sandi.petic @ 04.08.2015. 14:12 ] @
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. |