![]() Set sht = ThisWorkbook.Sheets( "Student Database ") 'link the text box fields with the underlying sheets to create a rolling database MsgBox "Only numeric values are accepted in Course ID", vbCritical If VBA.IsNumeric(Me.txtCourseID.Value) = False Then MsgBox "Only numeric values are accepted in Phone Number", vbCritical If VBA.IsNumeric(txtPhone.Value) = False Then MsgBox "Only numeric values are accepted in Age", vbCritical If VBA.IsNumeric(txtAge.Value) = False Then MsgBox "Only numeric values are accepted in the Student ID", vbCritical ![]() If VBA.IsNumeric(txtStudentID.Value) = False Then MsgBox "Only numeric values are accepted in the Application Number", vbCritical If VBA.IsNumeric(txtApplicationNo.Value) = False Then 'Add validations to check if character values are being entered in numeric fields. ‘ declare the variables used throughout the codesĭim sht As Worksheet, sht1 As Worksheet, lastrow As Long In the ensuing module, insert the following code: Private Sub CommandButton2_Click() Writing the Automated Form Code: Save Details Buttonĭouble-click on the Save Details button.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |