Centar za edukaciju-BiH

Predmet:Re: Problem sa pretragom

---

Hehe ovo nemozes stic.
Dok napisases post vec dva imju nova neprocitana.
Imas gore post 18 sa rjesenjem a post 20 sa objasnjenjem.

---

Predmet:Re: Problem sa pretragom

---

da uradio sam tako ali sad mi se ne vide podforme bez obzira ako upise ispravne ili neispravne podatke u search.

---

Predmet:Re: Problem sa pretragom

---

Daj stavi citav kod.
Znaci naslova do end. sve.

---

Predmet:Re: Problem sa pretragom

---

Option Compare Database
Option Explicit
Dim Path As String

Private Sub txtSök_AfterUpdate()

Me.RecordSource = Me.RecordSource
Me.RecordsetClone.FindFirst "[Produktion] LIKE '" & Me![txtSök] & "'"
If Me.RecordsetClone.NoMatch Then
MsgBox "Search " & txtSök & " hittades inte!" & vbCrLf & "Gör ett nytt försök ? ", _
, "Söknings fel!"
txtSök.Value = ""
GoTo Kraj
End If

Me.Bookmark = Me.RecordsetClone.Bookmark

If Me.RecordsetClone.NoMatch Then

Me.SUB_Produktion.Visible = False
Me.SUB_Test.Visible = False
Me.SUB_Anteckning.Visible = False

Else
Me.SUB_Test.SourceObject = Me.SUB_Test.SourceObject
End If
txtSök.Value = ""
Exit Sub
Kraj:
End Sub

---

Predmet:Re: Problem sa pretragom

---

evo ti.

---

Predmet:Re: Problem sa pretragom

---

Znaci ovako ako korisník upise neku vrijednost koje nema u bazi treba da mu dodje ona obavjest da ta vrijednost ne postoji,
i kad klikne na "ok" da mu ostanu nevidljive podforme, sve dok ne bude upisao vrijednost koja postoji u bazi.
I samo u tom slucaju se otvaraju sve tri podforme i vidljive su.

UMJESTO MSGBOX SAMO KORISTI IF MSGBOX

If MsgBox("Želite spremiti podatke u policu?" & vbCrLf & "", vbYesNo, "eOsiguranje") = vbYes Then

EVO TI PRIMJER

Predmet:Re: Problem sa pretragom

---

nece, javlja gresku ovdje
Me.SUB_Produktion.Visible = False

Ako promjenim na false na true onda radi.
Al' to nije to.
Kao sto napisah prije, ukoliko se unesu netacni podatci, onda mi ostaje samo ova SUB_Produktion podforma vidljiva, a ja ne zelim tako.

Ako se iz bilo kojih razloga desi da se upise neka vrijednost koja ne postoji u bazi onda ne trebaju da se vide ove tri podforme.

---

Predmet:Re: Problem sa pretragom

---

Me.SUB_Produktion.Visible = False
Neznam kako je stanje gdje ti je ovaj tater ispod kojeg je kod.
Ali na vidljivoj formi je vjerovatno polje za pretragu pa prije ovih napisi:
Me![txtSök].setfocus
Me.SUB_Produktion.Visible = False
Me.SUB_Test.Visible = False
Me.SUB_Anteckning.Visible = False

---

Predmet:Re: Problem sa pretragom

---

Keno/Zona ne radi opet

---

Predmet:Re: Problem sa pretragom

---

Uf nemoguce da ti to nemozes prebaciti u nizu verziju tj. 2007.
Koja ti je verzija accessa.
Ovako se igramo gluvih telefona.
Visible= false nece raditi ako je objekat u folkusu.
Uludo je to daj to snimi u 2007 verziju.

---