Alex Mauricio

o erro é só este mesmo... preciso fazer estes testes que solicitou... referente a pergunta "onde salvo uma stored procedure" eu quis dizer se tem um local padrão para fazer isso... e se não é por causa disso que o sistema "não está achando a stored procedure". No final do dia eu envio onde está o erro exatamente. OBrigado

Estou fazendo um teste com ODBC, SQL Server e Store Procedure, conforme o código abaixo: Option Explicit Dim area As Workspace Dim conexao As Connection Dim resultado As Recordset Dim consulta As QueryDef Dim gSql As String Dim aspa As String Private Sub cmdIncluir_Click() If Trim(txtNome.Text) = "" Then MsgBox "Informe o nome" Exit Sub End If Set consulta = conexao.CreateQueryDef("") consulta.Prepare = dbQUnprepare gSql = "sp_insert_Pessoa1" & aspa & txtNome & aspa & "," If Trim(txtNaturalidade.Text) = "" Then gSql = gSql & "null," Else gSql = gSql & aspa & txtNaturalidade.Text & aspa & "," End If If cboEstado.ListIndex = -1 Then gSql = gSql & "null," Else gSql = gSql & cboEstado.ItemData(cboEstado.ListIndex) & "," End If If IsNull(dtpNascimento) Then gSql = gSql & "null," Else gSql = gSql & aspa & dtpNascimento & aspa & "," End If gSql = gSql & aspa & dtpEmissao & aspa consulta.SQL = gSql consulta.Execute ListaPessoa cboPessoa.SetFocus End Sub Private Sub Form_Load() Set area = CreateWorkspace("NovaArea", "admin", "", dbUseODBC) Set conexao = area.OpenConnection("Conexao", dbDriverNoPrompt, , "ODBC;DATABASE=Exemplo;UID=public;PWD=;DSN=UserSQL") ListaPessoa gSql = "select * from Estado" Set resultado = conexao.OpenRecordset(gSql, dbOpenSnapshot) Do Until resultado.EOF cboEstado.AddItem resultado!sigla cboEstado.ItemData(cboEstado.NewIndex) = resultado!IdEstado resultado.MoveNext Loop resultado.Close aspa = """" End Sub Private Sub ListaPessoa() cboPessoa.Clear gSql = "select * from Pessoa" Set resultado = conexao.OpenRecordset(gSql, dbOpenSnapshot) 'o dbopenSnapshot indica que a consulta é somente leitura e consequentemente mais rápida Do Until resultado.EOF cboPessoa.AddItem resultado!nome cboPessoa.ItemData(cboPessoa.NewIndex) = resultado!IdPessoa resultado.MoveNext Loop resultado.Close End Sub Porém está dando o seguinte erro: Run-time erro '3146' ODBC-call failed Onde eu salvo uma stored procedure? Obrigado

Pessoal, estou com o seguinte código: Option Explicit Private Sub cmdSelecionarArquivo_Click() Dim tipo As String Dim achouArquivo As Boolean cmmCarregaArquivo.DialogTitle = "Selecione um arquivo para carregar no Banco de Dados!" cmmCarregaArquivo.InitDir = "c:" 'cmmCarregaArquivo.InitDir = App.Path --> mostra o diretório onde está o sistema 'cmmCarregaArquivo.FileName = arquivo - CASO QUEIRA DEIXAR PRÉ-DEFINIDO UM ARQUIVO tipo = "Arqs. CSV(*.csv)|*.csv|Todos " & "Arqs. (*.*)|*.*|" cmmCarregaArquivo.Filter = tipo cmmCarregaArquivo.Flags = cdlOFNFileMustExist + _ cdlOFNHideReadOnly + _ cdlOFNLongNames + _ cdlOFNExplorer cmmCarregaArquivo.CancelError = False cmmCarregaArquivo.ShowOpen achouArquivo = cmmCarregaArquivo.Flags If cmmCarregaArquivo.Flags = 0 Then MsgBox "NADA SELECIONADO" Else MsgBox "1" End If End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then SendKeys ("{TAB}") KeyAscii = 0 End If End Sub Em primeiro lugar, estou fazendo um teste (sem sucesso) com um IF que quando eu selecionar um arquivo ele me mostra o número 1 quando eu der um cancelar ele me mostra NADA SELECIONADO. Após acertar isso, eu gostaria que na hora que eu selecionar um arquivo, quero que monte em uma string o local do arquivo, como por exemplo "c:\DIRETORIOX\teste.csv" Obrigado.

é um mask edit sim. porém quando clico no flex grid da primeira consulta ele mostra normalmente... ele só tá dando este problema na segunda consulta... isso é possíovel? se sim, porque? obrigado

Boa tarde Pessoal... Estou com o seguinte erro Quando abre a tela de cadastro, o flexgrid carrega automaticamente... conforme o código fonte abaixo e funciona perfeitamente... posso clicar em cima dos registros ( no flexgrid ) que ele está mostrando nos campos text's certinho... ( segue o código abaixo ) Private Sub carregaFlexGridCadastro() Dim linha As Long Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente Order by TbCadastro.codigoCliente") linha = 1 While Not Table_Cadastro.EOF FlexGridCadastro.Row = linha FlexGridCadastro.Col = 0 FlexGridCadastro.Text = Table_Cadastro("codigoCliente") FlexGridCadastro.Col = 1 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("telefoneCliente")), "(00)0000-0000", Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@")) FlexGridCadastro.Col = 2 If (Table_Cadastro!bloqueioCliente = True) Then FlexGridCadastro.Text = "Bloqueado" Else FlexGridCadastro.Text = "Desbloqueado" End If FlexGridCadastro.Col = 3 FlexGridCadastro.Text = Table_Cadastro("nomefonte") FlexGridCadastro.Col = 4 FlexGridCadastro.Text = Table_Cadastro("nomeCliente") FlexGridCadastro.Col = 5 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataCadastroCliente")), "00/00/0000", Format(Table_Cadastro("dataCadastroCliente"), "@@/@@/@@@@")) FlexGridCadastro.Col = 6 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("horaCadastroCliente")), "00:00:00", Format(Table_Cadastro("horaCadastroCliente"), "@@:@@:@@")) FlexGridCadastro.Col = 7 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataUltimaLigacao")), "00/00/0000", Format(Table_Cadastro("dataUltimaLigacao"), "@@/@@/@@@@")) FlexGridCadastro.Col = 8 FlexGridCadastro.Text = Table_Cadastro("nomesituacao") FlexGridCadastro.Col = 9 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("observacoesGeraisCadastro")), "*", Table_Cadastro("observacoesGeraisCadastro")) Table_Cadastro.MoveNext FlexGridCadastro.Rows = FlexGridCadastro.Rows + 1 linha = linha + 1 Wend Table_Cadastro.Close End Sub porém, se eu peço uma consulta para mostrar só o registro de número "x" e clico em cima dele dá o erro ( vou postar o código da pesquisa abaixo para ver q é igual... pelo menos não achei nada de diferente ) Private Sub cmdPesquisar_Click() Dim linha As Long On Error GoTo fErro If optCodigo.Value = True Then formatFlexGridCadastro Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente where codigoCliente = " & Val(txtPesquisar.Text)) linha = 1 While Not Table_Cadastro.EOF FlexGridCadastro.Row = linha FlexGridCadastro.Col = 0 FlexGridCadastro.Text = Table_Cadastro("codigoCliente") FlexGridCadastro.Col = 1 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("telefoneCliente")), "(00)0000-0000", Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@")) 'FlexGridCadastro.Text = Format(Table_Cadastro("telefoneCliente"), "(99)9999-9999") 'FlexGridCadastro.Text = Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@") FlexGridCadastro.Col = 2 If (Table_Cadastro!bloqueioCliente = True) Then FlexGridCadastro.Text = "Bloqueado" Else FlexGridCadastro.Text = "Desbloqueado" End If FlexGridCadastro.Col = 3 FlexGridCadastro.Text = Table_Cadastro("nomefonte") FlexGridCadastro.Col = 4 FlexGridCadastro.Text = Table_Cadastro("nomeCliente") FlexGridCadastro.Col = 5 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataCadastroCliente")), "00/00/0000", Format(Table_Cadastro("dataCadastroCliente"), "@@/@@/@@@@")) FlexGridCadastro.Col = 6 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("horaCadastroCliente")), "00:00:00", Format(Table_Cadastro("horaCadastroCliente"), "@@:@@")) FlexGridCadastro.Col = 7 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataUltimaLigacao")), "00/00/0000", Format(Table_Cadastro("dataUltimaLigacao"), "@@/@@/@@@@")) FlexGridCadastro.Col = 8 FlexGridCadastro.Text = Table_Cadastro("nomesituacao") FlexGridCadastro.Col = 9 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("observacoesGeraisCadastro")), "*", Table_Cadastro("observacoesGeraisCadastro")) Table_Cadastro.MoveNext FlexGridCadastro.Rows = FlexGridCadastro.Rows + 1 linha = linha + 1 Wend limparCampos Table_Cadastro.Close end sub ele aponta o erro para a linha abaixo em negrito... Private Sub FlexGridCadastro_Click() FlexGridCadastro.Col = 0 txtCodigoCliente.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 1 txtTelefone.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 2 If Trim(FlexGridCadastro.Text) = "Bloqueado" Then telefoneBloqueado.Value = 1 ElseIf Trim(FlexGridCadastro.Text) = "Desbloqueado" Then telefoneBloqueado.Value = 0 End If FlexGridCadastro.Col = 3 comboFonte = FlexGridCadastro.Text FlexGridCadastro.Col = 4 txtNomeCliente = FlexGridCadastro.Text FlexGridCadastro.Col = 5 txtDataCadastro.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 6 txtHoraCadastro.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 7 txtDataUltimaLigacao.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 8 comboSituacao = FlexGridCadastro.Text FlexGridCadastro.Col = 9 txtObservacoes = FlexGridCadastro.Text End Sub por que em uma pesquisa funciona e na outra não? obrigado

Boa tarde pessoal. tenho a seguinte pesquisa: If optCodigo.Value = True Then formatFlexGridCadastro Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente where codigoCliente = " & Val(txtPesquisar.Text)) linha = 1 While Not Table_Cadastro.EOF FlexGridCadastro.Row = linha FlexGridCadastro.Col = 0 FlexGridCadastro.Text = Table_Cadastro("codigoCliente") FlexGridCadastro.Col = 1 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("telefoneCliente")), "(00)0000-0000", Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@")) 'FlexGridCadastro.Text = Format(Table_Cadastro("telefoneCliente"), "(99)9999-9999") 'FlexGridCadastro.Text = Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@") FlexGridCadastro.Col = 2 If (Table_Cadastro!bloqueioCliente = True) Then FlexGridCadastro.Text = "Bloqueado" Else FlexGridCadastro.Text = "Desbloqueado" End If FlexGridCadastro.Col = 3 FlexGridCadastro.Text = Table_Cadastro("nomefonte") FlexGridCadastro.Col = 4 FlexGridCadastro.Text = Table_Cadastro("nomeCliente") FlexGridCadastro.Col = 5 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataCadastroCliente")), "00/00/0000", Format(Table_Cadastro("dataCadastroCliente"), "@@/@@/@@@@")) FlexGridCadastro.Col = 6 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("horaCadastroCliente")), "00:00:00", Format(Table_Cadastro("horaCadastroCliente"), "@@:@@")) FlexGridCadastro.Col = 7 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataUltimaLigacao")), "00/00/0000", Format(Table_Cadastro("dataUltimaLigacao"), "@@/@@/@@@@")) FlexGridCadastro.Col = 8 FlexGridCadastro.Text = Table_Cadastro("nomesituacao") FlexGridCadastro.Col = 9 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("observacoesGeraisCadastro")), "*", Table_Cadastro("observacoesGeraisCadastro")) Table_Cadastro.MoveNext FlexGridCadastro.Rows = FlexGridCadastro.Rows + 1 linha = linha + 1 Wend limparCampos Table_Cadastro.Close Após isso, ele carrega um FlexGrid Quando dou um click no registro selecionado para carregar os campos textbox, dá o seguinte erro: debugo o erro e ele vai para outra sub, conforme a baixo: Private Sub FlexGridCadastro_Click() FlexGridCadastro.Col = 0 txtCodigoCliente.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 1 txtTelefone.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 2 If Trim(FlexGridCadastro.Text) = "Bloqueado" Then telefoneBloqueado.Value = 1 ElseIf Trim(FlexGridCadastro.Text) = "Desbloqueado" Then telefoneBloqueado.Value = 0 End If FlexGridCadastro.Col = 3 comboFonte = FlexGridCadastro.Text FlexGridCadastro.Col = 4 txtNomeCliente = FlexGridCadastro.Text FlexGridCadastro.Col = 5 txtDataCadastro.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 6 txtHoraCadastro.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 7 txtDataUltimaLigacao.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 8 comboSituacao = FlexGridCadastro.Text FlexGridCadastro.Col = 9 txtObservacoes = FlexGridCadastro.Text End Sub o que posso fazer para resolver?

Boa tarde. Tenho uma tabela com 105 mil registros... Porém está para colocar até 200 caracteres em cada registro e eu tenho certeza q o maior registro não chega a metade disso... gostaria de mudar esta propriedade, porém preciso saber exatamente qual é o maior registro atual... queria criar um select onde ele me mostra o maior registro teria como fazer isso? obrigado.

boa tarde. estou com o seguinte problema nos botões de próximo, primeiro, etc. segue o código abaixo Private Sub cmdAnterior_Click() Dim ssql As String ssql = "Select * from TbLogin order by codigoLogin" Set Table_Login = BancoDeDados.OpenRecordset(ssql) Table_Login.MovePrevious End Sub E a navegação não funciona... qual é o erro? Obrigado

Boa tarde. Pessoal. Estou criando um Programa, mas estou com dificuldade no seguinte aspecto. Gostaria de criar um ítem ( acredito que seria um dir list box ) para selecionar o local de um arquivo de texto e depois de selecionado o arquivo, eu clicaria em "carregar arquivo" e o programa iria ler linha por linha, até ter uma mensagem no arquivo de texto "END OF FILE". Alguém tem um tutorial para isso? Obrigado.

Boa tarde pessoal. Estou desenvolvendo uma aplicação, onde eu gostaria que os usuários tivesse o nível 1, 2 e 3... onde o nível 1 só teria acesso a consulta, o nível 2 teria acesso a consulta e algumas alteraçãos e o nível 3 acesso total ( administrador do sistema ). Ou seja, de acordo com o nível do usuário que estiver conectado, o sistema habilida ou desabilita determinadas funções... alguém teria um idéia de como fazer isso??? Obrigado

Boa noite pessoal. Tenho um pequeno sistema em Visual Basic e Banco de Dados Access que desenvolvi para agilizar um processo na empresa onde eu trabalho. Porém, agora surgiu a oportunidade de vender este "pequeno software" para uma outra empresa do mesmo seguimento. Agora, eu preciso "LIMPAR" todas as tabelas do meu Banco de Dados, porq tem registros que usa AUTONUMERAÇÃO... caso eu DELETE TODOS e acrescente um novo ele vai MOSTRAR O NUMERO 1? Obrigado.

hj não tem nenhum on error

então kuroi coloquei um break point para acompanhar ok... toda ele está ficando com o valor 0, monta a query e não tã inserindo

tenho observado que hora ele adiciona um registro, hora não.... porém quando adiciona é só 1... depois o programa continua rodando mas não incrementa mais

Bom dia pessoal. Tenho a seguinte consulta: select campo1 from tabela1 order by campo1 asc beleza mas eu queria fazer uma consulta onde ele só vai mostrar os registros que o campo1 tiver 10 caracteres, como por exemplo: select campo1 from tabela1 where lenght(campo1) order by campo1 asc porém não funciona. tem alguma instrução no access que faça isso? obrigado

pessoal... tenho este código abaixo.... e não apresenta erro, porém também não insere a informação no BD If Table_Situacao.RecordCount = 0 Then ssql3 = "insert into TbSituacao values(" ssql3 = ssql3 & codigoSituacao & ",'" ssql3 = ssql3 & situa & "')" BancoDeDados.Execute ssql3 contador = contador + 1 End If obrigado

pessoal to com o seguinte código o objetivo é incrementar 2 valores nos registros telefone e na verdade ele esta colocando o "novo telefone" em outro campo Private Sub cmdAdicionarDdd_Click(Index As Integer) Dim ssql As String Dim atualiza As String Dim tel_antigo As String Dim tel_novo As String ssql = "select Telefone from Tabela1" Set TableAntiga = BancoDeDadosAntigo.OpenRecordset(ssql) While Not TableAntiga.EOF tel_antigo = TableAntiga!Telefone tel_novo = "19" + tel_antigo atualiza = "update Tabela1 set TelefoneNovo = '" & tel_novo & "' where telefone = '" & tel_antigo & "'" 'MsgBox tel_novo Set TableAntiga = BancoDeDadosAntigo.OpenRecordset(atualiza) TableAntiga.MoveNext Wend TableAntiga.Close End Sub está dando erro Run-time error "3219". Operação inválida.... o que pode tá errado

entendi... agora... para migrar esta aplicação para ADO ficaria como? obrigado

mesmo problema travou e com 2 segundos a variável contador está com o valor 26484921. acredito mesmo q ele estivesse contando campo por campo nos registros não daria esse valor

Pessoal, tenho o seguinte código: Option Explicit Private Sub conectarBanco() Set BancoDeDadosAntigo = OpenDatabase("I:\Sistema de Gerenciamento de Cupons Cadastro\Versao_1.0.01\prjSGCC\BD\TELEMARKETING.MDB") 'Set BancoDeDados = OpenDatabase("I:\Sistema de Gerenciamento de Cupons Cadastro\Versao_1.0.01\prjSGCC\BD\BD_TELEMARKETING.MDB") End Sub Private Sub cmdSair_Click() BancoDeDadosAntigo.Close 'BancoDeDados.Close End End Sub Private Sub cmdTableSituacao_Click(Index As Integer) migrarTableSituacao End Sub Private Sub Form_Load() conectarBanco End Sub Private Function migrarTableSituacao() Dim ssql As String Dim contador As Double contador = 0 ssql = "select * from tabela1" Set TableAntiga = BancoDeDadosAntigo.OpenRecordset(ssql) While Not TableAntiga.EOF contador = contador + 1 'MsgBox contador Wend TableAntiga.Close 'MsgBox contador End Function O objetivo deste código é ver se o programa está percorrendo toda a tabela, porq após isso vou migrar dados dessa tabela para outro BD. Gostaria que o programa corresse a tabela e após isso mostrasse a quantidade de registros. Porém o sistema trava... se eu deixar ele rodar poucos segundos ( 2 a 3 ) e der um break e pedir para ver o valor da variável contador, ele está mostrando 11891061.... E o BD tem 115.000 registros... Ou seja... tem algo errado... Agora se eu pedir que para cada registro lido o sistema mostra um msgbox contador... ele vai fazendo da maneira correta... O que pode está acontecendo? Obrigado

Boa noite pessoal. Estou com o seguinte problema... tenho um código para carregar um combo conforme abaixo: Private Sub carregaComboFonte() Set Table_Fonte = BancoDeDados.OpenRecordset("SELECT nomeFonte FROM TbFonte") While Not Table_Fonte.EOF comboFonte.AddItem Table_Fonte!nomefonte Table_Fonte.MoveNext Wend End Sub até ai ok... no meu form está carregando o combo conforme planejado, dai vem o problema, tenho o código do insert conforme abaixo: Private Sub cmdIncluirCupom_Click() Dim checaTelefoneBloqueado As Integer If telefoneBloqueado.Value = 1 Then checaTelefoneBloqueado = 1 Else checaTelefoneBloqueado = 0 End If Set Table_Cadastro = BancoDeDados.OpenRecordset("select * from TbCadastro where telefoneCliente = '" & Replace(Replace(Replace(Trim(txtTelefone.Text), "(", ""), ")", ""), "-", "") & "'") If Table_Cadastro.RecordCount = 0 Then Dim ssql As String txtDataCadastro.Text = Date txtHoraCadastro.Text = Time txtDataUltimaLigacao.Text = Date ssql = "insert into TbCadastro values(" ssql = ssql & Trim(txtCodigoCliente.Text) & ",'" ssql = ssql & Replace(Replace(Replace(Trim(txtTelefone.Text), "(", ""), ")", ""), "-", "") & "'," ssql = ssql & Val(checaTelefoneBloqueado) & ", '" ssql = ssql & Trim(txtNomeCliente.Text) & "'," ssql = ssql & Val(comboSituacao.ListIndex + 1) & ",'" ssql = ssql & Trim(txtDataCadastro.Text) & "','" ssql = ssql & Trim(txtHoraCadastro.Text) & "','" ssql = ssql & Trim(txtDataUltimaLigacao.Text) & "'," ssql = ssql & Val(comboFonte.ListIndex + 1) & ",'" ssql = ssql & Trim(txtObservacoes.Text) & "')" BancoDeDados.Execute ssql MsgBox "Telefone adicionado com sucesso!", vbInformation + vbOKOnly, "Alerta" formatFlexGridCadastro carregaFlexGridCadastro limparCampos mostrarCampos Else MsgBox "Este telefone já existe no cadastro!", vbInformation + vbOKOnly, "Alerta" End If End Sub o problema é o seguinte.... ele ta fazendo o insert pegando o índice do combo ( comboFonte.ListIndex + 1 ) porém, eu queria fazer o insert com o codigoCliente ( que eu acredito que seja inclusive o correto ).... como faço? Obrigado

Bom dia pessoal... Estou criando um Data Report com o Data Evironment... Quero relacionar 2 tabelas.... no Data Evironment tem a seguinte situação: -criei um command -selecionei a opção SQL Statement com a instrução select * from TbCadastro -Relation -seleciono o parent command: pesquisa por codigo -parent fields: codigo fonte -child fields/parameters: fonte adiciono e ok qual é a ideia... no TbCadastro tenho um campo fonte que é relacionado com a tabela TbFonte ( onde tem o nome da fonte ) e eu quero mostrar o nome da fonte e não o número. ( como se fosse um inner join ). porem fiz todo esse roteiro e quando rodo o relatorio aparece o seguinte erro: O parametro ?_1 não tem valor padrão... o que eu faço?

FIZ O CÓDIGONO BOTÃO CONFORME ABAIXO: Set Table_Fonte = BancoDeDados.OpenRecordset("select * from TbFonte where codigoFonte = " & Val(txtPesquisar.Text)) Set rptFontesPorCodigo.DataSource = conectaTbFonte rptFontesPorCodigo.Show vbModal PORÉM, AO INVÉS DE MOSTRAR UM ÚNICO REGISTRO, O RELATÓRIO CONTINUA MOSTRANDO TODOS OS REGISTROS.... O QUE TEM DE ERRADO?

Tenho o seguinte flexgrid Private Sub carregaFlexGridCadastro() Dim linha As Long Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente Order by TbCadastro.codigoCliente") linha = 1 While Not Table_Cadastro.EOF FlexGridCadastro.Row = linha FlexGridCadastro.Col = 0 FlexGridCadastro.Text = Table_Cadastro("codigoCliente") FlexGridCadastro.Col = 1 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("telefoneCliente")), "(00)0000-0000", Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@")) FlexGridCadastro.Col = 2 If (Table_Cadastro!bloqueioCliente = True) Then FlexGridCadastro.Text = "Bloqueado" Else FlexGridCadastro.Text = "Desbloqueado" End If FlexGridCadastro.Col = 3 FlexGridCadastro.Text = Table_Cadastro("nomefonte") FlexGridCadastro.Col = 4 FlexGridCadastro.Text = Table_Cadastro("nomeCliente") FlexGridCadastro.Col = 5 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataCadastroCliente")), "00/00/0000", Format(Table_Cadastro("dataCadastroCliente"), "@@/@@/@@@@")) FlexGridCadastro.Col = 6 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("horaCadastroCliente")), "00:00:00", Format(Table_Cadastro("horaCadastroCliente"), "@@:@@:@@")) FlexGridCadastro.Col = 7 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataUltimaLigacao")), "00/00/0000", Format(Table_Cadastro("dataUltimaLigacao"), "@@/@@/@@@@")) FlexGridCadastro.Col = 8 FlexGridCadastro.Text = Table_Cadastro("nomesituacao") FlexGridCadastro.Col = 9 FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("observacoesGeraisCadastro")), "*", Table_Cadastro("observacoesGeraisCadastro")) Table_Cadastro.MoveNext FlexGridCadastro.Rows = FlexGridCadastro.Rows + 1 linha = linha + 1 Wend End Sub Quando executo o form onde está o flex grid dá o seguinte erro "Compile Error: Cant't find project or library" e aponta para a seguinte linha Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@"))

onde vou colocar este código ( no botão que vai chamar o relatorio, no relatório, no command, etc)? outra dúvida... criei um botão para abrir um relatório ( que já está pronto e funcionando )... com o seguinte código... Private Sub cmdImprimir_Click() datareport.show End Sub porém quando vou executar o botão dá o seguinte erro. Run time error '401': Can't show non-modal form when modal form is displayed o que significa este erro