I have the following code and it works on one form, but not on the other. Th eform it doen't work on all the fields are unbound, but it simply tells the Activity Code drop down where to look.
I keep getting the error Method or Data Member Not Found. I highlights ".phasCB" each time.
Private Sub PhaseCB_AfterUpdate()
If Me.PhaseCB.Value = 99 And Me.TMCO.Value <> 0 Or Me.PhaseCB.Value = 98 Then
Me.ActivityCodeCB.RowSource = "SELECT projectno, ActivityCodeJ, ProjectName" & _
" FROM tblprojects" & _
" WHERE projectno='" & Me.[ProjectNoCB] & "'" & _
" AND Phase='" & Me.PhaseCB & "';"
Me.ActivityCodeCB.ColumnCount = 3
Me.ActivityCodeCB.ColumnHeads = True
Me.ActivityCodeCB.BoundColumn = 2
ElseIf Me.PhaseCB.Value = 99 And Me.TMCO.Value = 0 Or Me.PhaseCB.Value <= 97 Then
Me.ActivityCodeCB.RowSource = "SELECT Level1Code, ActivityCode, Description FROM tblActivityCodes WHERE AvailableforJobCoding=-1;"
Me.ActivityCodeCB.ColumnCount = 3
Me.ActivityCodeCB.ColumnHeads = True
Me.ActivityCodeCB.BoundColumn = 2
End If
End Sub
Thanks, Bailey11
I keep getting the error Method or Data Member Not Found. I highlights ".phasCB" each time.
Private Sub PhaseCB_AfterUpdate()
If Me.PhaseCB.Value = 99 And Me.TMCO.Value <> 0 Or Me.PhaseCB.Value = 98 Then
Me.ActivityCodeCB.RowSource = "SELECT projectno, ActivityCodeJ, ProjectName" & _
" FROM tblprojects" & _
" WHERE projectno='" & Me.[ProjectNoCB] & "'" & _
" AND Phase='" & Me.PhaseCB & "';"
Me.ActivityCodeCB.ColumnCount = 3
Me.ActivityCodeCB.ColumnHeads = True
Me.ActivityCodeCB.BoundColumn = 2
ElseIf Me.PhaseCB.Value = 99 And Me.TMCO.Value = 0 Or Me.PhaseCB.Value <= 97 Then
Me.ActivityCodeCB.RowSource = "SELECT Level1Code, ActivityCode, Description FROM tblActivityCodes WHERE AvailableforJobCoding=-1;"
Me.ActivityCodeCB.ColumnCount = 3
Me.ActivityCodeCB.ColumnHeads = True
Me.ActivityCodeCB.BoundColumn = 2
End If
End Sub
Thanks, Bailey11