|
If Rs.RecordCount > 0 Then
ToolStripMenuItem4.Text = "Master : " & VB6.Format(Rs.AbsolutePosition, "0000") & "/" & VB6.Format(Rs.RecordCount, "0000") End If If SecondarioRs.RecordCount > 0 Then ToolStripMenuItem3.Text = "Secondario : " & VB6.Format(SecondarioRs.AbsolutePosition, "0000") & "/" & VB6.Format(SecondarioRs.RecordCount, "0000") ' SecondarioRs.AbsolutePosition & "/" & SecondarioRs.RecordCount End If |