Flecha

Olá, Aqui mesmo no forum eu achei a solução tem até um exemplo para baixar. Flecha

Esta bem, vou optar pela tabela, assim quando for colocar em outro "cliente"só altero na tabela. Obrigado Flecha

MrMalj, Em um projeto crio vários relatórios ou Formulários um a um e em todos tenho que digitar o nome do Departamento ou Empresa, certo? Quero criar uma variável em um módulo ou outro lugar que ali eu coloco o nome da empresa e nó relatório eu relaciono a variavel ao invés de digitar todo nome. (melhorou ?) Quando colocar em outra empresa não tenho que mudar os forms e relatórios, vou alterar só o valor da variavel. É isso ai.... Flecha

Legal, Estou testando, coloquei uma figura .png como botão, e já esta em relevo. Como é o código para parecer que baixou quando clicar ? Também alterei o icon dos formulários pela opção iniciar, mostrei o caminho, só que não salva, quando abro esta o icon do access. Pode explicar nesse mesmo tópico? Flecha

Olá Tenho visto um exemplos de MDB que no form os botões são mais acabados, iferentes do que meu access 2003 cria. Eles são mais arredondados e os meus são com as bordas quadradas. Alguém sabe como mudá-los? Flecha

Olá, Será que posso criar uma Variável Global onde vou armazenar o nome de um Departamento. Assim quando for criar o Cabeçalho do Relatório ou Formulário eu insiro uma caixa de texto com origem da variável. Como faço essa ligaçao? Motivo: Passo o programa para vários Departamentos, ai tenho que mudar todos Cabeçalhos dos Relatórios e Formulários e se for possível ai eu iria alterar só na variável. Flecha

MrMalj. Valeu, funcionou. Eu não estava conseguindo pois estava usando argumento errado. Me.sit.Enabled. False e Enable não aparecia na biblioteca, tinha que ser Visible. Acho que Enabled seria para outro tipo de controle. Valeu mais uma vez. Resolvido Obrigado Flecha

Leandro, Instalei na máquina de casa e funcionou perfeitamente, já criei outra variável para armazenar o nome da foto por uma InputBox e modifiquei a linha do filename com o diretório para salvar, concatenando com a variável do nome. Beleza. Muito obrigado Flecha

Leandro, Baixei o exemplo e registrei a dll, me parece que esta funcionando, mas aqui no serviço não tenho webcam e ele retorna uma mensagem que deve ser esse motivo. No fim da procedure precisa renomear a linha de error pois esta referenciando um botão inexistente, acho que é o btnTiraFoto, eu renomeei e não deu erro. Vou testar em casa com a webcam e retorno se funcionou. Obrigado Flecha

Olá, Como faço para usar a webcam para captura de foto e salvar no HD, criando um botão de comando no Formulário do banco de dados. Alguém sabe qu código colocar no evento? Flecha

Olá, Não sei como criar um código para essa situação: Tenho um relatorio que imprime baseado numa consulta. Essa consulta mostra os campos Nome, Cargo, local de trabalho, situação. No critério da consulta pergunta que cargo imprimir. Quero que imprima os registros que satisfaça o cargo de Vendedeor, até aqui OK Ele vai imprimir todos os campos da consulta para todos cargos - vendedor Eu quero que quando o CAMPO "situação" do vendedor estiver com o texto "CHEFE", ele imprima esse campo e para os registros de vendedor que o campo situação for diferente não imprimar esse campo, ou seja que fique invisível. Relatorio manoel Vendedor Loja lapa João vendedor Loja Lapa CHEFE Marcos vendedor loja penha maria vendedor loja penha CHEFE Acho que é isso Como faço essa rotina e em qual evento do relatorio coloco? Flecha

Mr, Minha solução: No form principal ficou um botão de comando que chama um novo Form, onde tem uma Caixa de combinação não acoplada, onde o na Propriedade: Tipo da origem da linha ficou como Tabela/consulta. Origem da linha ficou a sentença: SELECT T_Exercicio.EXERCICIO, T_Exercicio.EXERCICIO FROM T_Exercicio ORDER BY T_Exercicio.EXERCICIO; A minha tabela que tem as opções chama-se T_EXERCICIO. Um botão de comando que chama a impressão, ou seja abre um relatório que é baseado em uma consulta e esta consulta tem como critério no campo exercicio a sentença: [forms]![Teste1]![Exercicio] onde: “forms” é o formulário ativo com os dados, “Teste1” é meu formulário da escolha de impressão, “ Exercício” é o local escolhido na caixa de combinação do form em assunto. Acho que é isso, será que me fiz entender?

