Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
TextBox
 
Notifications
Clear all

TextBox

 
2024 - VBA & Macros
Post Recente por nandopg10 8 anos atrás
4 Posts
3 Usuários
0 Reactions
806 Visualizações
RSS
 nandopg10
(@nandopg10)
Posts: 0
New Member
Topic starter
 

Bom dia, pessoal!

Estou com um probleminha na transferência da "TxtBox_Id" para o banco de dados. Quando clico em salvar o "numero" que está na "TxtBox_id" vai sim para o banco de dados, porém não salva na formatação que gostaria. A Txt_Box_Id gera o código automático e está formatado da seguinte forma: 01/17. O "01" se refere a sequencia de numero e o "17" ao ano. Gostaria que salvasse nessa formatação no banco de dados. Eis o código abaixo para gerar automático:

Private Sub cmb_novo_Click()
Application.ScreenUpdating = True

Dim resposta As String
Dim linha As Integer
Dim contador As Integer

Call cmb_Cancelar_Click

linha = 2
contador = 0

Do Until shtDados_Fechamento.Cells(linha, 1) = ""

If shtDados_Fechamento.Cells(linha, 1) > contador Then
contador = contador + 1
linha = linha + 1
Else
End If
Loop

contador = contador + 1

txt_id = contador

txt_id.Value = Format(contador, "00/17")

resposta = MsgBox("Novo código. Deseja cadastrar?", vbYesNo, "Novo Código")
If resposta = vbNo Then
Call cmb_Cancelar_Click
Exit Sub
End If


Application.ScreenUpdating = True
End Sub

Desde já agradeço pela atenção!

Att.

Luis Fernando

 
Postado : 15/02/2017 6:12 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Luiz Fernando

Seja bem-vindo ao fórum!

Movi teu tópico para VBA & Macros que é o assunto da tua dúvida, pois onde você havia postado é exclusivo para dúvidas e reclamações sobre o fórum.

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

 
Postado : 15/02/2017 10:57 am
 brunoxro
(@brunoxro)
Posts: 0
New Member
 

Boa tarde Nando,

Experimente substituir:

txt_id.Value = Format(contador, "00/17")

por:

txt_id.Value = contador & "/17"

Teste e de retorno.

att,

 
Postado : 15/02/2017 11:38 am
 nandopg10
(@nandopg10)
Posts: 0
New Member
Topic starter
 

Não deu certo!
O problema está na hora de transferir para o banco de dados. Quando clico em salvar vai para o banco de dados, porém salva nesse formato ("00/17) usando este código abaixo:

Private Sub cmb_cadastrar_Click()
Application.ScreenUpdating = False

Dim linha As Integer

linha = 2

Do Until shtDados_Fechamento.Cells(linha, "A") = ""
If shtDados_Fechamento.Cells(linha, "A") = txt_id.Text Then
MsgBox "Este código já está cadastrado", vbInformation, "Cadastro Negado"
Exit Sub
End If
linha = linha + 1
Loop

Do Until shtDados_Fechamento.Cells(linha, "A") = ""
linha = linha + 1
Loop

'Lança os dados na Planilha shtDados_Produtor
shtDados_Fechamento.Cells(linha, "A").Value = txt_id.Value
shtDados_Fechamento.Cells(linha, "B").Value = txt_data.Text
shtDados_Fechamento.Cells(linha, "C").Value = cmb_razao.Text
shtDados_Fechamento.Cells(linha, "D").Value = txt_nascimento.Text
shtDados_Fechamento.Cells(linha, "E").Value = txt_fazenda.Text

MsgBox "Cadastro salvo sucesso!", vbInformation, "Cadastro"

Call cmb_Cancelar_Click

Application.ScreenUpdating = True
End Sub

Att,

 
Postado : 15/02/2017 12:12 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico