Finding a specific record

[bjaj]

Hi

I got a form where I type a number.
After taht I split it in two.
Then I search in a table if there are any record that match the two
numbers and not yet been completed.
The code:

VareVar = Left(Me!VareNr, 8)
MyLen = Len(Me!VareNr) - 8
SerialNoVar = Right(Me!VareNr, MyLen)
DatoAfslVar = #12:00:00 AM#
FoundVar = True
'Is there a not-completed registration on this VareVar and
serialNoVar ?
If Not IsNull(VareVar = DLookup("VareNr", "T_FejlRecords",
"[VareNr] = '" & VareVar & "'" _
& "And [SerieNr] = '" & SerialNoVar
& "'" _
& "And [DatoAfsl] = #" &
DatoAfslVar & "#")) Then

'close F_Indtast varennr
DoCmd.Close
'open F_FejlRecordsClaims and find the record stDocName
= "F_FejlRecordsClaims"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Now I want to find the specific record that contain the tree criteria:
1. VareVar in the field "VareNr"
2. SerialNoVAR in the field "SerieNr"
3. DatoAfslVar in the field "DatoAfsl"

Hope someone can help me.

Best regards
Ronald

[Larry Linson]

<bj**@vestas.com> wrote

I got a form where I type a number.
After taht I split it in two.
Then I search in a table if there are any record that match the two
numbers and not yet been completed.
The code:

VareVar = Left(Me!VareNr, 8)
MyLen = Len(Me!VareNr) - 8
SerialNoVar = Right(Me!VareNr, MyLen)
DatoAfslVar = #12:00:00 AM#
FoundVar = True
'Is there a not-completed registration on this VareVar and
serialNoVar ?
If Not IsNull(VareVar = DLookup("VareNr", "T_FejlRecords",
"[VareNr] = '" & VareVar & "'" _
& "And [SerieNr] = '" & SerialNoVar
& "'" _
& "And [DatoAfsl] = #" &
DatoAfslVar & "#")) Then

'close F_Indtast varennr
DoCmd.Close
'open F_FejlRecordsClaims and find the record stDocName
= "F_FejlRecordsClaims"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Now I want to find the specific record that contain the tree criteria:
1. VareVar in the field "VareNr"
2. SerialNoVAR in the field "SerieNr"
3. DatoAfslVar in the field "DatoAfsl"

Read Help on the DoCmd.OpenForm WhereCondition argument, shown in your code
as "stLinkCriteria", and construct the "WHERE clause without a WHERE", as
follows:

stLinkCriteria = "[VareNr]=""" & VareVar &_
""" And [SerieNr] = """ & SerialNoVAR &_
""" And [DatoAfsl] = #" & DatoAflsVar & "#"

My assumption here is that VareVar and SerialNoVAR are variant variables
containing text strings and that DatoAflsVar is a variant variable containg
a Date.

[bjaj]

Thank you. That was just what I needed.

Ronald

[Larry Linson]

<bj**@vestas.com> wrote

Thank you. That was just what I needed.

You are welcome.