Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

If Upit ... then

[es] :: Access :: If Upit ... then

[ Pregleda: 2610 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

strimad
Vrsac

Član broj: 190687
Poruke: 10
*.dynamic.isp.telekom.rs.



Profil

icon If Upit ... then20.02.2010. u 19:18 - pre 172 meseci
Malo sam se zapetljao...

Treba da proverim pre nego sto upisem novi slog u tabelu da li vec postoji takav
Tabela ima tri polja, prvo id tipa autonumber
drugo je sifra prozivoda i trece datum
Treba da ne dozvolim unosenje istog proizvoda istog datuma

Setovao sam neki upit recordset kao
set upit = db.openrecordset("SELECT * FROM tblevidencija WHERE proizvodSifra="&[txtProizvodSifra]&" AND proizvodDatum="&[txtProizvodDatum]&")")

i treba da sledi neki uslov... if upit ... then, e tu sam zapeo.

 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831



+45 Profil

icon Re: If Upit ... then20.02.2010. u 19:43 - pre 172 meseci
A zašto ne napraviš jdnostavno primarni kljč Sifra proizvoda + Datum bez polja Autonumber? Tako ćeš imati jedinstvene zapise baš kako si poželeo.
 
Odgovor na temu

golic
Doboj

Član broj: 91529
Poruke: 82
79.143.169.*



Profil

icon Re: If Upit ... then20.02.2010. u 19:48 - pre 172 meseci
Probaj ovako...iz glave
Private sub AfterUpdate()
If Dcount("[proizvodSifra]","[tblevidencija]","[proizvodSifra]="&[txtProizvodSifra]&" AND proizvodDatum="&[txtProizvodDatum]&") > 0 Then
MsgBox"Podatak vec postoji"
Cancel = true
End if
Exit Sub
End Sub
 
Odgovor na temu

strimad
Vrsac

Član broj: 190687
Poruke: 10
*.dynamic.isp.telekom.rs.



Profil

icon Re: If Upit ... then20.02.2010. u 19:49 - pre 172 meseci
Ok, pokusacu tako, no bas me interesuje kako da neki upit prodje kroz IF
Kako da definisem uslov
if upit=null then uradi upis? Ili ... nem pojma
Bas me nervira sto sam se tu zaglavio
 
Odgovor na temu

strimad
Vrsac

Član broj: 190687
Poruke: 10
*.dynamic.isp.telekom.rs.



Profil

icon Re: If Upit ... then20.02.2010. u 20:09 - pre 172 meseci
Ovo sto si mi napisao za Dcount sad tek videh i mislim da sam prvo tako probao i nesto nisam uspeo
Nesto mi je prijavljivao da ne moze, mislim zbog tog AND, pa sam zakljucio da tu moze samo jedan uslov
mada mozda sam negde gresio probacu ponovo, iako i dalje tvrdoglavo me interesuje onaj princip sa upitom
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.adsl.net.t-com.hr.



+8 Profil

icon Re: If Upit ... then20.02.2010. u 20:22 - pre 172 meseci
If IsNull(brzahtjevnice) Or brzahtjevnice = "" Then
MsgBox "Šifra zahtjevnice nije unešena"
brzahtjevnice.SetFocus
Exit Sub
End If

ili ovako , ti malo izmjeni , umetni svoje
moraš paziti što ti je što u bazi ( polja, numerik , string , datum ) a što ti je na formi


Dim d As Database
Set d = CurrentDb
Dim ev As Recordset


Set ev = d.OpenRecordset("select * from tblListic where cstr(datum_listica)='" & CStr(datum) & "' and smjena='" & Smjena & "' and sif_stroja='" & Sifstroja & "'")

If Not ev.EOF() Then

MsgBox "proizvod je unešen i nemožete ga ispravljati"
Exit Sub

End If
 
Odgovor na temu

strimad
Vrsac

Član broj: 190687
Poruke: 10
*.dynamic.isp.telekom.rs.



Profil

icon Re: If Upit ... then20.02.2010. u 20:37 - pre 172 meseci
dva pitanja
u prvom slucaju zasto i isnull i ""?

a u drugom cemu CStr? Ili to mora a nisam znao?
 
Odgovor na temu

strimad
Vrsac

Član broj: 190687
Poruke: 10
*.dynamic.isp.telekom.rs.



Profil

icon Re: If Upit ... then20.02.2010. u 20:45 - pre 172 meseci
i non stop mi javlja neju gresku u SELECT statement
Izgleda da sve vreme gresim u nekim navodnicima?
Nista mi nije jasno, sa jednim uslovom je sve ok a kad dodam drugi prijavljuje gresku
 
Odgovor na temu

strimad
Vrsac

Član broj: 190687
Poruke: 10
*.dynamic.isp.telekom.rs.



Profil

icon Re: If Upit ... then21.02.2010. u 00:44 - pre 172 meseci
Samo da se zahvalim svima na odgovorima, moze i sa dcount i sa SELECT....
stavio sam funkciju datevalue ispred txtbox odakle citam datum a neophodni su i '...'
Hvala jos jednom

Pozz
 
Odgovor na temu

[es] :: Access :: If Upit ... then

[ Pregleda: 2610 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.