frata

...Valeu Kuroi...!!! Vou fazer isso...qualque coisa te falo.Brigado!!!!!!!!!!!

Oi, pessoal. O problema é o siguinte, estou desenvolvendo um programinha que calcula o imc. São dois textbox, onde um recebe o peso e o outro a altura, e retorna o resultado para um labol (uma etiqueta). Acontece que gostaria de limitar o resultado em duas casas decimais porque está me retornando valores tipo 19,25154151. Outra coisa, declarei a variável da seguinte maneira: imc as string. Será que alguém sabe como resolver esse asunto. Antecipadamente agradeço a todos Frata.

....vou continuar estudando porque realmente o desafio é fazer a aplicação rodar redondo. Obrigado pela força...o caminho de programar (assim como tantos na vida) nos reserva momentos críticos em que se pensa em desistir. mas...aprendi que desistir é uma solução permanete para um problema temporário. Grande abraço a todos. Frata

Estou um pouco decepcionado com o Visual Basic, acontece que acabei de desenvolver uma agenda que se conecta a um banco do Access...até aí tudo ótimo...mas acontece que isso só funciona no meu computador, porque se coloco o programa em outra máquina lá também tem que ter instalado o Access e na mesma versão....e o que é pior, se na outra máquina tiver um Access numa versão superiro aí então complica mais ainda porque não instala pra baixo....ou seja...nada prático. Será que falta alguma coisa no meu aplicativo....ou é emperrado assim mesmo..??? Um grande abraço a todos. Frata

Como declarar uma chave primária...desculpe é que sou novato em VB. Frata

Bem, desenvolvi uma aplicação que se conecta com um banco do Access, do Office 2000, usando o Data control, ele funciona muito bem, mas apresenta dois erros que são: 1 - quando tento cadastrar um cliente já cadastrado (nome repetido) ou se tento atualizar um cadastro, ou seja, fazer modificações e depois salvar, me retorna: RUN TIME ERROR 3426 This action was cancelled by an associated object 2 - Num novo cadastro: se eu clico em salvar ele me pede uma confirmação, até aí tudo bem, então se eu cancelo, mas depois em seguida eu resolvo salvar o registro ele me retorna: Index or primary Key can´t contain a null value. Antecipadamente agradeço. Frata

OI, será que é a isso que você se refere..?? Onde diz no código :Data1.Recordset.AddNew , fica sublinhado de amarelo, mas eu não sei exatamente como resolver isso...ah, e antes aparece uma caixa de diálogo com a seguinte mensagem: Compile error - Error in Loading DLL. Obrigado. Private Sub Command2_Click() Data1.Recordset.AddNew If Save Then Select Case MsgBox("Salvar Alterações?", vbQuestion + vbYesNo, "Informações do Sistema") Case vbYes '6 If txtNome.Text = Empty Then MsgBox "Informe o nome do cliente!", , "Informação do Sistema" txtNome.SetFocus Save = False Action = vbDataActionCancel txtNome.SetFocus Exit Sub ElseIf txtEndereço.Text = Empty Then MsgBox "Informe Endereço do Cliente!", , "Infomação do Sistema" txtEndereço.SetFocus Save = False txtEndereço.SetFocus Action = vbDataActionCancel txtEndereço.SetFocus Exit Sub End If Case vbNo '7 Save = False End Select ' foi colocado este código no final, para que o txtnome receba foco ao fim de cada cadastro' txtNome.SetFocus End If End Sub

