zxz 22.02.2015 16:11
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.

Jasmin 22.02.2015 16:14
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.

zxz 22.02.2015 16:17
Predmet:Re: Problem sa pretragom

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

Jasmin 22.02.2015 16:20
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

zxz 22.02.2015 16:29
Predmet:Re: Problem sa pretragom

evo ti.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2.  Option Explicit
  3.  Dim Path As String
  4.  
  5.  Private Sub txtSök_AfterUpdate()
  6.  
  7.  
  8.  Me.SUB_Produktion.Visible = true
  9.  Me.SUB_Test.Visible = true
  10.  Me.SUB_Anteckning.Visible = true
  11.  Me.RecordSource = Me.RecordSource
  12.  Me.RecordsetClone.FindFirst "[Produktion] LIKE '" & Me![txtSök] & "'"
  13.  If Me.RecordsetClone.NoMatch Then
  14.  MsgBox "Search " & txtSök & " hittades inte!" & vbCrLf & "Gör ett nytt försök ? ", _
  15.  , "Söknings fel!"
  16.  txtSök.Value = ""
  17.  Me.SUB_Produktion.Visible = False
  18.  Me.SUB_Test.Visible = False
  19.  Me.SUB_Anteckning.Visible = False
  20.  GoTo Kraj
  21.  End If
  22.  Me.Bookmark = Me.RecordsetClone.Bookmark
  23.  Me.SUB_Test.SourceObject = Me.SUB_Test.SourceObject
  24.  txtSök.Value = ""
  25.  Exit Sub
  26.  Kraj:
  27.  End Sub

kenan 22.02.2015 16:34
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

Jasmin 22.02.2015 16:42
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.

zxz 22.02.2015 16:49
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

Jasmin 22.02.2015 17:03
Predmet:Re: Problem sa pretragom

Keno/Zona ne radi opet Sad Sad

zxz 22.02.2015 17:08
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.