AJUDA COM COMBO
Olá a Todos...
A quem puder me ajudar com uma combo:
No evento click a combo seleciona o nome da tabela cadastros
e adiciona na segunda tabela clientes, sempre com o valor [Ô]values = 1[Ô]
Como faria para que a mesma adicionasse o mesmo código da tabela
sem o valor 1?
Private Sub CboNome_GotFocus()
CboNome.Clear
[ô]Seleciona o nome da tabela Cadastro
Rs.Open [Ô]select Nome from tabCadastros order by Nome [Ô], Con, adOpenForwardOnly
Rs.MoveFirst
Do While Not Rs.EOF
CboNome.AddItem Rs!Nome
Rs.MoveNext
Loop
End Sub
[ô]--------------------------------------------------------------------------------------------------------
Private Sub CboNome_Click()
CboNome.Clear
[ô]Aqui tá sendo adicionado sempre o valor 1.
[ô]Adiciona o Nome na 2º tabela: TabClientes
Con.Execute [Ô]INSERT INTO tabContrir (Matricula, Nome) [Ô] & _
[Ô]VALUES (1,[ô][Ô] & CboNome.Text & [Ô][ô]);[Ô]
MsgBox [Ô]Clientes adicionado com sucesso![Ô], vbInformation, [Ô]Nome do Clientes[Ô]
End Sub
Grato,
A quem puder me ajudar com uma combo:
No evento click a combo seleciona o nome da tabela cadastros
e adiciona na segunda tabela clientes, sempre com o valor [Ô]values = 1[Ô]
Como faria para que a mesma adicionasse o mesmo código da tabela
sem o valor 1?
Private Sub CboNome_GotFocus()
CboNome.Clear
[ô]Seleciona o nome da tabela Cadastro
Rs.Open [Ô]select Nome from tabCadastros order by Nome [Ô], Con, adOpenForwardOnly
Rs.MoveFirst
Do While Not Rs.EOF
CboNome.AddItem Rs!Nome
Rs.MoveNext
Loop
End Sub
[ô]--------------------------------------------------------------------------------------------------------
Private Sub CboNome_Click()
CboNome.Clear
[ô]Aqui tá sendo adicionado sempre o valor 1.
[ô]Adiciona o Nome na 2º tabela: TabClientes
Con.Execute [Ô]INSERT INTO tabContrir (Matricula, Nome) [Ô] & _
[Ô]VALUES (1,[ô][Ô] & CboNome.Text & [Ô][ô]);[Ô]
MsgBox [Ô]Clientes adicionado com sucesso![Ô], vbInformation, [Ô]Nome do Clientes[Ô]
End Sub
Grato,
Bom Robson, não entendi direito o que você está pretendendo fazer...
Seria isso???
Private Sub CboNome_Click()
CboNome.Clear
[ô]Aqui tá sendo adicionado sempre o valor 1.
[ô]Adiciona o Nome na 2º tabela: TabClientes
Con.Execute [Ô]INSERT INTO tabContrir (Nome) [Ô] & _
[Ô]VALUES ([ô][Ô] & CboNome.Text & [Ô][ô]);[Ô]
MsgBox [Ô]Clientes adicionado com sucesso![Ô], vbInformation, [Ô]Nome do Clientes[Ô]
End SubSeria isso???
Citação::
Bom Robson, não entendi direito o que você está pretendendo fazer...Private Sub CboNome_Click()
CboNome.Clear
[ô]Aqui tá sendo adicionado sempre o valor 1.
[ô]Adiciona o Nome na 2º tabela: TabClientes
Con.Execute [Ô]INSERT INTO tabContrir (Nome) [Ô] & _
[Ô]VALUES ([ô][Ô] & CboNome.Text & [Ô][ô]);[Ô]
MsgBox [Ô]Clientes adicionado com sucesso![Ô], vbInformation, [Ô]Nome do Clientes[Ô]
End Sub
Seria isso???
JONATHANSTECKER,
O campo [Ô]Matricula[Ô] na tabela ficou em branco
a matricula tem que ser inserida junto com o nome.
------------------------------------------------------------------------------
Con.Execute [Ô]INSERT INTO tabContrir (Matricula, Nome) [Ô] & _
[Ô]VALUES (1,[ô][Ô] & CboNome.Text & [Ô][ô]);[Ô]
------------------------------------------------------------------------------
Wlw!
Tópico encerrado , respostas não são mais permitidas