betasl17

Oi gente estou aqui novamente, e eu gostaria de saber como eu faço para criar um relatório no Visual Basic, sinceramente não faço a mínima idéia de como iniciar... Qualquer dica será muito bem vinda!! Mais uma vez Obrigada pela atenção... Abraços Beta

oi gente eu gostaria de agradecer pelas ajudas que me deram, consegui solucionar o meu problema!!! Adorei esse site e adorei ter conhecido vocês!!! Bjs Beta

Bom, tentei fazer com esse código, mas ele permite a entrada de qualquer valor inserido nos campos. Até se deixar os campos em branco ele entra. você tem alguma sugestão para tratar o meu código?? a parte de validação de senha e de usuário, está funcionando com o seguinte código: ---------------------------------------------------------------------------------------------- Private Sub Command1_Click() Dim logusr As String Dim senusr As String logusr = Text1.Text senusr = Text2.Text Data1.Refresh Do While Not (Data1.Recordset.EOF) If Data1.Recordset("login") = logusr Then If Data1.Recordset("senha") = senusr Then Form3.Label19.Caption = logusr Form2.Label11.Caption = logusr Form1.Show Unload Me Else MsgBox ("Senha incorreta!") Text2.SetFocus End If Else MsgBox ("Login Inválido!") End If Exit Sub Data1.Recordset.Movenext Loop ---------------------------------------------------------------------------------------------- o problema é q que o movenext não está indo p/ o próximo registro na função do while. pois ele só está aceitando o 1º registro da tabela. sugestões????? Obrigada.

boa tarde gente! estou com um probleminha estou criando um form p/ autenticar o usuário com a senha previamente cadastrado.... meu código está assim: Private Sub Command1_Click() Dim logusr As String Dim senusr As String logusr = Text1.Text senusr = Text2.Text Data1.Refresh Do While Not (Data1.Recordset.EOF) If Data1.Recordset("login") = logusr Then If Data1.Recordset("senha") = senusr Then Form3.Label19.Caption = logusr 'um form recebe esse valor' Form2.Label11.Caption = logusr 'um form recebe esse valor' Form1.Show Unload Me Else MsgBox ("Senha incorreta!") Text2.SetFocus End If Else Data1.Recordset.MoveNext End If Exit Sub Loop End Sub ele tá dando erro! ele só entra qd eu digito o 1º usuário da tabela. ou se não existir usuário, ele fica em loop direto... brigadinhuuuu! beijos