I have a comma delimited database I have imported into Acces 97.  One field
in the old database has up to 18 letters in it in any order.  I want to read
the field and if a certain letter exists, set a new boolen field true.

For example, the field MEMOLDCODE might be "FCWAVO".  I want to set
ActiveVolunter true if the V is anywere in the field.

I am having tropuble getting started.  I can get it going to display results
in a Debug window but as soon as I try to get fancy and get it testing the
field for the V, I get "File not found: VBA6.DLL"  when I try to do a run or
compile.
______________
Option Compare Database
Option Explicit

Public Sub LoopRecordset()

    Dim db As Database, rst As Recordset
    Set db = DBEngine(0)(0)
    Set rst = db.OpenRecordset("MembersPrimaryInfo", dbOpenTable)
    Dim lenoldcode As Integer, i As Integer, j As Integer

    Do Until rst.EOF
        lenoldcode = Len(rst![MEMOLDCODE])
        Debug.Print rst![LastName] & " " & rst![MEMOLDCODE] & " " &
lenoldcode
    rst.MoveNext
    Loop

End Sub

This code did work and print in the dbug windows all the records.  As soon
as I added code to get the length of the old field, and then walk through
the field to test for the V I start getting the "field not found: vba6.dll"
message and it will not go away even after I remark each new line, the
nothing works.

This is not fun!  Any ideas?

Thanks,
Kirk Ransom
Minnetonka, MN

_______________

The error you got was caused by a dropped reference- ie somewhere in
your code you used a command from VBA6 dynamic library.  I have code
that can fix dropped references but I don't see that you should need
it.  If you do feel free to contact me and I'll dig it out.

HOWEVER HERE's MY IDEA:
Below is some code I used to REMOVE characters from string values maybe
you could modify it to find the V and do a function??

It finds the first occurence of the character you want and replaces it
with whatever you specify on the function call.  It's been adapted from
code in the Access97 Developer's Handbook.

I hope this helps!

Good Luck
Jon Harvey
Red Magpie:2
-----------------------------------------
CODE START
-----------------------------------------

Function cushty(ByVal sInString As String, sFindString As String,
sReplaceString As String) As String

'How to call:
'modChangeChar.cushty(Forms![your form].your_control.Value, ",", " ")
'cushty(control, "character to remove", "replace with")

Dim iSpot As Integer
Dim iCtr As Integer
Dim iCount As Integer

iCount = Len(sInString)
For iCtr = 1 To iCount
    iSpot = InStr(1, sInString, sFindString)
    If iSpot > 0 Then
      sInString = Left(sInString, iSpot - 1) & sReplaceString &
Mid(sInString, iSpot +    Len(sFindString))
      Else
      Exit For
      End If
Next
fstrTran = sInString
End Function

Use this ...
Function CharIsInStr(Str As String, _
                        Char As String, _
                        Optional Start As Long = 1, _
                        Optional CompareMethod = vbBinaryCompare) As Boolean

    CharIsInStr = (InStr(Start, Str, Char, CompareMethod) <> 0)
End Function

Function IsVolunteer(Str As String) As Boolean

    IsVolunteer = CharIsInStr(Str, "V", 1, vbTextCompare)
End Function

--
HTH/EQTA
Mario Osorio
====================================================
You'll find good answers to common (and not so common) questions
and all kinds of interesting stuff at: http://home.att.net/~dashish
Ud. encontrar buenas respuestas a preguntas comunes (y no tan comunes)
y otras cosas interesantes en esta direccin: http://home.att.net/~dashish
====================================================
--

: I' stuck.  I am new to Access - the last coding I did was for dBase III+.
: This is not as easy.
:
: I have a comma delimited database I have imported into Acces 97.  One
field
: in the old database has up to 18 letters in it in any order.  I want to
read
: the field and if a certain letter exists, set a new boolen field true.
:
: For example, the field MEMOLDCODE might be "FCWAVO".  I want to set
: ActiveVolunter true if the V is anywere in the field.
:
: I am having tropuble getting started.  I can get it going to display
results
: in a Debug window but as soon as I try to get fancy and get it testing the
: field for the V, I get "File not found: VBA6.DLL"  when I try to do a run
or
: compile.
: ______________
: Option Compare Database
: Option Explicit
:
: Public Sub LoopRecordset()
:
:     Dim db As Database, rst As Recordset
:     Set db = DBEngine(0)(0)
:     Set rst = db.OpenRecordset("MembersPrimaryInfo", dbOpenTable)
:     Dim lenoldcode As Integer, i As Integer, j As Integer
:
:     Do Until rst.EOF
:         lenoldcode = Len(rst![MEMOLDCODE])
:         Debug.Print rst![LastName] & " " & rst![MEMOLDCODE] & " " &
: lenoldcode
:     rst.MoveNext
:     Loop
:
: End Sub
:
: This code did work and print in the dbug windows all the records.  As soon
: as I added code to get the length of the old field, and then walk through
: the field to test for the V I start getting the "field not found:
vba6.dll"
: message and it will not go away even after I remark each new line, the
: nothing works.
:
: This is not fun!  Any ideas?
:
: Thanks,
: Kirk Ransom
: Minnetonka, MN
:
:
:
: _______________
:
:
:
:
: