serbar

preciso fazer esse tipo de impressão em um formulário no formato A4. como calcular a posição correta de impressão?

Estou tentando fazer um select de campos que estão definidos como Numero, tamanho do campo Duplo e formato Padrão, com 2 decimais. emas dá erro: dá Tipo Incompatível... ou a virgula da casa decimal confundi-se com a virgula na instrução SQL... minha isntrução: strSQL = "Select * from lancamentos where valor = " & Me.valorinf onde valorinf é o campo do formulário. Esse campo está definido como formato Padrão com 2 decimais Alguém pode me ajudar?

nâo funciona. O que já li sobre o assunto dizia que era possivel abrir o arquivo, passando a senha e depois não seria mais necessário informa-la mais. consigo fazer o opendatabase informando a senha mas quendo tento fazer um select no banco sempre dá "senha errada". alguém já fez isso?

Uso um banco com senha. No evento Ao Abrir do formulário inicial coloquei as instruções caminho = CurrentProject.path & "\" & "Sifiger_Dados" Set dbs = OpenDatabase(caminho, False, False, ";pwd=123456") e o acesso se deu normalmente. Quando tento abrir um formulário cuja origem dos dados é uma tabela , dá erro e uma mensagem de erro "senha inválida". A mesma coisa quando tento executar um relatório nas mesmas condições. Como resolver isso?

Obrigado, Leandro !

Como re-iniciar um campo autonumeração via VBA?

Pessoal, avancei um pouco nesse tópico mas ainda não resolvi Na verdade o erro está em outra parte: Na instrução Set dbs = OpenDatabase(caminho, False, False, ";pwd=123456") a senha é acita como correta. No entanto, quando vou fazer um acesso ao banco de dados e uso os comandos abaixo dá erro de senha Set dbs = CurrentDb() strSQL2 = "SELECT código, mes,ano FROM Empresa" Set rst2 = dbs.OpenRecordset(strSQL2) . Como resolver?

Estou usando a instrução Set dbs = OpenDatabase (caminho, False, False, "pwd=123456") para abrir meu banco de dados que é meu back-end. caminho especifica o path do BE e 123456 a senha e as 2 informações estão corretas. No entanto, quando executo o comando dá a mensagem "ODBC - falha na conexão com " e o conteúdo de caminho. Não uso ODBC pois o meu Front-End é uma aplicação Access tambem. Onde estou errado? Grato,

Na verdade queria resolver por VBAmas agradeço sua sugestão.

Quero corrigir meu banco que está dividido em Back-End e Front-End. Específicamente quero corrigir meu BE a partir do FE. Tentei usar a rotina abaixo mas dá erro "Erro reservado" quando executo a instrução CALL. ALLguem pode me ajudar? código: On Error GoTo erro Dim juntatudo As String Dim caminhodados As String Dim caminhobkp As String Dim db As DAO.Database Dim strAppPath As String strAppPath = CurrentProject.path caminhodados = strAppPath & "\" juntatudo = caminhodados & "Sifiger_Dados.mdb" caminhobkp = caminhodados & "bkpSifiger.mdb" Set db = DBEngine.Workspaces(0).OpenDatabase(juntatudo, True, False) db.Close Set db = Nothing Call Application.CompactRepair(juntatudo, caminhobkp) Kill juntatudo 'copia o arquivo compactado para a pasta do origem FileCopy caminhobkp, juntatudo Kill caminhobkp MsgBox "Correção Efetuada !" Exit Sub erro: MsgBox Err.Description Exit_Comando7_Click: Exit Sub Err_Comando7_Click: MsgBox Err.Description Resume Exit_Comando7_Click