Flecha

Olá, sou novato em Visual Studio 2010, acontece que peguei um programa ensinando como salvar o caminho da imagem no BD access, acontece que ao rodar o programa ele já dá a seguinte mensagem: O provedor'Microsoft.ACE.OLEDB.12.0' não esta registrado na máquina local.. Estou usando o Visual Studio 2010 e o Access 2010. Já baixei o AccessDatabaseEngine do 2007 do 2010 e rodei e continua o mesmo erro. Alguém pode me dar uma ajuda? Obrigado.

Olá, sou novato em Visual Studio 2010, acontece que peguei um programa ensinando como salvar o caminho da imagem no BD access, acontece que ao rodar o programa ele já dá a seguinte mensagem: O provedor'Microsoft.ACE.OLEDB.12.0' não esta registrado na máquina local.. Estou usando o Visual Studio 2010 e o Access 2010. Já baixei o AccessDatabaseEngine do 2007 do 2010 e rodei e continua o mesmo erro. Alguém pode me dar uma ajuda? Obrigado.

Olá, Não consigo mais usar mei IE Windos 7, pode colocar qualquer site na barra ele dá esse erro: Como posso resolver isso? Assinatura do problema: Nome do Evento de Problema: APPCRASH Nome do Aplicativo: IEXPLORE.EXE Versão do Aplicativo: 11.0.9600.16428 Carimbo de Data/Hora do Aplicativo: 525b664c Nome do Módulo de Falhas: IEShims.dll Versão do Módulo de Falhas: 11.0.9600.16476 Carimbo de Data/Hora do Módulo de Falhas: 529442ab Código de Exceção: c0000005 Deslocamento de Exceção: 000134d0 Versão do sistema operacional: 6.1.7601.2.1.0.256.1 Identificação da Localidade: 1046 Informações Adicionais 1: 1ba7 Informações Adicionais 2: 1ba7497b9d0b37b30e26f843b46b7d13 Informações Adicionais 3: 13ac Informações Adicionais 4: 13ac9bea7d88ca971639cd7f53ccbb80 Leia nossa declaração de privacidade online: http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0416 Se a declaração de privacidade online não estiver disponível, leia nossa declaração de privacidade offline: C:\Windows\system32\pt-BR\erofflps.txt

Olá Uso essa expressão em uma caixa de rexto desacoplada num relatório para testar e somar um campo Tipo Numérico =Soma(SeImed([Ref]=2;[Quantidade];0)) Ela verifica se ref = 2 e se for verdadeiro pega o campo quantidade para somar e vai para a próxima linha. Pergunta: Se o meu campo ref for TEXTO não funciona! Como fica a expressão para ref = TEXTO? Obrigado

Resolvi dessa forma: Coloquei o procedimento no subform Private Sub Form_Current() If Me.TipodeReco = "sem reconhecimento" Then Forms!formgeral.Form!Comando28.Enabled = False Else Forms!formgeral.Form!Comando28.Enabled = True End If Me.codVit.Enabled = False End Sub Valeu!

Mais uma barreira para mim! Tenho um formulário de nome FormGeral (principal), nele tem um botão de nome Comando28. No form principal também tem um subform de nome SubEntrevistado (subform) e neste subform um camo tipo caixa de combinação de nome TipodeReco com 1 coluna e as opções: Foto; Foto e retrato falado; Sem Reconhecimento. Preciso qe quando o campo do tipodereco do subform conter a opção "SEM RECONHECIMENTO" o botão de comando Comando28 do form principal (formGeral) fique como enabled=false e ser for outro texto ao navegar pelos registros do subform volte para True. Já tentei de várias formas e não consigo!

