Notifications

Clear all

TextBox

2024 - VBA & Macros

Post Recente por nandopg10 8 anos atrás

4 Posts

3 Usuários

0 Reactions

819 Visualizações

RSS

nandopg10

(@nandopg10)

Posts: 4

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/02/2017 10:57 am

brunoxro

(@brunoxro)

Posts: 698

Honorable 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: 4

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