iCentar » Racunari i oprema » Programirannje i baze podataka » Access

pmiroslav	07.12.2011 12:19
Predmet:Uslov za popunjavanje polja Pozdrav Imam tablicu tblKupci koju popunjavam iz forme i Å¾elio bih da na osnovu izbora statusa kupca sa Combom (1= Individualni kupac, 2=Kupac firma) Odredim da neka polja moraju obavezno biti popunjena. Recimo ako je individualni kupac dovoljan je samo ID i Ime kupca, a ako je kupac firma i treba R-1 račun moraju biti popunjena sva potrebna polja -OIB -Adresa -Postanski Broj -Mjesto itd.
Prilozi: Kupci.rar (Velicina datoteke:11.35 KB)

pmiroslav

07.12.2011 12:19

Predmet:Uslov za popunjavanje polja

Pozdrav
Imam tablicu tblKupci koju popunjavam iz forme i Å¾elio bih da na osnovu izbora statusa kupca sa Combom (1= Individualni kupac, 2=Kupac firma) Odredim da neka polja moraju obavezno biti popunjena.
Recimo ako je individualni kupac dovoljan je samo ID i Ime kupca, a ako je kupac firma i treba R-1 račun moraju biti popunjena sva potrebna polja
-OIB
-Adresa
-Postanski Broj
-Mjesto
itd.

Prilozi:
Kupci.rar (Velicina datoteke:11.35 KB)

Bosanec	07.12.2011 14:49
Predmet:Re: Uslov za popunjavanje polja evo vidi da li ti odgovara rjeÅ¡enje pozdrav
Prilozi: Kupci.rar (Velicina datoteke:13.55 KB)

Bosanec

07.12.2011 14:49

Predmet:Re: Uslov za popunjavanje polja

evo vidi da li ti odgovara rjeÅ¡enje

pozdrav

Prilozi:
Kupci.rar (Velicina datoteke:13.55 KB)

pmiroslav	07.12.2011 15:18
Predmet:Re: Uslov za popunjavanje polja Odlično! Zahvaljujem

pmiroslav

07.12.2011 15:18

Predmet:Re: Uslov za popunjavanje polja

Odlično!

Zahvaljujem

pmiroslav	07.12.2011 15:57
Predmet:Re: Uslov za popunjavanje polja Isprobao sam to sada u svojoj aplikaciji i sve je OK. jedino mi malo smeta Å¡to se u poruci prikazije naziv kontrole iz tablice, a to obično bude neka kratica kao npr. PostBr. ZnaÅ¡ li moÅ¾da mogućnost kako to eventualno zamjeniti sa imenom iz labele? MsgBox "Morate ispuniti obavezna polja '" & " " & ctl.Name

pmiroslav

07.12.2011 15:57

Predmet:Re: Uslov za popunjavanje polja

Isprobao sam to sada u svojoj aplikaciji i sve je OK. jedino mi malo smeta Å¡to se u poruci prikazije naziv kontrole iz tablice, a to obično bude neka kratica kao npr. PostBr.
ZnaÅ¡ li moÅ¾da mogućnost kako to eventualno zamjeniti sa imenom iz labele?

MsgBox "Morate ispuniti obavezna polja '" & " " & ctl.Name

