[es] - prosljeđivanje naziva polja iz procedure u podproceduru!

rribaric
romano ribarić
rijeka

Član broj: 31410
Poruke: 164
*.net.htnet.hr

Profil

prosljeđivanje naziva polja iz procedure u podproceduru!

^{04.10.2004. u 15:25}

Imam jedan problem kod prosljeđivanja vrijednosti!
Iz jedne procedure prosljeđujem naziv polja.Ovisno o odabiru.
Moje pitanje glasi:
Kako da u proceduri napišem kod a da on bude povezan s izabranim poljem
tb!ime
tb!prezime
Ako putem chek boksa odredim da se vrši pretraživanje po imenu kako se to prosljeđuje u proceduru
Tb!polje ili "tb! " & polje ili ........!Ako tko ima riješenje ili neki mali primjer neka pomogne.
Dio koda:
Private Function baspolje(polje As String) As Integer
Dim strSQL As String
Dim db As DAO.Database tb As DAO.Recordset, br As Integer
Set db = CurrentDb
Set tb = db.OpenRecordset("imenik")
tb.movefirst
Do While Not tb.EOF
If Left(txtsearch, 1)t = Left((UCase(tb!ime), 1) Then
okok = True
txtsearch = Left(txtsearch, 1)

Kod sql bi bilo
strsql = " SELECT Ucase(left(imenik." & polje & ",1)) AS vrijednost ,edupla.rowID "
strsql = strsql & " FROM imenik "
Set tb3 = db3.OpenRecordset(strsql)
I ond uzimam tb3.vrijednost

romano

^{04.10.2004. u 15:25}

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 1697
*.eqao.com

Profil

Re: prosljeđivanje naziva polja iz procedure u podproceduru!

^{04.10.2004. u 17:49}

Posto se tvoja polja nalaze na formi, onda pravis referencu na formu, a ne na tabelu.

Ovako nekako:

Code:

sub smdnekuDugme_Click()
Call baspolje(me!MojePolje.Name)
end sub

ME znaci "ja, tekuca forma, forma na kojoj se nalazi kontrola MojePolje.

me!txtMojePolje <=> vraca vrednost koja je dodeljena kontroli (polju)
me!txtMojePolje.Name <=> vraca naziv kontrole, "txtMojePolje"
me!txtMojePolje.DataSource <=> naziv polja u tabeli koje je data source za ovu kontrolu txtMoljePolje, na primer "Prezime"

:-)

^{04.10.2004. u 17:49}