MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
'Modules Public Function Tag_Name(ProCode) As String Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim sql As String Set rs = New ADODB.Recordset sql = "select * from STOCK where PROCODE='" & "100" & "'" rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Open sql, cn With rs If .BOF = True And _ .EOF = True Then Tag_Name = "" Else Tag_Name = !Tag_Name End If .Close End With Set rs = Nothing End Function Public Sub Tag1() Dim s As Labeler Set s = New Labeler s.OPEN_CON "mydb", "" cmd1(100).Caption = s.Tag_Name("") s.CLOSE_CON Set s = Nothing End Sub
|String manipulation in Visual Basic||7||73|
|bit defender blocks good applications||2||101|
|MS Access Product Inventory Movement Transfer Form With Separate Records Combined Into one Form||55||91|
|How does CurrentUser work?||10||39|