zxz	07.12.2011 17:32
Predmet:Re: Uslov za popunjavanje polja Na BeforeUpdate forme unesi ovaj kod PreuzmiIzvorni kôd (Visual Basic): Private Sub Form_BeforeUpdate(Cancel As Integer) Dim StatusK, Ctl As Control, Frm As Form, Vrijednost Dim Polje As String Polje = "Status Kupca" Set Frm = Me.Form StatusK = Trim(Me.StatusKupca) If Format$(StatusK) = "" Then GoTo Kraj If Me.StatusKupca = 1 Then Vrijednost = Me.ImeKupca If Format$(Vrijednost) = "" Then Polje = Me.ImeKupca.Controls.Item(0).Caption GoTo Kraj End If Else For Each Ctl In Frm.Controls If Ctl.ControlType = acTextBox Then Vrijednost = Ctl If Format$(Vrijednost) = "" Then Polje = Ctl.Controls.Item(0).Caption GoTo Kraj End If End If Next Ctl End If Izlaz: Exit Sub Kraj: MsgBox "Unesi " & Polje Cancel = 1 GoTo Izlaz End Sub A ako hoces isprobaj i ovo ostalo: Samo prekopiraj PreuzmiIzvorni kôd (Visual Basic): Private Sub Form_Current() Call StausPolja End Sub Private Sub StatusKupca_AfterUpdate() Call StausPolja End Sub Function StausPolja() Dim StatusK, Ctl As Control, Frm As Form Dim Kljuc As Boolean, Znak As Boolean Set Frm = Me.Form StatusK = Trim(Me.StatusKupca) If Format$(StatusK) = "" Then Kljuc = False Else Kljuc = True End If For Each Ctl In Frm.Controls If Ctl.ControlType = acTextBox Then Ctl.Enabled = Kljuc Znak = Right(Ctl.Controls.Item(0).Caption, 1) = "" If Znak = False Then Ctl.Controls.Item(0).Caption = Ctl.Controls.Item(0).Caption & "" End If If StatusK = "1" Then If Ctl.Name <> "ImeKupca" Then Ctl.Controls.Item(0).Caption = Left(Ctl.Controls.Item(0).Caption, Len(Ctl.Controls.Item(0).Caption) - 1) End If End If End If Next Ctl End Function

zxz

07.12.2011 17:32

Predmet:Re: Uslov za popunjavanje polja

Na BeforeUpdate forme unesi ovaj kod

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim StatusK, Ctl As Control, Frm As Form, Vrijednost
Dim Polje As String
Polje = "Status Kupca"
Set Frm = Me.Form
StatusK = Trim(Me.StatusKupca)
If Format$(StatusK) = "" Then GoTo Kraj
If Me.StatusKupca = 1 Then
Vrijednost = Me.ImeKupca
If Format$(Vrijednost) = "" Then
Polje = Me.ImeKupca.Controls.Item(0).Caption
GoTo Kraj
End If
Else
For Each Ctl In Frm.Controls
If Ctl.ControlType = acTextBox Then
Vrijednost = Ctl
If Format$(Vrijednost) = "" Then
Polje = Ctl.Controls.Item(0).Caption
GoTo Kraj
End If
End If
Next Ctl
End If
Izlaz:
Exit Sub
Kraj:
MsgBox "Unesi " & Polje
Cancel = 1
GoTo Izlaz
End Sub

A ako hoces isprobaj i ovo ostalo:
Samo prekopiraj

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Form_Current()
Call StausPolja
End Sub
Private Sub StatusKupca_AfterUpdate()
Call StausPolja
End Sub
Function StausPolja()
Dim StatusK, Ctl As Control, Frm As Form
Dim Kljuc As Boolean, Znak As Boolean
Set Frm = Me.Form
StatusK = Trim(Me.StatusKupca)
If Format$(StatusK) = "" Then
Kljuc = False
Else
Kljuc = True
End If
For Each Ctl In Frm.Controls
If Ctl.ControlType = acTextBox Then
Ctl.Enabled = Kljuc
Znak = Right(Ctl.Controls.Item(0).Caption, 1) = "*"
If Znak = False Then
Ctl.Controls.Item(0).Caption = Ctl.Controls.Item(0).Caption & "*"
End If
If StatusK = "1" Then
If Ctl.Name <> "ImeKupca" Then
Ctl.Controls.Item(0).Caption = Left(Ctl.Controls.Item(0).Caption, Len(Ctl.Controls.Item(0).Caption) - 1)
End If
End If
End If
Next Ctl
End Function