Valeu, Copiei um exemplo citado no Forun (Ciclista) e acertei meu Form como o do exemplo e ficou OK. Agora vou tentar colocar no meu Relatório e retorno se não conseguir. Obrigado. Flecha

Olá, No forum só achei para Formulário e não sei se é igual. Tenho uma Tabela com os dados dos funcionários. Um dos campos é o RG. As fotos estão na pasta c:/Cadastro/fotos e os nomes são os números dos RGs. (12122122.jpg). Criei um Relatório para imprimir os Nomes, RGs e Endereço, mas quero incluir a foto do funcionário também. Qual o procedimento para vincular as fotos na saida do Relatório? Tenho que alterar a estrutura da Tabela acrescentando algum campo ? Podem me ajudar a construir esse relatório? Flecha

Valeu Alexandre , já ajudou bastante. Obrigado

Leandro, Não é isso que eu quero. Crie uma consulta qualquer no modo design do access e em um campo coloque no critério uma pergunta (Qualquer dado que exista no campo) Quando você exucutar surgirá um formulário do proprio Access (não fui eu que criei o form ) com o Titulo Inserir parametro e uma linha ImputBOX com a pergunta ( esse é o padrão) Eu quero que apareça uma combox com as opções que é minha tab_cidade nesse formulário. Acho que é isso ai. Flecha

Quem pode ajudar se for possível a construção do critério com uma combox (de uma tabela). Tenho um relatório que lista os clientes de uma cidade baseado numa consulta. A consulta tem no critério Como [Digite a Cidade], onde quando executada abre a tela do access com a pergunta Digite a Cidade. Quero que o usuário não digite nada e sim escolha em uma combox no mesmo form do access que gera a pergunta. No meu caso as cidades estão numa tabela chamada cidade. Tem como fazer isso.? Flecha

Olá, Criei um formulário Principal onde os Campos vem de uma conslta de duas tabelas (funcionarios e cargas) onde o campo comum (relação) é o RG. Neste formulário uso o nome, rg e local. No Subformulário tem base na tabela (Cargas) e uso os campos RG, Tipoi de carga, marca, etc... Quando abro o formulário, funciona perfeito, mostra os dados do fncionário, rg, local e as Cargas qe este fncionário possue, Tipo , marca, etc... Perfeito Não consigo imprimir esses dados da tela, coloquei um botão de impressão no form, ma ele pede o RG para imprimir. Eu quero que o botão interprete que é para imprimir aqueles dados do RG em tela. Já fiz uma consulta com todos os dados com o critério no campo RG conforme abaixo [Formulário]![from_principal]![RG] mas quando executa pede o RG e não lê o d Form. Como resolvo essa questão ? Flecha

Me parece que é esta aqui set stream=Server.CreateObject("ADODB.Stream") Flecha

