0

Em Moçambique existe um numero único de identificação tributária (nuit), e esse número leva 9 digitos.
Como ficaria um aplicativo para validar o nuit atendendo as seguintes condições?

  • Se forem mais(+) ou menos(-) que nove(9) digitos, diga ”nuit invalido.”

  • Deve aceitar apenas números, se não forem números diga ”por favor digite apenas números”

Tenho aqui o algoritmo:

Private Sub CommandButton1_Click()

v = validarnuit(TextBox1.Text)
MsgBox v

End Sub
Function validarnuit(nuit)
Dim cd As Double
Dim valido As String
valido = "Nuit Invalido"
If Len(nuit) = 9 Then
If IsNumeric(nuit) Then
If nuit <> 0 Then

cd = Mid(nuit, 8, 1) * 2
cd = cd + Mid(nuit, 7, 1) * 3 + _
cd = cd + Mid(nuit, 6, 1) * 4 + _
cd = cd + Mid(nuit, 5, 1) * 5 + _
cd = cd + Mid(nuit, 4, 1) * 6 + _
cd = cd + Mid(nuit, 3, 1) * 7 + _
cd = cd + Mid(nuit, 2, 1) * 2 + _
cd = cd + Mid(nuit, 1, 1) * 3 + _
cd = 11 - (cd Mod 11)
If cd = 9 Then
valido = "good"
End If
End If
End If
End If
validarnuit = valido
End Function

Se o cd fore igual a 11, é falso e não valida; se for igual a 10 também não valida; só valida se cd for igual a 9. Image se a divisão for igual a 2, isto seria 11-2 = cd 9 e valida. Tentei usar este codigo em cima mas não dá 9. Alguem tem uma ideia eficaz de como fazer isto?

4
  • "mas usando MSAccess.vba", leva-me a perguntar, está a desenvolver a aplicação EM MSAccess ou está a desenvolver uma aplicação que liga a MSAccess?
    – jpmnteiro
    Commented 12/06/2014 às 12:50
  • estou a densevolver uma aplicacao em vba que liga o MSAccess.
    – user7752
    Commented 13/06/2014 às 6:12
  • Que bagunça..! Fiz minha edição e só depois vi que esta é uma pergunta camaleão, ô perca de tempo... @Omni, fique à vontade para reverter para a versão que deu origem à sua resposta (ou a mais parecida possível).
    – brasofilo
    Commented 1/07/2014 às 8:59
  • @brasofilo a resposta continua valida para todas as edições, a única diferença foi o numero de dígitos que o OP queria validar.
    – jpmnteiro
    Commented 1/07/2014 às 9:02

1 Resposta 1

2

(a seguinte resposta é relativa à esta edição)

Assumindo que está a receber os dados numa TextBox pode usar a função Len para determinar o tamanho de uma string:

tamanhoEsperado = 9 ' Tamanho do número esperado 
tamanho = Len(TextBox.Value)
If (tamanho > tamanhoEsperado) Then
    ' Invalido
ElseIf (tamanho < tamanhoEsperado) Then
    ' Invalido
Else
    ' Válido
End If

Para poder determinar se são apenas digitos, o VBA tem a função IsNumeric que poderá usar da seguinte forma:

If(IsNumeric(TextBox.Value)) Then
     ' São apenas números, grave na base de dados
EndIf

Edit:

Para inserir o campo na base de dados:

' Abra a ligação
Set conn = New ADODB.Connection
conn.ConnectionString = "" 'Coloque aqui a sua connection string
conn.Open

' Crie a instrução INSERT INTO.
statement = "INSERT INTO nuit " & _
    "(nuit) " & _
    " VALUES (" & _
    "'" & txtnuit.Value & "', " & _
    ")"

' Execute a instrução.
conn.Execute statement, , adCmdText

' Feche a ligação.
conn.Close
13
  • Omni na verdade eu queria o modulo de conexao para a base de dados e como ficaria todo o projecto eu nao entendo muito de vba mas tenho um teste.se me puderes ajudar
    – user7752
    Commented 10/06/2014 às 10:02
  • 1
    @user7752 a sua pergunta não explica isso, na sua pergunta pede um sistema de validação em VBA e não o módulo de conexão à base de dados.
    – jpmnteiro
    Commented 10/06/2014 às 10:10
  • sim Omni mas na verdade eu quero o modulo de conexao com a base de dados.
    – user7752
    Commented 10/06/2014 às 10:15
  • 2
    @user7752 não é isto que quer? E se na realidade é isso que quer porque é que faz uma pergunta não relacionada com o que efectivamente pretende?
    – jpmnteiro
    Commented 10/06/2014 às 10:19
  • Private Sub Command2_Click() tamanho = Len(txtnuit.Value) If (tamanho > 8) Then MsgBox "nuit invalido", vbInformation, "informacao" ElseIf (tamanho < 8) Then MsgBox "nuit invalido ", vbInformation, "informacao" Else MsgBox "nuite valido", vbInformation, " informacao" End If If (IsNumeric(txtnuit.Value)) Then da debug aqui c.Open "select * from nuit", c, adOpenStatic, adlockoptmistic c.AddNew c("nuit") = "txtnuit" MsgBox "nuit registrado com sucesso", vbInformation, "informacao" c.Update End If End Sub fiz dese jeito mas da debug.
    – user7752
    Commented 10/06/2014 às 11:05

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .