banjalukaforum.com

Dobrodošli na banjalukaforum.com
Danas je 08 Avg 2025, 06:00

Sva vremena su u UTC [ DST ]




Započni novu temu Odgovori na temu  [ 6 Posta ] 
Autoru Poruka
 Tema posta: mala velika pomoc
PostPoslato: 22 Avg 2007, 12:40 
OffLine
Majstorski kandidat
Majstorski kandidat
Korisnikov avatar

Pridružio se: 28 Nov 2003, 17:28
Postovi: 476
Lokacija: BanjaLuka
pokusavam da u accessu uradim mali pretrazivac, iz exsela povlacim tabelu dve kolone,hrpa redova (brojevi, text) cilj mi je bio da na osnovu trazene rijeci pronadje red u kojem se spominje i poveze sa brojem u istom redu( razlicite kolone) gde gresim? kolone su tr- brojevi, optrbr- text,...
private Sub TRAZI_Click()
Dim optrbr As String
Dim sta1 As String

'Check STA1 for TXT value or Null Entry first.

If IsNull(Me![tr]) Or (Me![tr]) = "" Then
MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"
Me![sta1].SetFocus
Exit Sub
End If
'---------------------------------------------------------------

'Performs the search using value entered into STA1
'and evaluates this against values in OPTRBR

DoCmd.ShowAllRecords
DoCmd.GoToControl ("OPTRBR")
DoCmd.FindRecord Me!optrbr

tr.SetFocus
TRREF = tr.Text
tr.SetFocus
sta1 = tr.Text

'If matching record found sets focus in optrbr and shows msgbox
'and clears search control

If optrbr = sta1 Then
MsgBox "Match Found For: " & sta1, , "Congratulations!"
tr.SetFocus
sta1 = ""

'If value not found sets focus back to sta1 and shows msgbox
Else
MsgBox "Match Not Found For: " & sta1 & " - Please Try Again.", , "Invalid Search Criterion!"
tr.SetFocus
End If
End Sub

ps. unapred zahvaljujem na pomoci
:-? [/b]


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 24 Avg 2007, 19:31 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 20 Maj 2006, 09:49
Postovi: 150
Lokacija: Ibiza
Zar nisi postao Matrix??? :drinking: :drinking: :drinking:


Vrh
 Profil  
 
 Tema posta: Re: mala velika pomoc
PostPoslato: 25 Avg 2007, 02:17 
OffLine
staromodan
Korisnikov avatar

Pridružio se: 14 Dec 2002, 16:42
Postovi: 13375
Lokacija: Otac Grmec i Majka Kozara:)
angelo_gabriel je napisao:
pokusavam da u accessu uradim mali pretrazivac, iz exsela povlacim tabelu dve kolone,hrpa redova (brojevi, text) cilj mi je bio da na osnovu trazene rijeci pronadje red u kojem se spominje i poveze sa brojem u istom redu( razlicite kolone) gde gresim? kolone su tr- brojevi, optrbr- text,...
private Sub TRAZI_Click()
Dim optrbr As String
Dim sta1 As String

'Check STA1 for TXT value or Null Entry first.

If IsNull(Me![tr]) Or (Me![tr]) = "" Then
MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"
Me![sta1].SetFocus
Exit Sub
End If
'---------------------------------------------------------------

'Performs the search using value entered into STA1
'and evaluates this against values in OPTRBR

DoCmd.ShowAllRecords
DoCmd.GoToControl ("OPTRBR")
DoCmd.FindRecord Me!optrbr

tr.SetFocus
TRREF = tr.Text
tr.SetFocus
sta1 = tr.Text

'If matching record found sets focus in optrbr and shows msgbox
'and clears search control

If optrbr = sta1 Then
MsgBox "Match Found For: " & sta1, , "Congratulations!"
tr.SetFocus
sta1 = ""

'If value not found sets focus back to sta1 and shows msgbox
Else
MsgBox "Match Not Found For: " & sta1 & " - Please Try Again.", , "Invalid Search Criterion!"
tr.SetFocus
End If
End Sub

ps. unapred zahvaljujem na pomoci
:-? [/b]


pokusavas u accessu da pronadjes nesto sto si napravio u excelu. jel to, ili nisam skontao. ajd pokusaj objasniti ponovo.

_________________
"Men have two emotions: Hungry and Horny. If you see him without an erection, make him a sandwich"
--> Diamonds <--


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 25 Avg 2007, 12:45 
OffLine
Majstorski kandidat
Majstorski kandidat
Korisnikov avatar

Pridružio se: 28 Nov 2003, 17:28
Postovi: 476
Lokacija: BanjaLuka
tabela-e iz exela sam importovao u access, to i nije problem. medjutim ostaje mi problem pretrazivanja te iste tabele. obicna klasika unesi pojam(rec) koju bi trebalo da nadje u gore spomenutoj tabeli. ako je ima naravno... tabela je iz dve kolone prva kolona(tr) su brojcane vrednosti, kolona dva(optrbr) text. brojcana vrednost i text iz jednog reda su povezani. npr. trazim rec: matrix, ako je postojeca u tabeli trebalo bi da mi je nadje sa postojecim podatkom ,neznam: 2005 - matrix ili nesto slicno....


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 29 Avg 2007, 23:52 
OffLine
staromodan
Korisnikov avatar

Pridružio se: 14 Dec 2002, 16:42
Postovi: 13375
Lokacija: Otac Grmec i Majka Kozara:)
znaci to sto si importovao u access te table, pokusavas da koristenjem table u accessu pronadjes odredjene stvari-koristeci search. jel sad kontam :D ili grijesim. probaj uci u databes, pa onda run queries, unutra queries pod criteria zadas sta trazis, npr zelis da ti izbaci rijec matrix, kucaj "matrix" klikni na toolbar znak uzvicnik crvene boje inace pise run.tek onda te izbacuje tablu sa trazenom rijeci.

ako ti nista nije jasno, pitaj ponovo. :D

_________________
"Men have two emotions: Hungry and Horny. If you see him without an erection, make him a sandwich"
--> Diamonds <--


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 21 Sep 2007, 14:21 
OffLine
Pripravnik
Pripravnik

Pridružio se: 14 Jun 2004, 22:23
Postovi: 119
Lokacija: Banja Luka
pogledaj lookup funkciju u Accessovom VBA


Vrh
 Profil  
 
Prikaži postove u poslednjih:  Poređaj po  
Započni novu temu Odgovori na temu  [ 6 Posta ] 

Sva vremena su u UTC [ DST ]


Ko je OnLine

Korisnici koji su trenutno na forumu: Nema registrovanih korisnika i 9 gostiju


Ne možete postavljati nove teme u ovom forumu
Ne možete odgovarati na teme u ovom forumu
Ne možete monjati vaše postove u ovom forumu
Ne možete brisati vaše postove u ovom forumu
Ne možete slati prikačene fajlove u ovom forumu

Pronađi:
Idi na:  
Powered by phpBB® Forum Software © phpBB Group
Hosting BitLab
Prevod - www.CyberCom.rs