TRIM
está correto o modo q eu estou usando a função TRIM?,
pois na hora q eu clico no bt gravar, o nome não ta alinhando a esquerda da txt,
mas mesmo assim ta funcionando apos ir para o proximo registor e voltar.
isso é normal, ou tem como altualizar na hora q clicar em gravar.
Private Sub cmdGravar_Click()
rs.AddNew
rs!Nome = Trim(txtNome.Text)
rs!Telefone = txtTelefone.Text
rs!Celular = txtCelular.Text
rs.Update
MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]
End Sub
pois na hora q eu clico no bt gravar, o nome não ta alinhando a esquerda da txt,
mas mesmo assim ta funcionando apos ir para o proximo registor e voltar.
isso é normal, ou tem como altualizar na hora q clicar em gravar.
Private Sub cmdGravar_Click()
rs.AddNew
rs!Nome = Trim(txtNome.Text)
rs!Telefone = txtTelefone.Text
rs!Celular = txtCelular.Text
rs.Update
MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]
End Sub
Olá o uso está certinho...
Mas, no caso do seu problema... tenta fazer assim:
[txt-color=#0000f0]Private Sub [/txt-color]cmdGravar_Click()
[txt-color=#0000f0]Dim[/txt-color] StrTrim [txt-color=#0000f0]As[/txt-color] String
rs.AddNew
StrTrim = Trim(txtNome.text)
rs!Nome = StrTrim
rs!Telefone = txtTelefone.Text
rs!Celular = txtCelular.Text
rs.Update
MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]
[txt-color=#0000f0]End Sub[/txt-color]
Vê se funciona... Senão avisa aà pra gente
Abraços
Mas, no caso do seu problema... tenta fazer assim:
[txt-color=#0000f0]Private Sub [/txt-color]cmdGravar_Click()
[txt-color=#0000f0]Dim[/txt-color] StrTrim [txt-color=#0000f0]As[/txt-color] String
rs.AddNew
StrTrim = Trim(txtNome.text)
rs!Nome = StrTrim
rs!Telefone = txtTelefone.Text
rs!Celular = txtCelular.Text
rs.Update
MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]
[txt-color=#0000f0]End Sub[/txt-color]
Vê se funciona... Senão avisa aà pra gente
Abraços
oxe, o que tem haver alinha com TRIM, vc tem que mudar a propriedade Alignment=vbLeft do txtnome
ola, tambem nao entendi nada, a parte do Alinhamento/Espaçamento
Trim e pra tirar espaços e nao Alinhamento..
Explique melhor o seu problema
Trim e pra tirar espaços e nao Alinhamento..
Explique melhor o seu problema
Coloque na propriedade ALINGMENT do txtNome = Left
Resolvido
O trim serve para tirar esopaços em branco nas extremidades da string não para alinhamento
Boa sorte
2 casos podem se passar:
1º) o citado pelos colegas acima do align do text estar diferente de left9esquerda)
2º)
Private Sub cmdGravar_Click()
rs.AddNew
txtnome.text = trim(txtnome.text)
rs!Nome = Trim(txtNome.Text)
rs!Telefone = txtTelefone.Text
rs!Celular = txtCelular.Text
rs.Update
MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]
End Sub
ok?
1º) o citado pelos colegas acima do align do text estar diferente de left9esquerda)
2º)
Private Sub cmdGravar_Click()
rs.AddNew
txtnome.text = trim(txtnome.text)
rs!Nome = Trim(txtNome.Text)
rs!Telefone = txtTelefone.Text
rs!Celular = txtCelular.Text
rs.Update
MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]
End Sub
ok?
Tópico encerrado , respostas não são mais permitidas