Hi experts,gud day!
Here I am again needing your help. How will I code condition that textbox will only be enable after 6 months from date of hired or textbox will be disabled after typing certain amounts because it is not yet 6 months from date of hired. A message box will pop up before 6 months, "You are not allowed to make Cash Advances for now".
I really dont have idea on how will I condition the date of hired after 6 months to present date.
Below is where you will insert the condition. Please!
____ Private Sub cmdSearch_Click() Set rs = New ADODB.Recordset rs.Open "Select Lastname, Firstname, Middle_Initial, Rate, Date_Hired from Employees where Employees_IdNo Like '" & txtSearch & "'", cn, adOpenKeyset, adLockPessimistic If Not rs.EOF Then Ado.RecordSource = "Select Lastname, Firstname, Middle_Initial, Rate, Date_Hired from Employees where Employees_IdNo Like '" & txtSearch & "'" Ado.Refresh lblAllowable.Caption = Round(Val(lblRate * 30 * 0.4), 2) lblAllowable.Caption = Format(lblAllowable.Caption, "#,##0.00") rs.Close Set rs = Nothing Else MsgBox "No entry yet for this ID Number", vbCritical, "Charges" End If End Sub _____
Thanks a lot,
Edited 3 Years Ago by Dani: Formatting fixed