Olá Mandei uma página publicando um Banco de dados do Access Criei o programa pelo ASPRUNNERPRO Ná máquina local ele roda direitinho e no servidor não. Não sei o que é esse erro e não abre a página. ERRO Server object error 'ASP 0177 : 800401f3' Server.CreateObject Failed /_____19_/flecha/novo/libs/xtempl.asp, line 122 800401f3 O arquivo do erro <% class XTempl public xt_vars private xt_stack private template private fetch_mode private strout Private Sub Class_Initialize() set xt_vars=CreateObject("Scripting.Dictionary") set xt_stack=CreateObject("Scripting.Dictionary") xt_stack.Add 0,xt_vars fetch_mode=false dim arrHeader set arrHeader = CreateObject("Scripting.Dictionary") arrHeader("file")="include/header.asp" assign_function "header","xt_include",arrHeader dim arrFooter set arrFooter = CreateObject("Scripting.Dictionary") arrFooter("file")="include/footer.asp" assign_function "footer","xt_include",arrFooter dim arrEmpty set arrEmpty = CreateObject("Scripting.Dictionary") assign_function "event","xt_doevent",arrEmpty assign_function "label","xt_label",arrEmpty assign_function "caption","xt_caption",arrEmpty End Sub Public sub assign(name,val) if xt_vars.Exists(name) then _ xt_vars.Remove(name) xt_vars.Add name,val end sub Public sub assign_section(name,strbegin,strend) dim arr set arr = CreateObject("Scripting.Dictionary") arr("begin")=strbegin arr("end")=strend assign name,arr end sub public sub assign_loopsection(name,data) dim arr set arr = CreateObject("Scripting.Dictionary") arr.Add "data",data assign name,arr end sub public sub assign_function(name,func,params) dim arr set arr = CreateObject("Scripting.Dictionary") arr("func")=func arr.Add "params",params assign name,arr end sub private sub xt_getvar(name,var) dim i for i=1 to xt_stack.Count if xt_stack(xt_stack.Count-i).Exists(name) then if vartype(xt_stack(xt_stack.Count-i)(name))<>9 then var = xt_stack(xt_stack.Count-i)(name) else set var = xt_stack(xt_stack.Count-i)(name) end if if vartype(var)=11 then if not var then var=null end if exit sub end if next var=null end sub public function fetch_loaded(filtertag) fetch_mode=true strout="" display_loaded(filtertag) fetch_mode=false fetch_loaded=strout end function public function fetch_loaded_before(filtertag) dim pos1,str pos1=instr(template,"{BEGIN " & filtertag & "}") if pos1=0 then fetch_loaded_before="" exit function end if str=mid(template,1,pos1) fetch_mode=true xt_process_template(str) fetch_mode=false fetch_loaded_before=strout end function public function fetch_loaded_after(filtertag) dim pos2,str pos2=instr(template,"{END " & filtertag & "}") if pos=0 then fetch_loaded_after="" exit function end if str=mid(template,pos2+len("{END " & filtertag & "}")) fetch_mode=true xt_process_template(str) fetch_mode=false fetch_loaded_after=strout end function public sub load_template(filename) Dim Filepath Filepath = Server.MapPath("templates\" & Filename) dim stream set stream=Server.CreateObject("ADODB.Stream") stream.CharSet=cCharset stream.type=2 stream.Open stream.LoadFromFile Filepath template = stream.ReadText stream.Close set stream=nothing end sub public function display_loaded(filtertag) dim str,pos1,pos2,pos,endpos str=template if filtertag<>"" then pos1=instr(1,template,"{BEGIN " & filtertag & "}") pos2=instr(1,template,"{END " & filtertag & "}") if pos1=0 or pos2=0 then _ exit function pos2 = pos2+len("{END " & filtertag & "}") str = mid(template,pos1,pos2-pos1) end if xt_process_template(str) end function public function display(filename) load_template(filename) xt_process_template(template) end function private sub print(str) if not fetch_mode then response.write str else strout = strout & str end if end sub public sub xt_process_template(str) ' parse template file tag by tag dim strlen,pos,section,var,message,endpos,endpos1,endtag,start start=1 strlen = len(str) dim continue do do continue=false pos = instr(start,str,"{") if pos=0 then print mid(str,start,strlen-start+1) exit do end if section=false var=null message=false if mid(str,pos+1,6)="BEGIN " then section=true elseif mid(str,pos+1,1)="$" then var=true elseif mid(str,pos+1,14)="mlang_message " then message=true else ' no tag, just '{' char print mid(str,start,pos-start+1) start=pos+1 continue=true exit do end if print mid(str,start,pos-start) if section then ' section endpos=instr(pos,str,"}") if endpos=0 then print_error("Page is broken") exit sub end if section_name=trim(mid(str,pos+7,endpos-pos-7)) endtag="{END " & section_name & "}" endpos1=instr(endpos,str,endtag) if endpos1=0 then print_error("End tag not found:" & endtag) exit sub end if section=mid(str,endpos+1,endpos1-endpos-1) start=endpos1+len(endtag) xt_getvar section_name,var if isnull(var) then continue=true exit do end if strbegin="" strend="" if vartype(var)=9 then strbegin=var("begin") strend=var("end") if vartype(var("data"))=9 then set var=var("data") else var=var("data") end if end if if vartype(var)<>9 then ' if section print strbegin xt_process_template(section) print strend else ' foreach section print strbegin dim keys1 keys1=var.keys() for each i in keys1 xt_stack.Add xt_stack.Count,var(i) if vartype(var(i))=9 then if var(i).Exists("begin") then _ print var(i)("begin") end if xt_process_template(section) xt_stack.Remove xt_stack.Count-1 if vartype(var(i))=9 then if var(i).Exists("end") then _ print var(i)("end") end if next print strend end if elseif not isnull(var) then ' display a variable or call a function endpos=instr(pos,str,"}") if endpos=0 then print_error("Page is broken") exit sub end if varparams = split(trim(mid(str,pos+2,endpos-pos-2))," ") var_name = varparams(0) start=endpos+1 xt_getvar var_name,var if isnull(var) then continue=true exit do end if if vartype(var)<>9 then ' just display a value print var else ' call a function if not var.Exists("func") then print_error("Incorrect variable value - " & var_name) exit sub end if if var.Exists("params") then set params=var("params") else set params=CreateObject("Scripting.Dictionary") end if dim paramkeys,key,paramindex paramindex=0 for each key in varparams params("custom" & paramindex) = key paramindex=paramindex+1 next Execute var("func") & " params" end if elseif message then endpos=instr(pos,str,"}") if endpos=0 then print_error("Page is broken") exit sub end if tag = trim(mid(str,pos+15,endpos-pos-15)) start=endpos+1 print my_htmlspecialchars(mlang_message(tag)) end if loop while true if not continue then _ exit do loop while true end sub ' BuildEditControl wrapper private sub xt_buildeditcontrol(params) dim mode dim fformat,field,id field=params("field") if params("mode")="edit" then mode=MODE_EDIT elseif params("mode")="add" then mode=MODE_ADD elseif params("mode")="inline_edit" then mode=MODE_INLINE_EDIT elseif params("mode")="inline_add" then mode=MODE_INLINE_ADD else mode=MODE_SEARCH end if if mode=MODE_ADD and postvalue("editType")="onthefly" then mode=MODE_INLINE_ADD id=postvalue("id") else id=params("id") end if fformat=GetEditFormat(field,"") if (mode=MODE_EDIT or mode=MODE_ADD or mode=MODE_INLINE_EDIT or mode=MODE_INLINE_ADD) and fformat=EDIT_FORMAT_READONLY then response.Write readonlyfields(field) end if if mode=MODE_SEARCH then fformat=editformats(field) end if BuildEditControl field,CStr(dbvalue(params("value"))),fformat,mode,params("second"),id end sub private sub xt_showchart(params) dim width,height width=700 height=530 if params.exists("custom1") then _ width = params("custom1") if params.exists("custom2") then _ width = params("custom2") %> <div id='<%=params("chartname")%>'> <noscript> <object id="<%=params("chartname")%>" name="<%=params("chartname")%>" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" width="100%" height="100%" codebase="http://fpdownload.macromedia.com/get/flashplayer/current/swflash.cab"> <param name="movie" value="libs/swf/Preloader.swf" /> <param name="bgcolor" value="#FFFFFF" /> <param name="allowScriptAccess" value="always" /> <param name="flashvars" value="swfFile=<% response.write "dchartdata.asp%3Fchartname%3D" & params("chartname") %>" /> <embed type="application/x-shockwave-flash" pluginspage="http://www.adobe.com/go/getflashplayer" src="libs/swf/Preloader.swf" width="100%" height="100%" id="<%=params("chartname")%>" name="<%=params("chartname")%>" bgColor="#FFFFFF" allowScriptAccess="always" flashvars="swfFile=<% response.write "dchartdata.asp%3Fchartname%3D" & params("chartname") %>" /> </object> </noscript> &lt;script type="text/javascript" language="javascript"> //<![CDATA[ var chart = new AnyChart('libs/swf/AnyChart.swf','libs/swf/Preloader.swf'); chart.width = '<%=width%>'; chart.height = '<%=height%>'; var xmlFile = 'dchartdata.asp%3Fchartname%3D<%=params("chartname")%>'; xmlFile += '%26ctype%3D<%=params("ctype")%>'; chart.setXMLFile(xmlFile); chart.write('<%=params("chartname")%>'); //]]> </script> </div> <% DoEvent params("chartname") end sub end class Sub print_error(str) Response.Write str End Sub sub xt_include(params) set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(Server.Mappath(params("file"))) then Server.Execute(params("file")) end if end sub sub xt_doevent(params) DoEvent "Call " & params("custom1") end sub sub xt_label(params) response.write GetFieldLabel(params("custom1"),params("custom2")) end sub sub xt_caption(params) response.write GetTableCaption(params("custom1")) end sub %>

