Molio bih vas pomoc!!
Probao sam sve kodove medjutim nesto mi ne fukcionira.
Radio sam s sljedecim kodovima.
1.)
Dim intSledeciBroj as integer
intSledeciBroj = 1 + Nz(DMax("Ime_Polja", "Ime_Tabele"), 0)
2.)
=DMax("ProductID","Product")+1
3.)
If IsNull(Me![KasaID]) Then
MsgBox "Unesite podatak."
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport "KasaA5", acNormal, , "[KasaID] = " & [KasaID]
End If
DoCmd.GoToRecord , , acNewRec
Broj = Nz(DMax("[Broj]", "KasaPC")) + 1
Problem je sljedeci da moram prilikom pritiska na novi racun da mi se u textBox Broj racuna
(SifraFakture) doda novi zapis uvecan za jedan, ali kad sam probao sa gore navedenim kodovima
i dobio sam prilikom pritiska na novi racun/novi record medjutim prilikom unosa podataka u
novi record u subformu queFakturaDetalji
tj. novi racun nastaju problemi necemi dodati u tablicu taj novi record\novi racun,
evo saljem vam bazu pa ako mi
ikako mozete pomoci pa je prepravite ili integrirajte neki kod .
Unaprijed Vam se zahvaljujem !!!