This code
Private Sub V_Name_AfterUpdate()
Dim strSource As String
strSource = "Select PO_ID" & _
"FROM dbo_POFOM" & _
"Where Vendor_Name = '" & Me.V_Name & "'Order By PO_ID"
Me.PO_Num.RowSource = strSource
Me.PO_Num = vbNullString
needs some spaces
Code:
Private Sub V_Name_AfterUpdate()
Dim strSource As String
strSource = "Select PO_ID" & _
" FROM dbo_POFOM" & _
"Where Vendor_Name = '" & Me.V_Name & "'Order By PO_ID"
Me.PO_Num.RowSource = strSource
Me.PO_Num = vbNullString
There is a space to the left of the characters in RED