Jump to content
Fórum Script Brasil

Blatzkovitz

Membros
  • Content Count

    11
  • Joined

  • Last visited

Everything posted by Blatzkovitz

  1. Bem, na verdade havia um erro sim... Na busca eu tinha colocado o nome do arquivo mdb, quando na verdade era para ter posto o nome da tabela... :blush: obrigado a todos pela boa vontade.
  2. Os nomes estão corretos... Eu verifiquei centenas de vezes
  3. Puxa, eu sei fazer variáveis globais, mas funções não...
  4. Olá, Eu criei uma toolbar com com um botão chamado "Buscar" com o seguinte código: Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) If Button.Index = 1 Then Busca End If Ou seja quando o botão Buscar for clicado era para acionar a função BUSCA, só q aparece o seguinte erro: "Compile error: Sub or Functionnot defined Bem, creio q o erro ocorre porque a toolbar está em um MDI Form e a função está em outro Form (q é um MDI Child). Então a pergunta é: Como eu vinculo o botão da Toolbar do MDI Form à função q está no outro Form?
  5. Putz surgiu mais um problema com esse maldito banco de dados... Agora quando eu clico em "Busca" aparece o erro: "O mecanismo de banco de dados Microsoft Jet não encontro a tabela de entrada ou de consulta pontuário (tabela q eu estou usando). Certifique-se que ela existe e de que o seu nome está digitado corretamente" Depois aponta para esse linha: rst.Open strSQL, conexao, adOpenStatic E o pior é q o nome da tabela tá correto, tanto q a parte de cadastro tá funcionando perfeitamente. Esse é o código eu estou usando para a busca: busca = InputBox("Insira o Prontuário a ser consultado",
  6. Putz, cara eu tinha declarado ela sim, e ela é uma variável global só q eu tinha declarado de forma errada. De qualquer forma sua resposta me ajudou porque eu tava achando q era outra coisa e me esqueci desse detalhe. Valeu! :)
  7. Ok, consegui corrigir o erro é q eu esqueeci de abrir a conexão com o banco de dados usando o método Open para abrir o Recordset :P só q surgiu outro problema... Agora quando eu coloco o programa para rodar aparece: Run-time error '424' Object required daí aponta para essa linha de código: conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strcaminho & ";" Esse é o código q eu estou usando para a função Open: Dim strcaminho As String strcaminho = App.Path & "\prontuario.mdb" conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strcaminho &
  8. Olá pessoal, Eu estou fazendo um projeto de faculdade q tá me deixando maluco. EU estou fazendo um programa de cadastro q utiliza a conexão ADO e um formulário em Access, só q ele não tá rodando de jeito nenhum. Eu acho q o problema não está no código, porque eu já o utilizei em um outro projeto e funcionou direitinho, mas agora quando eu clico no botão "Cadastrar" aparece a mensagem: "Os argumentos são incorretos, estão fora do intervalo aceitável, ou estão em conflito" Eu desconfio q seja problema no Access, mas já mexi em um monte de coisa e nada, alguém aí já teve um problema parecido?
  9. Pessoal, estou precisando muito de uma ajuda: Eu estou criando um projeto de cadastro de cliente e preciso inserir o seguinte código: Dim strSQL As String Dim conexao As New ADODB.Connection Dim rst As New ADODB.Recordset Porém elas precisam estar como variáveis globais e eu não lembro com faz, porque já faz um bom tempo q não mexo com VB. Dêem uma olhada nesse print para ficar mais claro: http://img703.imageshack.us/f/globalo.jpg/ HEEEEELP!
  10. Olá, Eu estou fazendo um projeto q se baseia praticamente em uma SSTab, e é 1° vez q uso esse componete. Eu criei uns campos de cadastro dentro de uma SSTab mas quando eu clico no botão cadastrar aparece a mensagem "Argument Not Optional" e as vezes "Object not found". Ou seja, parece q o programa não está vinculando a Text Box com o código de cadastro. O erro seria no banco de dados? Ou tem alguma forma diferente de referenciar um TextBox a uma SSTab? Eu já fiz um projeto muito parecido q não usava SStab e correu tudo bem. PS: Se o post ficou meio confuso por favor vejam esses prints pa
×
×
  • Create New...