Olá, Estou usando a rotina abaixo em um botão para mnesclar os dados no Word, mas após criado o .Doc já quero abrí-lo para imprimir mas dá o erro na penultima linha, onde manda abrir : erro em tempo de Execução '91'. A variável do objeto ou a variável do bloco 'With' não foi definida. 'Imprime tudo certo sendo no Subform só o 1º Registro como Folha de Dados. 'pelo comando no FromPrincipal. Dim MiWord Dim MiDoc Dim Cambio Dim strAppPath As String strAppPath = Application.CurrentProject.Path Set MiWord = CreateObject("Word.Application") Set MiDoc = MiWord.Application.Documents.Open(CurrentProject.Path & "\Positivo.doc") Set Cambio = MiWord.ActiveWindow.Selection.Find With word Cambio.Execute "{numip}", False, , , , , , , , NumIP, 2 Cambio.Execute "{nome}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Nome, 2 Cambio.Execute "{numano}", False, , , , , , , , NumAno, 2 If Not IsNull(Me.NumFotoReco) Then Cambio.Execute "{numfotoreco}", False, , , , , , , , NumFotoReco, 2 End If Cambio.Execute "{nomec}", False, , , , , , , , NomeC, 2 Cambio.Execute "{rg}", False, , , , , , , , RG, 2 If Not IsNull(Me.NumFotoReco) Then Cambio.Execute "{numfotoreco}", False, , , , , , , , NumFotoReco, 2 End If Cambio.Execute "{delegado}", False, , , , , , , , Delegado, 2 Cambio.Execute "{Naturezadofato}", False, , , , , , , , NaturezadoFato, 2 Cambio.Execute "{numautores}", False, , , , , , , , NumAutores, 2 Cambio.Execute "{datadofato}", False, , , , , , , , DatadoFato, 2 Cambio.Execute "{data}", False, , , , , , , , Data, 2 Cambio.Execute "{horariodofato}", False, , , , , , , , HorariodoFato, 2 Cambio.Execute "{responsavel}", False, , , , , , , , Responsavel, 2 Cambio.Execute "{obs}", False, , , , , , , , OBS, 2 'Cambio.Execute "{entrev1}", False, , , , , , , , Entrev1, 2 Cambio.Execute "{numbo}", False, , , , , , , , NumBO, 2 Cambio.Execute "{localdofato}", False, , , , , , , , LocaldoFato, 2 Cambio.Execute "{responsavel}", False, , , , , , , , Responsavel, 2 If Not IsNull(Me.Natural) Then Cambio.Execute "{natural}", False, , , , , , , , Natural, 2 End If If Not IsNull(Me.Vulgo) Then Cambio.Execute "{vulgo}", False, , , , , , , , Vulgo, 2 End If If Not IsNull(Me.Pai) Then Cambio.Execute "{pai}", False, , , , , , , , Pai, 2 End If If Not IsNull(Me.Mãe) Then Cambio.Execute "{mãe}", False, , , , , , , , Mãe, 2 End If If Not IsNull(Me.Endereço) Then Cambio.Execute "{endereço}", False, , , , , , , , Endereço, 2 End If If Not IsNull(Me.Bairro) Then Cambio.Execute "{bairro}", False, , , , , , , , Bairro, 2 End If 'Cambio.Execute "{Docto}", False, , , , , , , , RG, 2 Cambio.Execute "{nome1}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Nome, 2 Cambio.Execute "{Docto}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Docto, 2 Cambio.Execute "{enderecoe}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!EnderecoE, 2 Cambio.Execute "{bairro1}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Bairro, 2 Cambio.Execute "{uf}", False, , , , , , , , Estado, 2 Cambio.Execute "{Fone}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Fone, 2 Cambio.Execute "{delegacia}", False, , , , , , , , Delegacia, 2 'Cambio.Execute "{image1}", False, , , , , , , , Foto, 2 MiWord.ActiveDocument.Bookmarks("image1").Select MiWord.Selection.InlineShapes.AddPicture FileName:="" & Forms!frm_entrevista!LocalFoto & "", LinkToFile:=False, SaveWithDocument:=True Call MiDoc.SaveAs(CurrentProject.Path & "\POSITIVA_" & Forms!frm_entrevista!Sub_Frm_Testemunha.Form!NumEntrevistado & ".doc") MiWord.Quit Set MiWord = Nothing Set MiDoc = Nothing Set Cambio = Nothing Call MiDoc.OpenFile(CurrentProject.Path & "\POSITIVA_" & Forms!frm_entrevista!Sub_Frm_Testemunha.Form!NumEntrevistado & ".doc") <----Nessa linha 'DoCmd.RunMacro "Mensagem de Final" End With End Sub Como posso corrigir esse erro ?

Olá, Preciso de ajuda se for possível: Tem como num mesmo botão de comando colocar duas funções (Editar e Gravar), ele aparece inicialmente com o Capition "Editar" quando clicado ele libera o form para edição e ao mesmo tempo o Capition passa para "Gravar" e quando clicar novamente ele grava as alterações e muda o Capition para "Editar"Novamenet.