Oi desculpe...segue o código abaixo. Obrigado!! Frata. Private Sub Command1_Click() Dim resposta, excluir As String On Error GoTo falha excluir = "Informação do Sistema" resposta = MsgBox("Você tem certeza que deseja excluir este registro ?", vbOKCancel, "Informação do Sistema") If resposta = vbOK Then Data1.Recordset.Delete Data1.Recordset.MoveFirst MsgBox "Registro excluído com sucesso", vbOKOnly, "Informação do stema" End If falha: If Err.Number = 3021 Then MsgBox "Não existe registro para ser excluído", , "Informação do sitema" Data1.Recordset.AddNew End If End Sub Private Sub Command2_Click() Data1.Recordset.AddNew If Save Then Select Case MsgBox("Salvar Alterações?", vbQuestion + vbYesNo, "Informações do Sistema") Case vbYes '6 If txtNome.Text = Empty Then MsgBox "Informe o nome do cliente!", , "Informação do Sistema" txtNome.SetFocus Save = False Action = vbDataActionCancel txtNome.SetFocus Exit Sub ElseIf txtEndereço.Text = Empty Then MsgBox "Informe Endereço do Cliente!", , "Infomação do Sistema" txtEndereço.SetFocus Save = False txtEndereço.SetFocus Action = vbDataActionCancel txtEndereço.SetFocus Exit Sub End If Case vbNo '7 Save = False End Select ' foi colocado este código no final, para que o txtnome receba foco ao fim de cada cadastro' txtNome.SetFocus End If End Sub Private Sub Command3_Click() Dim resposta, excluir As String excluir = "Você tem certeza que deseja sair do Sistema?" resposta = MsgBox("Você Tem Certeza que deseja Sair do Sistema ?", vbOKCancel, "Informação do Sistema") If resposta = vbOK Then End End If End Sub Private Sub Command4_Click() Busca = "Digite o nome do Cliente para consulta" Procura = InputBox(Busca, "Pesquisa de Cliente") Data1.Recordset.Index = "idxClientes" Data1.Recordset.Seek ">=", Procura If Data1.Recordset.NoMatch Then Data1.Recordset.MoveFirst End If End Sub Private Sub Data1_Validate(Action As Integer, Save As Integer) If Save Then Select Case MsgBox("Salvar Alterações?", vbQuestion + vbYesNo, "Informações do Sistema") Case vbYes '6 If txtNome.Text = Empty Then MsgBox "Informe o nome do cliente!", , "Informação do Sistema" txtNome.SetFocus Save = False Action = vbDataActionCancel txtNome.SetFocus Exit Sub ElseIf txtEndereço.Text = Empty Then MsgBox "Informe Endereço do Cliente!", , "Infomação do Sistema" txtEndereço.SetFocus Save = False txtEndereço.SetFocus Action = vbDataActionCancel txtEndereço.SetFocus Exit Sub End If Case vbNo '7 Save = False End Select ' foi colocado este código no final, para que o txtnome receba foco ao fim de cada cadastro' txtNome.SetFocus End If End Sub Private Sub Text10_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub Text12_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub Text2_Change() KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub Text9_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtBairro_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtCidade_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtComplemento_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtEndereço_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtNome_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtOBS_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtUF_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub

Estou com um pequeno problema; quando clico para acessar meu programa ele me retorna a seguinte mensagem: 1 - Primeiro: Data Access Error Então como eu clico no OK, me retorna: 2- Run Time Error '91' Object variable or with block variable not set __________________________________________ Acho importante informa que: a -Este programa se conecta a um banco de dados do Access, usando o Data Control b - Este programa foi desenvolvido numa máquina e estou tentando abrí-lo em outra, porém ambas possuem a mesma versão do Office. Não sei como resolver o problema. Obrigado. Frata

Bem agora surgiu outro probleminha...o meu pragrama se conecta a um banco de dados do Access 2007. Então surgem as seguintes questões: 1 - Na máquina onde meu programa vai rodar tem que ter sempre instalado o Access 2007..?? 2- E se caso na máquina onde ele for rodar tenha intslado uma versão superior, tem como atrualizar para baixo...ou ele roda numa versão anterior normalmente. Detalhe: Eu use para fazer a conexão um data control. Obrigado. Frata

Acontece que desenvolvi uma agenda que salva os dados num banco Acess, só que quando mudo a pasta com meu programa de lugar, ou renomeio, ele já não localiza mais o banco e dá erro. O Banco foi criado com o Visual Data Manager, e salvo na mesma pasta do meu projeto. Não sei onde estou errando. Obrigado. Frata

