Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
'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
|How to inactivate a tab on a form based on permissions?||11||63|
|Change the path of the data source in my Excel pivot table with macro||4||27|
|Run code from text file in vb||1||32|
|Modifying Conditional Format from VBA code||3||31|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!