Merge

How to correct the code below wherein I want to merge  the two field in one table?
'Class mudule
Public Function Merged(ProCode As String) As String
Dim Merge(1 To 2) As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset
    sql = "select Top 1 Tag_Name,  Quantity from STOCK where PROCODE='" & ProCode & "'"
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenKeyset
    rs.Open sql, cn
    With rs
        If .BOF = True And _
            .EOF = True Then
            Merge(1) = ""
            Merge(2) = (0)
        Else
            Merge(1) = !Tag_Name & ""
            Merge(2) = !Quantity
        End If
        .Close
    End With
    Set rs = Nothing
End Function
 
'Form
Public Sub Tag1()
Dim s As Labeler
Set s = New Labeler
s.OPEN_CON "mydb", ""
Dim j As SSCommand
For Each j In cmd1
    j.Caption = s.Merge(1)(j.Index) & vbNewLine & s.Merge(2)(j.Index)
Next
s.CLOSE_CON
Set s = Nothing
End Sub

Open in new window

Whing Dela CruzAsked:
Who is Participating?
 
Éric MoreauConnect With a Mentor Senior .Net ConsultantCommented:
I really don't know what you are asking for. It is not really clear again!

One thing for sure is that Merge is a variable local to the Merged Function so it cannot be accessed outside it (and you try to do just that.

could you try this:

'Class mudule
PUBLIC Merge(1 To 2) As String
 
Public sub Merged(ProCode As String) 
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset
    sql = "select Top 1 Tag_Name,  Quantity from STOCK where PROCODE='" & ProCode & "'"
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenKeyset
    rs.Open sql, cn
    With rs
        If .BOF = True And _
            .EOF = True Then
            Merge(1) = ""
            Merge(2) = (0)
        Else
            Merge(1) = !Tag_Name & ""
            Merge(2) = !Quantity
        End If
        .Close
    End With
    Set rs = Nothing
End sub
 
'Form
Public Sub Tag1()
Dim s As Labeler
Set s = New Labeler
s.OPEN_CON "mydb", ""
Dim j As SSCommand
For Each j In cmd1
    call s.Merged(j.Index)
    j.Caption = s.Merge(1) & vbNewLine & s.Merge(2)
Next
s.CLOSE_CON
Set s = Nothing
End Sub

Open in new window

0
 
Whing Dela CruzAuthor Commented:
Thank you sir, Through this idea i was able to solve the problem..
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.