B
Bob
--
I changed my Combo Box Row Source from
SELECT ServiceID, ServiceInfo, Rate, ynMonthly FROM tblServiceInfo ORDER BY
ServiceInfo;
to This
QryDailyRate:
SELECT tblServiceInfo.ServiceInfo, tblServiceInfo.Rate
FROM tblServiceInfo
WHERE (((tblServiceInfo.ServiceInfo) Is Not Null) AND
((tblServiceInfo.ynMonthly)=False))
ORDER BY tblServiceInfo.Rate DESC;
Now when I select a record in the drop down list it does not select it for
me, What do I have to alter in the After Update to get the record to
show..Thanks For any Help..Bob
Private Sub cbServiceInfo_AfterUpdate()
If cbServiceInfo.value = "" Or IsNull(cbServiceInfo.value) = True Then
Exit Sub
End If
tbServiceID.SetFocus
DoCmd.FindRecord val(cbServiceInfo.value), , True, , True, acCurrent, True
End Sub
I changed my Combo Box Row Source from
SELECT ServiceID, ServiceInfo, Rate, ynMonthly FROM tblServiceInfo ORDER BY
ServiceInfo;
to This
QryDailyRate:
SELECT tblServiceInfo.ServiceInfo, tblServiceInfo.Rate
FROM tblServiceInfo
WHERE (((tblServiceInfo.ServiceInfo) Is Not Null) AND
((tblServiceInfo.ynMonthly)=False))
ORDER BY tblServiceInfo.Rate DESC;
Now when I select a record in the drop down list it does not select it for
me, What do I have to alter in the After Update to get the record to
show..Thanks For any Help..Bob
Private Sub cbServiceInfo_AfterUpdate()
If cbServiceInfo.value = "" Or IsNull(cbServiceInfo.value) = True Then
Exit Sub
End If
tbServiceID.SetFocus
DoCmd.FindRecord val(cbServiceInfo.value), , True, , True, acCurrent, True
End Sub