Olá, Usei o AspRunner para criar um projeto com um BD do access. Executei todos os passos e funciona perfeito no localhost Como descubro o nome do FTP server para tranferir os dados? Flecha

Kuroi, O Macoratti tem um exemplo de ListView com consulta dinãmica, e eu coloquei a parte de consulta no meu, só que para variar começou os erros, pois ele usa um loop para carregar o list baseado no na consulta não estou conseguindo entender. Parece que eu consegui Descobri que no loop ele pega o campo no BD para colocar no Listview e tem que estar na mesma ordem os campos do BD com os do Listview, depois começou dar um erro de INVALID USE OF NULL e descobri que eram campos que estavam vazios no BD. Vou ficar rodando o projeto e testando e se voltar o erro eu retorno aqui. Abraços, Flecha

Olá, Tenho um cadastro de funcionários, e também as fotos dos funcionários salvas em um diretório c:\fotos e as fotos são nomeadas com o número do RG ex: 12345.jpg Como faço para ao abrir o form e carregar os dados ao mesmo tempo buscar a foto relativa ao RG que esta na tela do form Coloquei um objeto Image no form e renomeei como ImgFoto como faço para esse objeto ir buscar a foto ? já consegui mostrar uma foto dando o nome conforme linha abaixo Dim caminho As String caminho = "c:\dird\fotos\" Já resolvi, ficou assim On Error GoTo ERRO1 Dim caminho As String Dim varRG As String varRG = Me.txtRg.Text caminho = "c:\dird\fotos\" ImgFoto.Picture = LoadPicture([caminho] & [varRG] & ".jpg") Exit Sub ERRO1: ImgFoto.Picture = LoadPicture([caminho] & "BRASAOSP.JPG") Flecha

