ABRIR DUAS TABELAS NO MESMO FORM

NILTON.VIANNA 12/12/2010 11:21:23
#359387
A ONDE ESTA ERRADO

ao criar um novo usuario no meu projeto
na tabela Cad_Usuario
com os itens UserID, NomeF, ProdID, etc..
txtUsuarioID.Text = RSU([Ô]UsuarioID[Ô])

tenho um comobox que esta ligado a outra tabela
cboProd.AddItem RSS!Prod
na tabela Cad_Produto

Ao Incluir um novo Usuário esta fazendo normal OK
porem quando vou abrir determinado usuario
ele não respeita o cadatro que esta feito.
se eu Oculta a linha [ô]cboProd.AddItem RSS!Prod, no combobox
ai ele pega normal
Grato
MARCELO.TREZE 12/12/2010 11:50:24
#359391
Tem como você postar o código para vermos se existe algo em conflito
NILTON.VIANNA 12/12/2010 12:18:46
#359395

Na verdade oque estou fazendo é seguinte, estou usando um exemplo que peguei aqui
para quando o cliente for cadastrar um novo usuario
no campo nome ele vai digitar Paulo Martins da Silva
no campo txtnomelogin.text ele gerar automático Paulo Silva, sei que seria bem mais facil
digitar nos 2 campos mais o cliente nunca vai fazer isso...


Private Sub txtNomeF_LostFocus()
Dim Primeiro As String, Ultimo As String, Nome As String
Nome = txtNomeF
Primeiro = Trim(Mid(Nome, 1, InStr(1, Nome, [Ô] [Ô])))
[ô]Ultimo = Trim(Mid(Nome, InStrRev(Nome, [Ô] [Ô]), Len(Nome)))
txtNomeLoginF.Text = Primeiro & [Ô] [Ô] & Ultimo
End Sub
NILTON.VIANNA 12/12/2010 12:20:43
#359396

quando ele for digitar apenas Paulo da o erro na linha
Ultimo = Trim(Mid(Nome, InStrRev(Nome, [Ô] [Ô]), Len(Nome)))
MARCELO.TREZE 12/12/2010 13:44:48
#359402 Resposta escolhida
Bom vou fazer uma pequena mudança no código que irá funcionar bem, tente

Private Sub txtnomeloginf_LostFocus()
Dim NomeLogin() As String
NomeLogin = Split(txtnomeloginf.Text, [Ô] [Ô])
If UBound(NomeLogin) > 0 Then
txtnomeloginf.Text = NomeLogin(0) & [Ô] [Ô] & NomeLogin(UBound(NomeLogin))
Else
txtnomeloginf.Text = NomeLogin(0)
End If
End Sub


teste e diga se funcionou do contento
NILTON.VIANNA 12/12/2010 17:03:31
#359408
ok, marcelo ele congelar a txtNomeloginF
mais nao separa ao digitar no campo Nome e sobrenome do usuario
fazendo é assim
ao digitar Paulo Martins da Silva (no campo NomeF.text)
ele gerar automaticamente no campo NomeLoginF.text (Paulo Silva)
Grato
MARCELO.TREZE 12/12/2010 17:21:39
#359410
vamos lá no código que postei acima, testado aqui

se vc digitar Paulo Martins da Silva ele cria o login [txt-color=#0000f0]Paulo Silva[/txt-color]

se vc digitar apenas Paulo ficara apenas paulo, vc deve ter algum evento no gotfocus de outro text ou objeto que está lhe causando transtorno
NILTON.VIANNA 12/12/2010 17:31:28
#359412
Vou ver Marcelo
NILTON.VIANNA 12/12/2010 17:42:59
#359414
da um olhada no erro
MARCELO.TREZE 12/12/2010 20:09:15
#359418
tornoi a insistir que o problema é em outra parte de seu código.

veja um exemplo básico da função
NILTON.VIANNA 13/12/2010 11:07:02
#359440
Marcelo Obrigado por me enviar o exemplo
Mais acho que me expressei errado.
oque estou tentando fazer é igual o exemplo do TECLA

conforme abaixo;

SEPARAR NOME DO SOBRENOME
Grato
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar