using a function to do frequent tasks

[Guest]

In some code I'm working on I need to do a frequent check on a string so I
send it to a function to do the check.
However, what I'm checking is refering to the contact item I have open, but
in the seperate function it doesn't recognize that. How should I be doing
what I'm trying to do:
Dim rs1 As DAO.Recordset
Set rs1 = CurrentDb.OpenRecordset("Name")
....
MyString=CheckPhone(rs1!Phone)
....


end sub

Function CheckPhone(strPhone as String) as String
....
....here I try to access something like rs1!Name but it doesn't recognize it.
Is there a way to make this stuff global or something?
....


end Function

 

[John W. Vinson]

Dim rs1 As DAO.Recordset
Set rs1 = CurrentDb.OpenRecordset("Name")
...
MyString=CheckPhone(rs1!Phone)
...


end sub

Function CheckPhone(strPhone as String) as String
...
...here I try to access something like rs1!Name but it doesn't recognize it.
Is there a way to make this stuff global or something?
...

strPhone is *just a string* - something like "415-555-1212". The CheckPhone
subroutine knows absolutely nothing about recordsets or how it was called.

Could you explain what you WANT CheckPhone to do? Why does it need to know
anything about the recordset?

John W. Vinson [MVP]

 

[Alex Dybenko]

Hi,
try to pass recordset object instead of string:

MyString=CheckPhone(rs1)


Function CheckPhone(rst As DAO.Recordset) as String

then you can use rst!Name, rst!Phone inside this function

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com

 

[Guest]

THANKS!
That makes sense...

Hi,
try to pass recordset object instead of string:

MyString=CheckPhone(rs1)


Function CheckPhone(rst As DAO.Recordset) as String

then you can use rst!Name, rst!Phone inside this function

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com