Question : MsgBox

Hi,
I want to give the user a message whether they want to delete the record or not.
I have a field in the table where I set the status to false that means they deleted the record.
so, print a message to the user before inactivate the status of the records.
here's what I have:

Private Sub CmdDelete_Click()

  On Error Resume Next
 
  Dim intResponse As Variant

  intResponse = MsgBox("Are you sure you want to delete this record?.")
 
  Select Case intResponse

  Case vbYes

  If Me!intResponse = True Then
  Me.PatientStatus = False  
  Me.Requery
 
  Else
//do nothing
  End If
End Select

End Sub

Answer : MsgBox

maybe like this?

1: 2: 3: 4: 5: 6:

If MsgBox("Are you sure you want to delete this record?", _ vbYesNo + vbQuestion + vbDefaultButton1, "Question") = vbYes Then Me.PatientStatus = False Me.Requery End If

Open in New Window Select All