A
aceavl via AccessMonster.com
hi
i wanted to display several lines in a message box and was doing it manualy
untill i got this code form Stefan Hoffmann
Dim Count As Long
Dim message As String
Dim Message1 As String
Dim Message2 As String
message = "Se pondran los siguientes pagos:"
Message2 = "Total Pagado = $"
For Count = LBound(strRem()) To UBound(strRem())
message = message & vbNewLine & "Remision: " & strRem(Count) & "
Total: $" & curEmpTotal(Count) & " en " & CountPagos(Count) & " Periodos"
Next Count
YesNo = MsgBox(message & vbNewLine & Message2 & curTotal, vbYesNo,
"Confirmacion")
but the proble i'm having is that when there are more than 20 lines, the
msgbox doesn't disply them it just stops in line 18 or 19
is there a way to fix this?
thanx
i wanted to display several lines in a message box and was doing it manualy
untill i got this code form Stefan Hoffmann
Dim Count As Long
Dim message As String
Dim Message1 As String
Dim Message2 As String
message = "Se pondran los siguientes pagos:"
Message2 = "Total Pagado = $"
For Count = LBound(strRem()) To UBound(strRem())
message = message & vbNewLine & "Remision: " & strRem(Count) & "
Total: $" & curEmpTotal(Count) & " en " & CountPagos(Count) & " Periodos"
Next Count
YesNo = MsgBox(message & vbNewLine & Message2 & curTotal, vbYesNo,
"Confirmacion")
but the proble i'm having is that when there are more than 20 lines, the
msgbox doesn't disply them it just stops in line 18 or 19
is there a way to fix this?
thanx