Olá, Consegui! Era problema de como indicar o Form. Ficou assim: 'Move cada campo para o indicador definido no documento .ActiveDocument.Bookmarks("Nome").Select .Selection.Text = Trim(CStr(Forms!vitimasetestemunhas!Sub_Frm_Testemunha.Form!Nome)) <------------ .ActiveDocument.Bookmarks("Naturezadofato").Select .Selection.Text = Trim(CStr(Me.Natureza_do_Fato)) .ActiveDocument.Bookmarks("numautores").Select .Selection.Text = Trim(CStr(Me.NumAutores)) .ActiveDocument.Bookmarks("datadofato").Select .Selection.Text = Trim(Me.Data_do_Fato) .ActiveDocument.Bookmarks("horariodofato").Select .Selection.Text = Trim(CStr(Horario_do_Fato)) .ActiveDocument.Bookmarks("localdofato").Select .Selection.Text = Trim(CStr(Me.Local_do_Fato)) .ActiveDocument.Bookmarks("responsavel").Select .Selection.Text = Trim(CStr(Me.Responsavel)) .ActiveDocument.Bookmarks("obs").Select .Selection.Text = Trim(CStr(Me.OBS)) .ActiveDocument.Bookmarks("delegado").Select .Selection.Text = Trim(CStr(Me.Delegado)) 'Salva o arquivo gerado .ActiveDocument.SaveAs "C:\Word\" & Me.NumAno & "_Entrevista" & ".doc" Agora preciso contornar o erro que da quando a rotina acima não acha um campo no registro por estar em branco (vazio) e não é obrigatório, (Selection.Text = me.local, pois quando acontece trava o Word.doc. Gostaria que mesmo sem achar o campo ele continuasse a mesclar o documento.

Olá a todos, Volto aqui para tentar solucionar um barreira que não estou conseguindo passar. Estou criando um banco de dados onde armazeno dados de criminosos com fotos em uma tabela (só o caminho da foto). Em outra arquivo dados das solicitação de reconhecimento do Criminoso (Tabela Entrevistas) Em outra tabela arquivo os dados dos Entrevistados (Vitima ou Testemunhas) e pode ser mais de uma. Tenho um Form para as Entrevistas Form_Entrevista com um subForm com os dados dos Entrevistados (ligados por Nº da Entrevista) Estou tendo dificuldade para Imprimir os dados do desse Formulário para o Word pois o Nome do Entrevistado esta no SubForm e o Word não acha. Todos os dados for form principal vão para o papel sem problema, só o camo Nome que esta no sbform não vai. Como posso fazer essa relação, já tentei montar outro form alimentado com uma consulta entre as duas tabelas mas não deu certo. Poderia montar uma combo no form para pegar os nomes na tabela mas ai ela pega todos os nomes e não o que esta relacionado ao caso. Espero que entendam o que quero fazer para me ajudar. Abraços a todos.

bem, agora ele dá o erro 2001 Você cancelou a operação anterior. É o exemplo que vem no livro Access & VBA 2003. Form Menu de Controle.

Srá que alguém acha o erro nessa frase abaixo TxtUser = DLookup("[Nome]", "Tbl_Usuarios", "[iduser] = " & DLookup("[iduser]", "Tbl_Conf")) Erro de sintaxe (operador faltando) na expressão de consulta '[iduser]='.

Olá, Estou com um problema na expressão abaixo, em um form com um campo de entrada "numerocad" e um botão de OK que testa o BD para ver se existe o nº digitado, se existir ele abre para verificação se não existir ele abre um form para cadastrá-lo, até ai tudo bem! O que acontece é se eu clicar Ok com o campo vazio dá o erro 3075 informando erro de sintaxe (operador faltando) 'Numero =' Como possso resolver Private Sub Comando2_Click() If IsNull(DLookup("Numero", "Material", "Numero = " & NumeroCad)) Then DoCmd.OpenForm "frmMaterialCadastro" Else MsgBox "Esse Nº já está Cadastrado, Verifique! vou abrir ele...." & Chr(13) & Chr(10) & _ Chr(10) & "No formulário que abrir, confira que ele já esta Cadastrado" & Chr(13) & Chr(10) & _ Chr(10) & "Se precisar ALTERAR algo faça nele e depois Feche o Formulário", , "Ops.... Esse Nº de Material já tem!!!" 'DoCmd.Close acForm, Me.Name DoCmd.OpenForm "Material verificação", , "Material", "Numero = " & NumeroCad DoCmd.Close acForm, Me.Name End If End Sub

Obrigado, resolvi hoje. Achei para download um programinha que registra a dll e inclui no registro. Já esta funfando.

Olá a todos, Troquei o HD e instalei novamente o Officce 2003. No anterior quando eu ia editar uma linha de comando no VBA eu podia rodar o scroll do mouse que as linhas subiam ou desciam. Na nova instalação isso não acontece e eu não me lembro como fiz. Não lembro se foi DLL .