erro em tempo de execução 3163

erro em tempo de execução 3163 o campo é muito pequeno para aceitar a quantidade de dados que vc tentou adicionar tente inserir ou cola menos dados


Sub cfgTerminal()
Dim banco As Database
Dim tabela As Recordset
Dim vtemp2 As Date
Dim vTemp
Static a As Integer
AbreTabela:
a = a + 1

If a >= 4 Then Quit acQuitSaveNone
Set banco = CurrentDb
Set tabela = banco.OpenRecordset("cfgTerminal")

If tabela.RecordCount = 0 Then
  vTemp = InputBox("Informe Liberação para o terminal.", "Terminal não cadastrado. ", "KEY-11111-11111-11111-11111-11111-11111-SISMEC")
  If Trim(vTemp) = "" Then Quit acQuitSaveNone
  tabela.AddNew
  tabela("NomeTerminal") = vTemp
  tabela.Update
  tabela.Close
  banco.Close
  GoTo AbreTabela
End If

If Len(Trim(tabela("NomeTerminal"))) = 0 Then
  vTemp = InputBox("Informe Liberação para o terminal.", "Terminal não cadastrado. ", "KEY-11111-11111-11111-11111-11111-11111-SISMEC")
  If Trim(vTemp) = "" Then Quit acQuitSaveNone
  tabela.Edit
  tabela("NomeTerminal") = vTemp
  tabela.Update
  tabela.Close
  banco.Close
  GoTo AbreTabela
End If

If IsNull(tabela("NomeTerminal")) Then
  vTemp = InputBox("Informe Liberação para o terminal.", "Terminal não cadastrado. ", "KEY-11111-11111-11111-11111-11111-11111-SISMEC")
  If Trim(vTemp) = "" Then Quit acQuitSaveNone
  tabela.Edit
  tabela("NomeTerminal") = vTemp
  tabela.Update
  tabela.Close
  banco.Close
  GoTo AbreTabela
End If

vTemp = Mid(tabela("NomeTerminal"), 5, 5)

If vTemp = "11111" Then
  vTemp = InputBox("Informe Liberação para o terminal.", "Terminal não cadastrado. ", "KEY-11111-11111-11111-11111-11111-11111-SISMEC")
  If Trim(vTemp) = "" Then Quit acQuitSaveNone
  tabela.Edit
  tabela("NomeTerminal") = vTemp   (fica amarelo aqui )
  tabela.Update
  tabela.Close
  banco.Close
  GoTo AbreTabela
End If

vTemp = ""
'Pega os dados
vTemp = Mid(tabela("NomeTerminal"), 8, 1)
vTemp = vTemp & Mid(tabela("NomeTerminal"), 12, 1) & "/"
vTemp = vTemp & Mid(tabela("NomeTerminal"), 18, 1)
vTemp = vTemp & Mid(tabela("NomeTerminal"), 24, 1) & "/"
vTemp = vTemp & Mid(tabela("NomeTerminal"), 30, 1)
vTemp = vTemp & Mid(tabela("NomeTerminal"), 36, 1)

'Testa se é válido
If Not IsDate(vTemp) Then
  vTemp = InputBox("Informe Liberação para o terminal.", "Terminal não cadastrado. ", tabela("NomeTerminal") & " ")
  If vTemp = "" Then Quit acQuitSaveNone
  tabela.Edit
  tabela("NomeTerminal") = vTemp
  tabela.Update
  tabela.Close
  banco.Close
  GoTo AbreTabela
End If
vtemp2 = vTemp
If vtemp2 < Date Then
  vTemp = InputBox("Informe Liberação para o terminal.", "Terminal não cadastrado. ", tabela("NomeTerminal") & " ")
  If vTemp = "" Then Quit acQuitSaveNone
  tabela.Edit
  tabela("NomeTerminal") = vTemp (aqui fica amarelo)
  tabela.Update
  tabela.Close
  banco.Close
  GoTo AbreTabela
End If

End Sub

Seja bem Vindo ao Fórum!


Certo amigo...
E Qual sua Dúvida???

o campo é muito pequeno para aceitar a quantidade de dados

Amigo, o campo em questão, na tabela esta com numeros de caractere a baixo do que esta tentando colocar nele...

Ex: Na tabela o seu Campo esta configurado com tamanho 255 (aceitara 255 caracteres incluindo os espaço) e você esta mandando colocar nele 256.

Esse é o Motivo.

então tenho que por 255 é isso ou o valor tem que ser maior obrigado

Amigo, tem que ver na propriedade do seu campo qual o tamanho dele...

O que esta acontecendo e que esta mandando salvar no campo qnt maior do que o configurado nele...