Olá, a propósito de questão de colega partilho exemplo para Contar número de linhas de campo texto.
Abraço
- Código:
Private Sub cmdTestarLinhas_Click()
'Alvaro Teixeira (ahteixeira) 2020 - MaximoAccess
If Len([txtOBS] & "") > 0 Then
MsgBox UBound(Split([txtOBS], vbCrLf)) + 1, vbInformation, "Numero Linhas"
Else
MsgBox "Campo vazio.", vbInformation, "Numero Linhas"
End If
End Sub
Abraço
- Anexos
- ContarNumeroLinhasCampoTexto.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (23 Kb) Baixado 63 vez(es)