[es] - Problem sa unosom sifara u subform

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu.

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Problem sa unosom sifara u subform

^{19.02.2005. u 14:13 - pre 233 meseci}

Imam jednu formu sa poljima PrijemnicaID, DatumUnosa, PoDokumentu, Dobavljac , naravno i sve to mi se upisuje u tabelu "Prijemnica".

Na toj formi imam jednu subformu u koju unosim artikle koje sam uneo po toj prijemnici. Ta subforma takodje upisuje podatke u tabelu "Dodavanje" a ima polja PrijemnicaID (naravno preko ovog polja su spojena forma i subforma), SifraArtikla, NazivArtikla, JedinicnaCena, JedinicaMere, Ukupno.

Naime, zanima me kako da kada unesem sifru artikla npr. 1 da mi se pojavi Naziv artikla npr. Monitor. Ovaj problem ja sam resio preko Column opcije, znachi ukucam 1 pa mi se iz tabele "Artikli" pojavi naziv proizvoda koji ima tu sifru, ali ja ne znam kako da napravim ukoliko je nova sifra tj. novi proizvod da mi se to nekako prijavi, otvori mi se novi obrazac "Artikli" za unos novih proizvoda, ja unesem novi proizvod i kada zatvorim obrazac "Artikli" da mi se u subformi automatski pojavi taj artikal sa novom sifrom i nazivom.

Znam da je moguce, ali ne znam na koji nacin.
Ako je neko imao slicnih problema pa uspeo da ih resi bio bih zahvalan ako bi mi pomogao.

Hvala unapred

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.panline.net.

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: Problem sa unosom sifara u subform

^{21.02.2005. u 19:00 - pre 233 meseci}

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

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
217.71.52.*

Sajt: www.icentar.ba

+2 Profil

Re: Problem sa unosom sifara u subform

^{21.02.2005. u 23:59 - pre 233 meseci}

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

zxz

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.panline.net.

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: Problem sa unosom sifara u subform

^{22.02.2005. u 14:23 - pre 233 meseci}

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

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
217.71.52.*

Sajt: www.icentar.ba

+2 Profil

Re: Problem sa unosom sifara u subform

^{22.02.2005. u 15:44 - pre 233 meseci}

Response=0

zxz

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.panline.net.

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: Problem sa unosom sifara u subform

^{22.02.2005. u 21:07 - pre 233 meseci}

HVALA ti josh jednom!
Uspeo sam da resim problem skroz

Veseli pozdrav,
Nikola

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu