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??

Ovo ide na kombobox
Private Sub ArtID_NotInList(NewData As String, Response As Integer)
Call NoviKod(NewData)
End Sub

ovo moze i u modul
Sub NoviKod(Kod As String)
Dim R As String

Beep
R = MsgBox("Podatak '" & Kod & "' ne postoji!!!!" & vbCr & "Da li da ga upišem ili ne?", vbQuestion _
+ vbYesNo + vbDefaultButton2)

If R = vbYes Then
DoCmd.OpenForm "Artikli"
Forms![Artikli].DataEntry = True
Forms![Artikli].Caption = "Novi kod artikla"
Forms![Artikli].ImeArt = Kod ' ovo je polje naziva artikla
End If
End Sub
ovo ide na formu artikli

Private Sub Form_Close()
If Left(Me.Caption, 8) = "Novi kod" Then
Forms![Prodaja]![ArtID] = Null 'ime forme prodaja ime polja ArtID
Forms![Prodaja]![ArtID].Requery
Forms![Prodaja]![ArtID] = Me.ArtID '----ime polja u artiklima(šifra artikla)
End If
End Sub

HVALA na ovom codu.
Uspeo sam uz neke malene izmene da ga prilagodim sebi!
Samo me zanima josh da li je nekako mogucje iskljuchiti ono obavestenje kada se otvori forma "Kartica" koje mi kaze:
The text you entered isn't an item in the list.
Select an item from the list, or enter text that matches one of the listed items.


HVALA jos jednom

Veseli pozdrav

Response=0

HVALA ti josh jednom!
Uspeo sam da resim problem skroz
Veseli pozdrav,
Nikola