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):
|
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 ![]() ![]() |
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. |