Sami_souza

Bom dia Coloquei dois controle de dados um para chamar da tabela festas e o outro para tabela cliente Como eu posso para quando faço a pesquisa do nome do cliente e depois faço os dados da festas seja interligado um com outro. Festa A do Cliente A Festa B do Cliente B Por que quando adiciono uma nova festa para um novo cliente os dados do nome do cliente muda que foi cadastrado anteriormente. O que faço de errado? O código fonte é este: ----------------------------------------------------------------- Private Sub cmdAlterar_Click() cmdIncluir.Enabled = False cmdExcluir.Enabled = False dtFesta.Recordset.Edit End Sub Private Sub cmdExcluir_Click() If MsgBox("Tem Certeza que deseja apagar este registro?", vbYesNo, "Apagar Registro") = vbYes Then dtFesta.Recordset.Delete dtFesta.Refresh End If End Sub Private Sub cmdSair_Click() Unload frmAnimal End Sub Private Sub cmdGravar_Click() cmdIncluir.Enabled = True cmdExcluir.Enabled = True cmdAlterar.Enabled = True dtFesta.Recordset.Update End Sub Private Sub cmdIncluir_Click() cmdIncluir.Enabled = False cmdExcluir.Enabled = False cmdAlterar.Enabled = True dtFesta.Recordset.AddNew End Sub Private Sub cmdPesquisar_Click() Dim BuscaString As String BuscaString = InputBox$("Informe o nome do Cliente", "Buscar Nome") If Trim$(BuscaString) <> "" Then BuscaString = "Nome LIKE '*" + BuscaString + "*'" dtCliente.Recordset.MoveFirst dtCliente.Recordset.FindFirst BuscaString End If End Sub ----------------------------------------------------------------- Obrigado Samira

Não há mesmo como fazer direto do vb?

Estoou usando o windows xp professional, e necessito que este software que estoou desenvolvendo rode no windows 98. Como fazer? Quando faço no package do visual basic só da certo para instalação em outra máquina com o windows xp. Obrigado Samira

Tenho data control da tabela cliente e outro da tabela animal no mesmo formulário. Como faço para salvar os dados dos dois data control Obrigado Samira

Ele não aponta nenhuma linha. Ele aparece quando clica em qualquer um dos botões.

