Jasmin 21.08.2015 20:33
Predmet:zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

Kako da zabranim veci upis podataka u polju "kolicina" koji se nalazi na glavnoj formi, od polja "broj" koji mi se nalazi u subformi.
Na primjer: ako u subformi u polju "broj" je 50. da mi zabrani upisivanje u formi u polju "komada" unos veci od 50.
Napomena:
Subforma kupi podatke iz Crosstab query.

zxz 22.08.2015 10:53
Predmet:Re: zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

Evo kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Kolicina_Exit(Cancel As Integer)
  2. Dim Kolicina As Single
  3. Dim Maks As Single
  4.  
  5. Maks = [Forms]![Forma1]![Forma2].[Form]![Broj]
  6. Kolicina = Me.Kolicina.OldValue
  7. If Kolicina > Maks Then
  8. Me.Kolicina = Maks - 1
  9. Cancel = True
  10. End If
  11. End Sub

Jasmin 22.08.2015 11:31
Predmet:Re: zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

Kako da sad odradim da mi mggbox javi da se nemoze unositi veca vrijednost. I kad kliknem na Yes poruke da mi izbrise u svim poljima ono sto sam poceo upisivati.

zxz 22.08.2015 16:08
Predmet:Re: zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

E sad to neznam trebao bi primjer.
Neznam jesi li zapisao recordset ili nisi.
Probaj ovo pa ako nece zakaci primjer.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Kolicina_Exit(Cancel As Integer)
  2. Dim Kolicina As Single
  3. Dim Maks As Single
  4.  
  5. Maks = [Forms]![Forma1]![Forma2].[Form]![Broj]
  6. Kolicina = Me.Kolicina.OldValue
  7. If Kolicina > Maks Then
  8. Call MsgBox("Toliko nema na stanju.  ",vbOKOnly + vbApplicationModal + vbDefaultButton1,"Napomena")
  9.         SendKeys "{ESC}", True
  10.         SendKeys "{ESC}", True  
  11. End If
  12. End Sub

Jasmin 24.08.2015 06:21
Predmet:Re: zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

nece, dobijem ovu gresku Run-Time error '94' Invalid use of Null I onda mi se otvori VBa I markiran mi bude u zuto ovaj kod
Maks = [Forms]![Forma1]![Forma2].[Form]![Broj]

zxz 24.08.2015 07:36
Predmet:Re: zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

Maks = [Forms]![Forma1]![Forma2].[Form]![Broj]
Pa moras ovvdje umjersto forma1 i forma2 upisati imena svojih formi.
Ja nisam znao kako ti se zove prva forma i subforma.

Jasmin 24.08.2015 07:58
Predmet:Re: zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

da znam napisao sam to ovako izgleda taj kod
Maks = [Forms]![FRM_Reklamation]![FRM_SO].[Form]![Broj]
al nece uvijek dobijem onu gresku Run-Time error '94' Invalid use of Null

zxz 24.08.2015 08:00
Predmet:Re: zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

Maks = [Forms]![FRM_Reklamation]![FRM_SO].[Form]![Broj]
Kaze ti da u olju broj nemas nista upisano.
Zato ti javlja gresku.

Jasmin 24.08.2015 08:42
Predmet:Re: zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

imam to polje mi uzima podatke Iz query-a.
tu ne upisujem nista nego mi u tom polju daje rezultat sabirajuci druga polja, ali vrijednost ima,mislim polje nije prazn.

zxz 24.08.2015 09:03
Predmet:Re: zabrana upisa vrijednosti u formi koja je veca od upisane u subformi

E onda ces morati zakaciti primjer.
Greska kaze da je polje null odnosno da u njemu nema nista pa daj zakaci da to vidimo sto si napravio.