Uf....odradio sam i ovo nekako......ali mi ostao jos mali problemchicj....
Mislim da su Zidar i rribaric resavali to jednom prilikom ali nekako nisam uspeo da provalim to i da prilagodim sebi....
Private Sub NazivPr_NotInList(NewData As String, Response As Integer)
On Error Resume Next
Dim NewId As Integer, MsgTitle As String, MsgDialog As Integer
Const MB_YESNO = 4
Const MB_ICONEXCLAMATION = 48
Const MB_DEFBUTTON1 = 0, IDYES = 6, IDNO = 7
MsgTitle = "Obavestenje!!!"
MsgDialog = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON1
NewId = MsgBox("Taj artikal ne postoji u bazi. Zelite li ga dodati? ", MsgDialog, MsgTitle)
If NewId = IDNO Then
Response = acDataErrContinue
Else
DoCmd.OpenForm "Kartica", acNormal, , , acFormAdd, acDialog
Response = acDataErrAdded
End If
End Sub
E sada sta se desava u ovom codu.....
Ukoliko unesemo ime artikla koje ne postoji u bazi, prijavi se poruka vecj gore ispisana!Otvori mi se forma "kartica" dodelim novu sifru proizvodu, i samo ukoliko ukucam isto ime u NazivPr polju na formi kartica kao sto sam ukucao u comboboxu (kada je program primetio da nema taj artikal na lsiti) onda kada izadjem iz forme, pojavi mi se novi artikal u Combo boxu, ali u svakom drugom slucaju mi se ne pojavi.....
Kako ovaj problem da resim??
Bilo bi dobro na 1 od 2 nacina:
1. nacin: Da unesem naziv artikla u combo box (naravno uslov je da ne postoji vecj taj artikal) bash kako zelim da mi stoji u bazi, otvori mi se forma "Kartica" i samo da unesem sifru tog novog artikla, ali kako da postignem da mi se automatski u polje NazivPr u formi "kartica" ispishe isti naziv artikla koji sam uneo u combobox??
2. nacin da unesem bilo sta u combo box, otvori se forma "Kartica", ja unesem sifru i naziv novog artikla i sta god da unesem kada mi se zatvori forma da mi se to ucita u Combo box?? Kako to da izvedem??