Olá, Tenho um formulário que contém um listView (lvwCustomer) e vários (23) Textbox para receber os dados do listview quando a linha do listview for clicada. Quando o form é aberto o listview es os box são carregados pela sub abaixo: Private Sub LoadCustomerListView() 'Carrega o listview '----------------------------------------------------------------------------- Dim strSQL As String Dim objCurrLI As ListItem Dim strcep As String Dim strPhone As String Dim strPhoneCel As String strSQL = "SELECT NOME" _ & " , RG" _ & " , ENDEREÇO" _ & " , cidade" _ & " , estado" _ & " , cep" _ & " , TELRES" & ", TELCEL" _ & " , CPF" _ & " , Bairro" _ & " , Nacionalidade" _ & " , Naturalidade" _ & " , Dtnato" _ & " , Pai" _ & " , Mae" _ & " , Posiçao" _ & " , Numero" _ & " , Complemento" _ & " , Civil" _ & " , Obsa" _ & " , Cargo" & " , Classe" _ & " , Exercicio" _ & " , CustID" _ & " FROM Customer " _ & " ORDER BY RG" _ & " , NOME" mobjCmd.CommandText = strSQL Set mobjRst = mobjCmd.Execute lvwCustomer.ListItems.Clear With mobjRst Do Until .EOF strPhone = !TELRES & "" 'coloca PARENTESES nos dois primeiros digitos e hifen If Len(strPhone) > 0 Then strPhone = "(" & Left$(strPhone, 2) & ") " _ & Mid$(strPhone, 4, 4) & "-" _ & Right$(strPhone, 4) End If '-------------------------------------------------------------------------- strPhoneCel = !TELCEL & "" If Len(strPhoneCel) > 0 Then strPhoneCel = "(" & Left$(strPhoneCel, 2) & ") " _ & Mid$(strPhoneCel, 4, 4) & "-" _ & Right$(strPhoneCel, 4) End If strcep = !cep & "" If Len(strcep) > 0 Then strcep = "(" & Left$(strcep, 5) & ")" _ & Mid$(strcep, 4, 5) & "-" _ & Right$(strcep, 3) End If '------------------------------------------------------------------------- ' Set objCurrLI = lvwCustomer.ListItems.Add(, , !nome & "", , "Custs") objCurrLI.SubItems(mlngCUST_RG_IDX) = !RG & "" objCurrLI.SubItems(mlngCUST_ENDEREÇO_IDX) = !ENDEREÇO & "" objCurrLI.SubItems(mlngCUST_cidade_IDX) = !cidade & "" objCurrLI.SubItems(mlngCUST_ESTADO_IDX) = !estado & "" objCurrLI.SubItems(mlngCUST_cep_IDX) = !cep & "" objCurrLI.SubItems(mlngCUST_CPF_IDX) = !CPF & "" objCurrLI.SubItems(mlngCUST_Bairro_IDX) = !Bairro & "" objCurrLI.SubItems(mlngCUST_Nac_IDX) = !Nacionalidade & "" objCurrLI.SubItems(mlngCUST_Nat_IDX) = !Naturalidade & "" objCurrLI.SubItems(mlngCUST_Nasc_IDX) = !Dtnato & "" objCurrLI.SubItems(mlngCUST_Pai_IDX) = !Pai & "" objCurrLI.SubItems(mlngCUST_Mae_IDX) = !Mae & "" objCurrLI.SubItems(mlngCUST_Pos_IDX) = !Posiçao & "" objCurrLI.SubItems(mlngCUST_Num_IDX) = !Numero & "" objCurrLI.SubItems(mlngCUST_Compl_IDX) = !complemento & "" objCurrLI.SubItems(mlngCUST_Civ_IDX) = !Civil & "" objCurrLI.SubItems(mlngCUST_TELRES_IDX) = strPhone objCurrLI.SubItems(mlngCUST_TELCEL_IDX) = strPhoneCel objCurrLI.SubItems(mlngCUST_Obs_IDX) = !Obsa & "" objCurrLI.SubItems(mlngCUST_Combo2_IDX) = !Cargo & "" objCurrLI.SubItems(mlngCUST_Combo3_IDX) = !Classe & "" objCurrLI.SubItems(mlngCUST_Combo1_IDX) = !Exercicio & "" objCurrLI.SubItems(mlngCUST_ID_IDX) = CStr(!Custid) .MoveNext Loop End With With lvwCustomer If .ListItems.Count > 0 Then Set .SelectedItem = .ListItems(1) lvwCustomer_ItemClick .SelectedItem End If End With Set objCurrLI = Nothing Set mobjRst = Nothing End Sub Eu quero colocar uma variável em um novo TextBox para quando for digitado uma letra nele o listview mostra o primeiro registro com a letra e se eu digitar outra ele vai filtrando para a seqüência da próxima diminuindo as coincidências no listview. Alguém pode me ajudar no código ? Flecha