Estou com um pequeno problema; é que preciso que meu programa abra sozinho a cada cinco minutos (carregue na tela um formulário com uma mensagem). Só isso..??? Mas eu relamente não sei como desenvolver esse procedimento. Obrigado! Frata.

....oi, amigão...eu já havia imaginado isso, mas não sei de onde baixar a versão Full....e estou precisando acabar um projeto.....será qye você sabe onde posso baixá-la..??? Grande abraço e valeu mesmo..!!! Frata

Estou usando o VB 6.0 Portable. Quando clico no Add-Ins e em seguida no Visual Data Manager, me retorna a seguinte mensagem: INVALID CLASS STRING. LOOKING FOR OBJECT WITH PROGID: VISDATA.VISDATACLASS. Não sei como resolver o problema, Será que alguém pode me ajudar...?? Antecipadamente agradeço. Frata.

Estou usando o VB 6.0 Portable. Quando clico no Add-Ins e em seguida no Visual Data Manager, me retorna a seguinte mensagem: INVALID CLASS STRING. LOOKING FOR OBJECT WITH PROGID: VISDATA.VISDATACLASS. Não sei como resolver o problema, Será que alguém pode me ajudar...?? Antecipadamente agradeço. Frata.

Oi...MIl vezes obrigado...mas acho que não me expressei bem, porque me refiro à uma aplicação em Visual Basic, e não em VBA. Mas foi muito útil, porque tb uso o VBA..e muito. Obrigado. Frata.

Bem, estou precisando que meu programa abra uma caixa de diálogo a cada cinco minutos para lembrar de corrigir a postura de quem está no computador. Ela será fechada em seguida clicando-se enter. Não tenho idéia de como criar esse temporizador...!!! Será que alguém pode me ajudar...?? Obrigado antecipadamente. Frata

Preciso URGENTE baixar o VB 6.0 porque o meu realmente deu "pau"... e estou no meio de um trabalho. Será que alguém pode me ajudar..?? Estou sabendo que a Microsoft descontinuou este produto, mas deve haver um loca habilitado para Download. Antecipadamente agradeço. É muito importante. Obrigado. Frata

Grande Kuroi; Brigadooooooooooooo!!! vou testar e te falo. Valeu!!!!!

Gostaria de saber como proceder para que o usuário ao clicar no executável, caso o programa já esteja aberto, receba uma mensagem de aviso de que o aplicativo já se encontra em execução. Porque caso contrário abre um monte de janelas iguais uma atrás da outra. Antecipadamente agradeço, mais uma vez...!!!!! Frata

Prezado Kuroi: realmente estou me referindo ao VB 6.0 - obrigado, vou tentar este procedimento e te retorno qualquer coisa. Estou meio sem tempo porque estamo em prova na Faculdade, mas vou tentar ser mais assíduo por aqui...ok??? Abraço a todos e obrigado uma vez mais. Frata

Olha, não funcionou.........!!! Ele não aparace depois quando abro o projeto. Continuo pesquisando. Obrigado

Tudo bem, mas se você faz um programa para um cleinte e vem o AVG e deleta o executável; como eu vou dizer para ele desabilitar o antivírus...entende...??? é um pouco complicado isso. Deve haver um motivo para o AVG (Digo este software como exemplo) acusar meu executável como uma ameaça. Continuo pesquisando o porque disso acontecer. Frata

oi, kuroi, vou tentar, te falo qualquer coisa...brigadooooooooo..!!! Frata.

Será que alguém sabe me dizer como criar um formulário idêntico a um já existente..??? andei lendo alguma coisa sobre herança...será que tem alguma coisa a ver..??? É que preciso criar diversos formulários iguais, e depois de prontos apenas fazer as pequenas mudanças necessárias.....antecipadamente agradeço a galera...que aliás, diga-se de passagem, tem me ajudado e MUIIITO. Abraços. Frata.