Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
[CODE]Option Explicit Dim RsSearch As New Recordset Dim inv As ListItem Public Function SearchFucn(SQLString As String, combovalue As String) Set RsSearch = Nothing If DataEnvironment1.Connection1.State = adStateClosed Then DataEnvironment1.Connection1.Open If RsSearch.State <> adStateClosed Then RsSearch.Close With RsSearch .ActiveConnection = DataEnvironment1.Connection1 .Open SQLString End With If RsSearch.RecordCount = 0 Then MsgBox … |