Re: [MS_AccessPros] VBA to Macro?

 

Hi Jeff,

I am trying to get the following code on the "AfterUpdate" function on a field.  Could that be done with Excel?

Dim ln As String
Dim fn As String
Dim lsname As String
Dim dobth As Date
Dim varx As String
Dim mes As String
Dim nam2 As String

dobth = Me!DOB
varx = Format(dobth, "dd-mmm-yy")
lsname = Me!Lname
nam2 = " And [fname] = '" & Me!Fname & "'"

ln = DLookup("[lname]", "Members", "[Members].[DOB] = # " & varx & " #")
fn = DLookup("[fname]", "Members", "[Members].[DOB] = # " & varx & " #")

If Not IsNull(DLookup("[DOB]", "Members", "[Members].[DOB] = # " & varx & " #" _
& " And [Lname] = '" & lsname & "'" & nam2)) Then
mes = MsgBox("Possible duplicate Applicant", vbOKOnly)

End If

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (15)

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___