Tenho um projeto tirado de um livro, um cadastro ou agenda. Ele tem 3 consultas, por nome completo, por inicio do nome e por qualquer letra do nome. para excluir eu tenho que localizar por nome completo pela intrução abaixo: Dado = InputBox("Informe o Nome Completo") 'Monta o comando SQL e o armazena na String Consulta_SQL Consulta_SQL = "SELECT * FROM Agenda_Eletronica " + _ "WHERE Nome = '" + Dado + "';" 'O comando SQL anterior pode ser traduzido como 'SELECIONE *(todos os registros) DA Agenda_Eletronica 'ONDE Nome IGUAL nome especificado. 'A variável Pesquisa (definida como sendo do tipo Recordset '(no início desta procedure) recebe o resultado da pesquisa 'SQL montada em Consulta_SQL . ' Set Pesquisa = Agenda.OpenRecordset(Consulta_SQL, dbOpenSnapshot) E se eu clicar em excluir funciona perfeito. Consulta por inicio do nome: Dado = InputBox("Informe a Primeira Parte do Nome ") 'Verifique a instrução SQL montada a seguir: Consulta_SQL = "SELECT * FROM Agenda_Eletronica WHERE Nome LIKE '" + Dado + "*' ORDER BY Nome;" 'Ela pode ser "traduzida" como da seguinte forma: 'SELECIONE todos os campos (*) DA Agenda_Eletronica ONDE Nome IGUAL 'nome especificado (seguido de asterístico). Set Pesquisa = Agenda.OpenRecordset(Consulta_SQL, dbOpenSnapshot) Mensagem = Consulta_SQL + (Chr(13) & Chr(10)) + _ "Apresentou total de registros = " + Str(Pesquisa.RecordCount) Se eu escolher o segundo nome achado e clicar excluir ele executa como se tivesse excluido mas não o faz, o registro continua lá no BD. e na outra consulta por qualquer letra do nome: Dado = InputBox(Mensagem) Consulta_SQL = "SELECT * FROM Agenda_Eletronica WHERE Nome LIKE '*" _ + Dado + "*' ORDER BY Nome;" 'A instrução SQL é aplicada, através da abertura de um Recordset. 'O resultado é armazenado na variável Pesquisa, declarada em 'General - Declarations. Set Pesquisa = Agenda.OpenRecordset(Consulta_SQL, dbOpenSnapshot) Também nãoexclui se eu clicar para excluir um registro retornado. Como solucionar, o que tem que mudar? Flecha