Code:
Private Sub Form_Load()
If GetQuarter() = 4 Then
Me.txtPreviousActionPlan1.ControlSource = "Q3Milestone1"
End If
End Sub
Private Sub Form_Load()
If GetQuarter() = 4 Then
Me.txtPreviousActionPlan1.ControlSource = "Q3Milestone1"
End If
End Sub
Private Sub Form_Load()
If GetQuarter() = 4 Then
Me.txtPreviousActionPlan1.ControlSource = _
Nz(DLookup("Q3Milestone1", _
"TBL_ActionPlan",
Me.txtPreviousActionPlan1.ControlSource = _
Leave a comment: