Rafael_Tomitao

Olivers, Você da instrução SQL, se quiser eu te mando um tutorial bem legal da "linguagem" []'s Até

Olá, Pessoal sobre o campo nome, não estar podendo ser repetido é que peguei o exemplo num programa que fiz pra loja da minha, onde no nome era digitado o nome inteiro da pessoa, e por isso tentei evitar que se repetisse, pois eu nunca vi duas pessoas com o mesmo nome e sobrenome.... Explicado??? []'s Fiquem com Deus

Mauro, Estamos aqui pra isso, e sempre que precisar é só postar... []'s Fique com Deus

Elvis, Me procure dai a gente acerta isso junto... MSN: rafael_tomitao@terra.com.br ICQ: 21879808 []'s

Ola, Pessoal entaum vamos fazer o seguinte que estiver interessado em participar, por favor, me procurem no ICQ, 21879808, ou no MSN: rafael_tomitao@terra.com.br []'s Fiquem com Deus

Dave, Deixa eu ver se eu entendi, você ké abrir um form2, e "desabilitar" o form1, seria isso, só quando o form2 fosse fechado que poderia continuar trabalhando no form1, se for ai vai a dica: form2.show vbmodal []'s Espero que te ajude...

Olá, Tente colocar este código no evento KeyPress o seu formulário, mas não se esqueça de mudar a propriedade KeyPreview do seu formulário para true: Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Se a tecla pressionada for 13 (é o enter na tabela ascii) SendKeys "{TAB}" 'Envia a tecla TAB KeyAscii = 0 'Aqui é pra eliminar um beep End If End Sub Espero que te ajude.... Se você quiser a tabela ascii, me mande um e-mail que eu respondo... []'s

Elvis, Vamos ver se eu entendi direito: Temos em um comboBox os seguintes itens: Abacaxi - ListIndex 0 Banana - ListIndex 1 Mamão - listIndex 2 Você ké resgatar a propriedade ListIndex seria assim label1.caption=combo1.listindex 'Vai te voltar a posição do resgistro, lembrando que o primeiro é 0 e não 1. Ou cada produto teria o seu código: Abacaxi - Cod. 0143 Banana - Cod. 0148 Mamão - Cod. 0125 Se for isso coloque um select case: Select Case lcase(combo1.text) case "abacaxi" Cod.text="0143" case "Banana" Cod.text="0148" case "Mamão" Cod.text="0125" end select espero ter te ajudado []'s

Ricardo, Não vejo nada de mais na sua duvida, pois isso é uma duvida relacionada a programação. Mas vamos ao que interessa, tipo depende como você vai cobrar, tem muitos programadosres, que cobram por hora, tipo se você levou 100 horas pra fazer seu programa, e você cobra R$20,00/hora 20*1000=R$2.0000,00 Mas agora se você tiver um contrado com o clientes da pra fazer um preço mais barato e cobrar uma manutenção /mês, pelo menos é assim que os programadores aqui de Sorocaba cobram a maioria pelo menos.... Pro seu programa daria sussegado pra cobrar de 1.000,00 à 2.500,00, estou falando sobre um programa bem simples, como você mesmo o discreveu []'s Espero que te ajude....caso meu preço esteja muito barato me avisem dai assim vou começar a cobrar mais....

Olá, Vamos supor que você tenha um txtnome... No eevento lost focus você coloca TabPacientes.Index = "nome" TabPacientes.Seek "=", Nome.Text If TabPacientes.NoMatch = False Then MsgBox "Pacientes já cadastrado !!!", vbInformation, "Cadastro" Nome.Text = "" Nome.SetFocus End If Lembrando que para isso seria legal você indexar sua tabela, pelo nome... Caso você não tem indices na sua tabela....use Find.... []'s espero que te ajude

Burn Killer, No evento click do optionbox, coloque: if optionbox1=true then Salva end if Espero que te ajude... []'s

Alex, Lembrando que para colocar um OptionBox dentro de um frame você não pode apenas dar dois cliques nele, mas sim "desenha-lo"(clicando e arrastando), dentro do Frame... []'s Espero ter ajudado....

Edgar, Para isso geralmente é utilizado um componente chamado CommonDialog, onde você pode abrir caixa de dialogo, abrir arquivo, salvar arquivo, imprimir e etc.... Qualquer duvida é só postar ou me procure pelo ICQ ou MSN Espero que te ajude.... []'s

Bruno, Boa idéia, muita gente ai já esta xechendo com Winsock...e muitos iram acabar com suas duvidas sobre o Winsock. VALE A PENA LEMBRAR: QUE O FORUM TAMBÉM É ALGO MUITO IMPORTANTE, QUE EU NÃO ESTOU QUERENDO QUE NINGUÉM MAIS ENTRE NO FORUM, APENAS QUE QUE TODOS RECEBAM RESPOSTAS MAIS RAPIDAS, EU ACHO QUE TODO DIA DAR UMA OLHADINHA NO FORUM PRA VER SE TEM ALGO QUE VOCÊ PODE AJUDAR, FAZ MUITO PARA OS OUTROS E PRA VOCÊ MESMO.... QUEM QUISER FAVOR ME PROCURAR NO MSN, ICQ OU E-MAIL MESMO (POIS VIVO NA FRENTE DO COMPUTADOR) MSN: rafael_tomitao@terra.com.br ICQ: 21879808 EMAIL: rafael_tomitao@terra.com.br VALEU GALERINHA []'S RAFAEL

Ola galera, Tipo que tal criar um forum "ao vivo", pelo MSN, ICQ ou outros programinhas de mensagens, não sei se vocês já utilizam, mas estou apenas dando a idéia, dai as vezes não vai precisar ficar esperando respostas, na hora pergunta para alguém e pronto.... Se caso já tiverem este forum "ao vivo" que estou falando me avisem ok...? []'s Rafael MSN: rafael_tomitao@terra.com.br ICQ: 21879808

Rafael (Bicicleta), Desculpas... []'s Valeu Rafael

Mauro Jr, Tente isso colocar no evento KeyPress do TextBox que você quer que somente receba numeros: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then If KeyAscii <> 8 Then KeyAscii = 0 End If End If End Sub Espero que te ajude []'s Rafael

Bom dia senhores, Que tal uma instrução SQL...? Select * from cliente where nome like '"& text1.text &"'" []'s Rafael