[ bobiris @ 18.02.2005. 23:00 ] @
Pozdrav bratiji

Imam 3 kratka pitanja u vezi Accessa koja me muce:

1) U jednoj tabeli polje "tekuci_broj" je primarni Key. Imam formu koja ima 20-tak polja za unos, a pomenuto polje je 3-ce po redu (po tab-indexu). Kako da postignem, da, recimo, kada ukucam isti broj u to polje, NE MORAM da ispunim celu formu da bih dobio acessovu poruku da se radi o "duplicate" unosu, vec da se to proveri odmah, cim napustim to polje i predjem u drugo. Takodje, kako da promenim accesovu poruku u vezi toga, i napisem to na srpskom?

2) Kada otvorim formu, polje koje je oznaceno kao "tabIndex 0", je prvo obojeno "plavo". Kada se krecem kroz rekorde napred nazad, ili kada pritisnem na dugme za "New rekord", to polje mi nije "plavo", tj. kurzor se ne nalazi nigde. Kako da postavim kurzor na to prvo polje svaki put kada se krecem kroz rekorde?

3) Postoji li neko kratko uputstvo (kod) kako da nekom dogadjaju dodelim poruku sa pitanjem Da/ne (ili OK/Cancel). Recimo, kada pritisnem dugme "print" (napravio sam ga pomocu carobnjaka, pa preradio) hteo bih da izbaci poruku "ubacite taj i taj obrazac u stampac, pa pritisnite OK), pa tek onda da se komanda print izvrsti?

Hvala unapred,
pozdrav
[ obradorriuss @ 19.02.2005. 13:26 ] @
Pitanje pod rednim brojem 1 i mene zanima tako da ti ne mogu na njega odgovoriti.

2. Mozes uraditi na nacin sto ces u VBA za dugme Prethodni, sledeci, Dodaj novi, i ostale dugmice napisati Me.[tekuci_broj].SetFocus
Evo ti jedan primer:

Private Sub Sledeci_Click()
On Error GoTo Err_Sledeci_Click


DoCmd.GoToRecord , , acNext 'ovde se prelazi na sledeci zapis
Me.[SifraPr].SetFocus 'Ovde mi se kursor namesta na polje SifraPr, u tvom slucaju je to tekuci_broj ili sta vec hoces

Exit_Sledeci_Click:
Exit Sub

Err_Sledeci_Click:
MsgBox "Ne mozete ici dalje!" ' Ovo je obavestenje ukoliko dodjesh do kraja zapisa znaci da nema vise dalje
Resume Exit_Sledeci_Click

End Sub

3. Za neki code kako to najlakse da se izvede morao bih pogledati malo po nekim aplikacijama, ali mislim da resenje (neko slicno) imas u northwind ili u nekim drugim bazama koje mozes napraviti pomocu Access-a. To ti je u principu jedan MsgBox sa dugmicima Yes i No ili OK i Cancel na sebi koji ti se pojavi pre stampe....znachi probaj da pre stampe taj code sto si ubacio npr nekako ovako

If MsgBox("Da li zelite da obrisete ovaj zapis?", _
vbExclamation + vbYesNo, "UPOZORENJE!") <> vbYes Then
Cancel = True
Else

End If

Nadam se da sam ti bar malo pomogao....a ako u medjuvremenu saznam i ono 1. pitanje javljam ti!

Veseli pozdrav
[ bobiris @ 19.02.2005. 23:29 ] @
Pa ono sa Me.[Tekuci_broj].SetFocus ne ide, ali zato ide sa Me.[text10].SetFocus.
Odogovor na trece pitanje:
Code:

If MsgBox("Da li zelite da obrisete ovaj zapis?", _
vbExclamation + vbYesNo, "UPOZORENJE!") <> vbYes Then
Cancel = True 
Else

End If

ne razumem najbolje gde da ubacim ovaj kod?. Naime, ako imam:
Code:

Private Sub Command61_Click()
On Error GoTo Err_Command61_Click
       
    Dim stDocName As String
    
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    stDocName = "rptVencanica"
    DoCmd.OpenReport stDocName, acPreview
   
Exit_Command61_Click:
    Exit Sub

Err_Command61_Click:
    MsgBox err.Description
    Resume Exit_Command61_Click
End Sub

Na kom mestu da ubacim tvoj kod. Ja naime zelim da, kad korisnik pritisne dugme "print" koje sam napravio, dobije poruku: "ubacite obrazac taj i taj u stampac, pa pritisnite 'OK' ". Ako korisnik pritisne "Cancel", onda procedura treba da se zaustavi (mozda nema taj obrasac koji mu treba).

Ostaje jos i pitanje 1. otvoreno.

pozdrav bratiji!
[ Boga @ 20.02.2005. 01:36 ] @
1.
Za to polje napravi BeforeUpdate koje će da proveri da li postoji taj ID u tabeli koja je izvor, pa ako postoji staviš neku poruku (MsgBox i cancel = true
Proveru možeš da napraviš sa Dcount(.....)>0