Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
Private Sub Command12_Click() '--- only process Save if there is data If IsNull(ROLEUPDATE) Then MsgBox "Please select a role." ROLEUPDATE.SetFocus Exit Sub End If '--- transfer data from text boxes to table fields Dim myVar As Byte myVar = MsgBox("Are you sure?", vbYesNo + vbQuestion) If myVar = vbNo Then MsgBox "Edit cancelled." Exit Sub End If CurrentDb.Execute "Update ROSTER set MBR_ROLE=" & Me.ROLEUPDATE & " Where MBR_NAME=" & Me.Combo23 End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!