Ho risolto creandomi una function appoosita:
Codice PHP:
Public Function ControllaInsFattura(grd As Control) As Boolean
Dim k_ind As Integer
Dim errMsg As String
ControllaInsFattura = True
k_ind = 1
For k_ind = 1 To grd.Rows - 1
If (grd.TextMatrix(k_ind, 0) <> "" Or _
grd.TextMatrix(k_ind, 1) <> "" Or _
grd.TextMatrix(k_ind, 2) <> "" Or _
grd.TextMatrix(k_ind, 3) <> "") Then
If Not (grd.TextMatrix(k_ind, 0) <> "" And _
grd.TextMatrix(k_ind, 1) <> "" And _
grd.TextMatrix(k_ind, 2) <> "" And _
grd.TextMatrix(k_ind, 3) <> "") Then
errMsg = errMsg & "Errore riga " & CStr(k_ind) & " del dettaglio della Fattura." & vbCrLf & _
"Per ogni riga compilata i campi Quantità, Descrizione della Fornitura, % iva e Importo sono obbligatori" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
ControllaInsFattura = False
Else
If Len(grd.TextMatrix(k_ind, 3)) > 15 Then
errMsg = errMsg & "Errore riga " & CStr(k_ind) & " del dettaglio della Fattura." & vbCrLf & _
"Valore non ammesso nel campo Importo" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
ControllaInsFattura = False
End If
End If
End If
Next
If grd.TextMatrix(1, 0) = "" And _
grd.TextMatrix(1, 1) = "" And _
grd.TextMatrix(1, 2) = "" And _
grd.TextMatrix(1, 3) = "" Then
errMsg = "Errore del dettaglio della Fattura." & vbCrLf & _
"Occorre valorizzare almeno una riga" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
ControllaInsFattura = False
End If
If errMsg <> "" Then
MsgBox errMsg, vbApplicationModal + vbCritical, "Prova Max 2"
End If
End Function