Oi pessoal ! Estou com uma duvida. Esta dando um erro no formulário de cadastro e eu não consigo arrumar por favor me ajudem ! Error Type Mismatach Este é código fonte: ----------------------------------------------------------------------------------------------- Private Sub cmdAlterar_Click() cmdIncluir.Enabled = False cmdExcluir.Enabled = False dtAnimal.Recordset.Edit End Sub Private Sub cmdExcluir_Click() If MsgBox("Tem Certeza que deseja apagar este registro?", vbYesNo, "Apagar Registro") = vbYes Then dtAnimal.Recordset.Delete dtAnimal.Refresh End If End Sub Private Sub cmdGravar_Click() cmdIncluir.Enabled = True cmdExcluir.Enabled = True cmdAlterar.Enabled = True dtAnimal.Recordset.Update End Sub Private Sub cmdIncluir_Click() cmdIncluir.Enabled = False cmdExcluir.Enabled = False cmdAlterar.Enabled = True dtAnimal.Recordset.AddNew End Sub Private Sub cmdSair_Click() Unload frmAnimal End Sub Private Sub cmdPesquisar_Click() Dim BuscaString As String BuscaString = InputBox$("Informe o nome do Cliente", "Buscar Apelido") If Trim$(BuscaString) <> "" Then BuscaString = "Nome LIKE '*" + BuscaString + "*'" dtCliente.Recordset.MoveFirst dtCliente.Recordset.FindFirst BuscaString End If End Sub Private Sub Form_Load() cbRaca.AddItem "SRD" cbRaca.AddItem "Angorá Turco" cbRaca.AddItem "Azul da Rússia" cbRaca.AddItem "Bengali" cbRaca.AddItem "Birmanês" cbRaca.AddItem "Bobtail" cbRaca.AddItem "Bombaim" cbRaca.AddItem "Burmilla" cbRaca.AddItem "California Spangled," cbRaca.AddItem "Cingapura" cbRaca.AddItem "Cornish Rex" cbRaca.AddItem "Curl Americano" cbRaca.AddItem "Cymric" cbRaca.AddItem "Exótico" cbRaca.AddItem "Gato de Chartreux" cbRaca.AddItem "Gato-do-mato Abissínio" cbRaca.AddItem "Gato da Ilha de Man - Manx" cbRaca.AddItem "Korat" cbRaca.AddItem "MaineCoon" cbRaca.AddItem "Persa branco" cbRaca.AddItem "Persa Negro" cbRaca.AddItem "Ragdoll" cbRaca.AddItem "Sagrado da Birmânia" cbRaca.AddItem "Scottish Fold" cbRaca.AddItem "Sphynx" cbRaca.AddItem "Siamês" cbRaca.AddItem "Siberiano da Floresta" cbRaca.AddItem "Tonquinês" cbRaca.AddItem "Van Turco" cbRacaCao.AddItem "SRD" cbRacaCao.AddItem "AFGHAN HOUND" cbRacaCao.AddItem "AIREDALE TERRIER" cbRacaCao.AddItem "AKITA" cbRacaCao.AddItem "AMERICAN ESKIMO DOG" cbRacaCao.AddItem "AMERICAN STAFFORDSHIRE TERRIER" cbRacaCao.AddItem "AMERICAN TOY TERRIER" cbRacaCao.AddItem "BASENJI" cbRacaCao.AddItem "BASSET AZUL DA GASGONHA" cbRacaCao.AddItem "BASSET FULVO DA BRETANHA" cbRacaCao.AddItem "BASSET HOUND" cbRacaCao.AddItem "BEALGLE" cbRacaCao.AddItem "BEDLINGTON TERRIER" cbRacaCao.AddItem "BICHON BOLONHÊS" cbRacaCao.AddItem "BICHON FRISÊ" cbRacaCao.AddItem "BICHON HAVANÊS" cbRacaCao.AddItem "BILLY" cbRacaCao.AddItem "BOIADEIRO AUSTRALIANO" cbRacaCao.AddItem "BOIADEIRO BERNÊS" cbRacaCao.AddItem "BOIADEIRO DE APPENZELLl" cbRacaCao.AddItem "BOIADEIRO DE FLANDRES" cbRacaCao.AddItem "BORDER COLIE" cbRacaCao.AddItem "BORZOI" cbRacaCao.AddItem "BOSTON TERRIER" cbRacaCao.AddItem "BOXER" cbRacaCao.AddItem "BRACO ALEMÃO DE PÊLO CURTO" cbRacaCao.AddItem "BRACO DE AUVERGNE" cbRacaCao.AddItem "BRACO ITALIANO" cbRacaCao.AddItem "BRACO TIROLÊS" cbRacaCao.AddItem "BULDOGUE AMERICANO" cbRacaCao.AddItem "BULDOGUE FRANCÊS" cbRacaCao.AddItem "BULDOGUE INGLÊS" cbRacaCao.AddItem "BULMASTIFE" cbRacaCao.AddItem "BULTERRIER" cbRacaCao.AddItem "CÃO CORSO" cbRacaCao.AddItem "CÃO D 'ÁGUA AMERICANO" cbRacaCao.AddItem "CÃO D 'ÁGUA ESPANHOL" cbRacaCao.AddItem "CÃO D 'ÁGUA FRISSON" cbRacaCao.AddItem "CÃO D 'ÁGUA PORTUGUÊS" cbRacaCao.AddItem "CÃO DE CRISTA CHINÊS" cbRacaCao.AddItem "CÃO DE CRISTA DORSAL DA RODÉSIA" cbRacaCao.AddItem "CÃO DOS PIRENEUS" cbRacaCao.AddItem "CHIHUAHUA" cbRacaCao.AddItem "CHOW -CHOW" cbRacaCao.AddItem "COCKER SPANIEL AMERICANO" cbRacaCao.AddItem "COCKER SPANIEL INGLÊS" cbRacaCao.AddItem "COLIE DE PÊLO LONGO" cbRacaCao.AddItem "DÁLMATA" cbRacaCao.AddItem "DACHSHUND PÊLO CURTO" cbRacaCao.AddItem "DACHSHUND PÊLO DURO" cbRacaCao.AddItem "DACHSHUND PELO LONGO" cbRacaCao.AddItem "DOGUE ALEMÃO" cbRacaCao.AddItem "DOBERMAN" cbRacaCao.AddItem "DOGUE ARGENTINO" cbRacaCao.AddItem "DOGUE DE BORDÉAUX" cbRacaCao.AddItem "FILA BRASILEIRO" cbRacaCao.AddItem "FOX PAULISTINHA (TERRIER BRASILEIRO)" cbRacaCao.AddItem "FOX TERRIER PÊLO DE ARAME" cbRacaCao.AddItem "FOX TERRIER PÊLO LISO" cbRacaCao.AddItem "GALGO ITALIANO" cbRacaCao.AddItem "GOLDEN RETRIEVER" cbRacaCao.AddItem "GRANDE BOIADEIRO SUIÇO" cbRacaCao.AddItem "GRANDE CÃO JAPONÊS" cbRacaCao.AddItem "GRIFO DE BRUXELAS" cbRacaCao.AddItem "HUSKY SIBERIANO" cbRacaCao.AddItem "JACK RUSSEL TERRIER" cbRacaCao.AddItem "KERRY BLUE TERRIER" cbRacaCao.AddItem "KOMONDOR" cbRacaCao.AddItem "KUVASZ" cbRacaCao.AddItem "LHASA APSO" cbRacaCao.AddItem "LULU DA POMERANIA (SPITZ ALEMAO)" cbRacaCao.AddItem "MALAMUTE DO ALASKA" cbRacaCao.AddItem "MALTÊS" cbRacaCao.AddItem "MASTIFE" cbRacaCao.AddItem "MASTIN NAPOLITANO" cbRacaCao.AddItem "OLD ENGLISH SHEEPDOG" cbRacaCao.AddItem "PASTOR ALEMÃO" cbRacaCao.AddItem "PASTOR AUSTRALIANO AMERICANO" cbRacaCao.AddItem "PASTOR BELGA" cbRacaCao.AddItem "PASTOR DE SHETLAND" cbRacaCao.AddItem "PEQUINÊS" cbRacaCao.AddItem "PINSCHER ANÃO" cbRacaCao.AddItem "PINSCHER MÉDIO" cbRacaCao.AddItem "PIT BULL" cbRacaCao.AddItem "POINTER INGLÊS" cbRacaCao.AddItem "POODLE MINIATURA E GIGANTE" cbRacaCao.AddItem "POODLE TOY" cbRacaCao.AddItem "PUG" cbRacaCao.AddItem "RETRIEVER DO LABRADOR" cbRacaCao.AddItem "ROTTWEILER" cbRacaCao.AddItem "SAMOIEDA" cbRacaCao.AddItem "SÃO BERNARDO" cbRacaCao.AddItem "SCHNAUZER ANÃO" cbRacaCao.AddItem "SCHNAUZER GIGANTE" cbRacaCao.AddItem "SCHNAUZER Standard" cbRacaCao.AddItem "SETTER INGLÊS" cbRacaCao.AddItem "SETTER IRLANDES" cbRacaCao.AddItem "SHAR -PEI" cbRacaCao.AddItem "SHIBA" cbRacaCao.AddItem "SHIH -TZU" cbRacaCao.AddItem "SILKY TERRIER" cbRacaCao.AddItem "SKYE TERRIER" cbRacaCao.AddItem "SPITZ ALEMÃO" cbRacaCao.AddItem "STAFFORDSHIRE BULTERRIER" cbRacaCao.AddItem "TECKEL (DACHSHUND)" cbRacaCao.AddItem "TERRANOVA" cbRacaCao.AddItem "TERRIER ESCOCÊS" cbRacaCao.AddItem "TERRIER IRLANDÊS" cbRacaCao.AddItem "TERRIER BRASILEIRO" cbRacaCao.AddItem "WEIMARANER" cbRacaCao.AddItem "WELSH TERRIER" cbRacaCao.AddItem "WHIPPET" cbRacaCao.AddItem "YORKSHIRE TERRIER" End Sub ----------------------------------------------------------------------------------------------- Obrigado Samira