MsgBox Module Help

[DLH]

Hello,

I'm trying to fumble my way through a module to create the following sub.
Can you tell me what I'm doing wrong and how I can call this from a macro?
Or let me know if I'm totally off base... Thanks so much!

Option Compare Database
Option Explicit

Private Sub Append1_MsgBox()

Dim intAnswer As Integer

intAnswer = MsgBox("Append to comprehensive data? Click Yes to append -
No to skip - Cancel to quit", 3)

If intAnswer = 6 Then
DoCmd.RunMacro "UDMP Process - 02 Transform.AppendToComp"

ElseIf intAnswer = 7 Then
DoCmd.RunMacro "UDMP Process - 02 Transform.CreatePREPfile"

ElseIf intAnswer = 2 Then
DoCmd.Close

End If
End Sub

 

[DLH via AccessMonster.com]

Hi All,

Please disregard this post. I was able to figure it out myself. Thanks!