zxz	07.12.2011 17:35
Predmet:Re: Uslov za popunjavanje polja Citat: sprobao sam to sada u svojoj aplikaciji i sve je OK. jedino mi malo smeta Å¡to se u poruci prikazije naziv kontrole iz tablice, a to obično bude neka kratica kao npr. PostBr. ZnaÅ¡ li moÅ¾da mogućnost kako to eventualno zamjeniti sa imenom iz labele? MsgBox "Morate ispuniti obavezna polja '" & " " & ctl.controls.item(0),caption

zxz

07.12.2011 17:35

Predmet:Re: Uslov za popunjavanje polja

Citat:

sprobao sam to sada u svojoj aplikaciji i sve je OK. jedino mi malo smeta Å¡to se u poruci prikazije naziv kontrole iz tablice, a to obično bude neka kratica kao npr. PostBr.
ZnaÅ¡ li moÅ¾da mogućnost kako to eventualno zamjeniti sa imenom iz labele?

MsgBox "Morate ispuniti obavezna polja '" & " " & ctl.controls.item(0),caption

Bosanec	07.12.2011 18:12
Predmet:Re: Uslov za popunjavanje polja evo zxz je odgovorio bio je brÅ¾i pozdrav

Bosanec

07.12.2011 18:12

Predmet:Re: Uslov za popunjavanje polja

evo zxz je odgovorio bio je brÅ¾i

pozdrav

pmiroslav	07.12.2011 18:15
Predmet:Re: Uslov za popunjavanje polja Hvala na odgovorima. Isprobat ću to sutra na poslu.

pmiroslav

07.12.2011 18:15

Predmet:Re: Uslov za popunjavanje polja

Hvala na odgovorima.
Isprobat ću to sutra na poslu.

zxz	07.12.2011 21:45
Predmet:Re: Uslov za popunjavanje polja Hehe jesmo brzi. Tek kada sam stavio Kod Vidio sam da ****sanec vec odgovorio i onda dodam samo ovo za njgov odgovor.

zxz

07.12.2011 21:45

Predmet:Re: Uslov za popunjavanje polja

Hehe jesmo brzi.
Tek kada sam stavio Kod Vidio sam da ****sanec vec odgovorio i onda dodam samo ovo za njgov odgovor.

pmiroslav	08.12.2011 14:00
Predmet:Re: Uslov za popunjavanje polja Isprobao sam prijedloge na svojoj aplikaciji. RijeÅ¡enje od Bosanca je dobro i radi mi kako treba. Međutim rijeÅ¡enje od Zxz mi u prvom primjeru koji sam ranije poslao radi, ali mi javlja greÅ¡ku u mojoj originalnoj aplikaciji. Ovaj prijedlog mi je interesantan zbog toga Å¡to stavlja zvjezdicu na polje u koje je obavezan unos. U svojoj originalnoj aplikaciji imam i polja koja su neobavezna u obje varijante (broj telefona, fax, email, opaska). Iz primjera od Boseneca znao sam to rieÅ¡iti ali Za mene je Funkcija od Zxz-a malo komplicirana pa neznam gdje je problem koji mi javlja greÅ¡ku
Prilozi: Kupci_2.rar (Velicina datoteke:19.82 KB)

pmiroslav

08.12.2011 14:00

Predmet:Re: Uslov za popunjavanje polja

Isprobao sam prijedloge na svojoj aplikaciji.
RijeÅ¡enje od Bosanca je dobro i radi mi kako treba.
Međutim rijeÅ¡enje od Zxz mi u prvom primjeru koji sam ranije poslao radi, ali mi javlja greÅ¡ku u mojoj originalnoj aplikaciji.
Ovaj prijedlog mi je interesantan zbog toga Å¡to stavlja zvjezdicu na polje u koje je obavezan unos.
U svojoj originalnoj aplikaciji imam i polja koja su neobavezna u obje varijante (broj telefona, fax, email, opaska).
Iz primjera od Boseneca znao sam to rieÅ¡iti ali
Za mene je Funkcija od Zxz-a malo komplicirana pa neznam gdje je problem koji mi javlja greÅ¡ku

Prilozi:
Kupci_2.rar (Velicina datoteke:19.82 KB)