Urgent Help Required
Private Sub cmdOK_Click()
Dim Cost_Sq As Double
Dim Tota_Cost As Double
Dim Commi As Double
Dim Ded As Double
Dim Add As Double
Dim total As Double
If txtP_Name.Text = "" Then
MsgBox "Please enter the Project Name.", vbExclamation, title
txtP_Name.SetFocus
GoTo EXITPROCEDURE
End If
If blAddProject = True Then
recProject.AddNew
recProject!ID = txtID.Text & ""
recProject!E_date = txtE_date.Text & ""
recProject!P_Name = txtP_Name.Text & ""
- Read more about Urgent Help Required
- Log in or register to post comments
- 5 views