Flecha

preciso de ajuda, Estava acertando meu projeto e testei tudo OK. mandei salvar o exe pelo VB sobre o anterior. Salvei uma cópia do projeto na pen drive. Rodei pelo VB abrindo o projeto da pen drive e dava erro durante a leitura de não localizar arquivos dos módulos e dava como diretorio um diretorio de uma antiga instalaçao no HD dentro do Arquivo de programas. Eu desisntalei os programas que estavão rodando em teste (instalados). Agora só consigo rodar pelo arquivo exe que esta dentro do projeto de criação (funciona normal com todas as alterações que fiz. Só que não consigo mais abri-lo pelo VB para incrementar ou corrigir. Não lê os arquivos. Flecha

Mr. Já acertei, sabe quando você confere, confere........ e não dá certo? Apaguei o form, a consulta e o relatório e comecei do zero, pronto, funcionou. Obrigado

Olá, No access 2003 tenho uma Tabela de veiculos e uma tabela de gastos. O campo comum entre elas é o patrimonio. Sendo que na tab veiculos não aceita duplicação e a tab gasto sim, pois um veiculo pode ter varios reparos no mês. Criei um form (Fo1) onde coloquei uma caixa de combinação com origem dos dados da tab veiculos pelo patrimonio. Dois controle activex date com nome de (Inicio) e outro com nome de (Termino) (que quando clicado aparece o calendário para escolha da data Inicial e outro para a data final) Um botão de comando que após preenchdo os campos chama um relatorio (rel_periodo) baseado em uma consulta (con_periodo). A consulta tem as duas tabs sendo da tab veiculo o patrimonio de da tab gasto todos os dados inclusive a data do reparo que vou usar na filtragem. no campo patrimonio o critério ficou assim: [forms]![fo1]![patrimonio] sendo o campo da tab veiculos. no camo data ficou assim: entre [forms]![fo1]![inicio] e [forms]![fo1]![termino] sendo esses campos da tab gastos Quero que no Form de escolha a pessoa escolha o patrimonio e as datas inicial e final e clique para gerar o relatorio com todos os reparos daquele veiculo no periodo escolhido. Problema Nos testes: Individual de cada objeto A consulta funciona certinho. Se eu clicar no relatorio ele abre a consulta pergunta as filtragens e funciona certinho. No form de escolha (automatizado) entram os campos (patrimonio e as datas) mas ao chamar o relatório vem em branco, como se não tivesse os dados. sera que fui claro ? alguém tem alguma dica? Flecha

Valeu ! O exemplo do Macedo funciona. Obrigado

Como uso esse comando replace ? dá um exemplo. Mesmo assim vou ver esse tópico do Macedo. Obrigado Flecha

Ai fera! Resolvido Obrigado

Kuroi, Não Maskedbox, gostaria de uma função em algum evento, pois se for maskedbox tenho que alterar em muitos lugares. Tem como? estou tentando isso: Private Sub TxtCpf_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 8, 48 To 57 ' BackSpace e numericos If Len(TxtCpf) = 3 Or Len(TxtCpf) = 7 Or Len(TxtCpf) = 11 Then TxtCpf.text = TxtCpf.text & "." SendKeys "{End}", True End If Case Else ' o resto é travado KeyAscii = 0 End Select End Sub Até funciona mas fica tudo com (.) ponto 101.101.101.11 Flecha

Olá, coloquei as linhas abaixo para validar o rg, cpf, data de nascimento. Private Sub TxtCpf_Validate(Cancel As Boolean) TxtCpf = Format(TxtCpf, "@@@.@@@.@@@-@@") End Sub São iguais para o RG e Data Acontece que na Inclusão funciona ao perder o foco. Quando entro para editar e o campo que aparece no texto que já foi formatado, ao perder o foco ele fica duplicado ex: 123..111..222--00 (duplica os caracteres de separação. O campo cpf e data de nascimento são do tipo texto e estão ficando duplicados e a data de nascimento fica errada Ex: 01//02//19 O campo RG é do tipo número não salva a formatação e quando recupera ao abrir o form esta sem formato 1234567. Como faço para resolver isso? Flecha

olá pessoal, Tenho um projeto que mostra os registros em um ListView e no mesmo formulário preenche os campos na tela normal, que quando você clica no lisview o registro em pauta fica nos campos do form para edição/consulta ou exclusão. Acontece que quando algum campo do registro estiver em branco (não foi preenchido) a list view não carrega e dáerro de não pode nulo. A rotina de preenchimento é essa: Public Sub preenche_lista() lvwCustomer.ListItems.Clear ClearCurrRecControls If rs.RecordCount = 0 Then Exit Sub While Not rs.EOF Set lst = lvwCustomer.ListItems.Add(, , rs(0)) For i = 1 To 23 lst.SubItems(i) = rs(i) *******O ERRO É NESSA LINHA******** Next i rs.MoveNext Wend If TxtProcurar = "" Then LoadCustomerListView ' Retorna o listview completo End Sub Tem como contornar isso mesmo com o campo vazio, pois toda vez que acontece tenho que abrir o a tabela do mdb para procurar qual campo esta vazio e já estou com 900 registros. Acontece também porque eu importo a tabela de outro BD e alguém deixou um campo em branco e ai vem o erro. Flecha

Quem pode ajuda? Tenho um projeto de cadastro funcionando normal. O arquivo mdb chama-se Cust.mdb e possui uma tabela chamada Customer (que é os funcionários ATIVOS) Só tem um Form de apresentação dos registros em um ListView onde seleciono o funcionário e os dados do listView populam os dados no form Nesse formulário tabém estão os comandos par Incluir/Alterar/Excluir/Cancelar/Gravar. Quando uma pessoa sai d empresa eu localizo e Excluo. Eu quero um novo comando que quando a pessoa for embora eu atualizo com a data de saida e salvo e uma nova tabela (morto). Essa nova tabela tem que ter um form para vizualisar os registros com opções de busca e uma reativação do funcionário na tabela dos Ativos, pois ele pode voltar para a empresa. O que vai acontecer no Ativo o cara sai para o Morto, depois tem qe exclui-lo do Ativo. Quando ele voltar para a empresa e estver no Morto Tem que recuperá-lo para o Vivo e Excluí-lo do Morto. Eu já criei o Formulário para o MORTO criando uma cópia do ATIVO com todas as procedures e botões e alterei onde aparecia a tabela dos ativos pela tabela dos Mortos e funcionou ao contento. Agora já tenho o ATIVO e o MORTO, só que funcionando autonomo cada um. No Formulário do Ativo criei um Botão que chama o Formulário do Morto, tudo OK. Falta Criar um botão no formulário do Ativo com a instrução que arquiva o Registro em pauta para o Morto e exclua do Ativo Criar um botão no formulário do Morto com a instrução que faça o inverso para recuperar o arquivo para o Ativo. Tem como ?

Pessoal, Antes das opiniões já consegui resolver. Na função InputBox ficou assim: strSenha = InputBox("Entre com o código anti-cópia do sistema!", "Código anti-cópia do Sistema", x) onde, o "x" no final da sentença é uma variável que esta armazenado o nº do HD, sendo assim na txtbox criada pela função Inputbox ficou com o valor de X como defaut, e ai o usuário ou cliente pode passar para o desenvolvedor para obter a contra senha e liberar o sistema. Obrigado Flecha

Olá, tenho um login no meu projeto que não deixa abrir o projeto em outra máquina. (foi copiado de exemplos da Net acho que tem até aqui no forum. Ele usa o nº do HD como parâmetro, se mudou o HD ele bloqueia e aborta. Essa primeira tela que é do login chama uma função em um móduloo que testa o numero do HD salvo na tabela ao abrir o form. Se o numero for o mesmo , tudo OK, abre o form de Usuarios para logar. Se não tiver numero do HD na tabela, abre uma tela de um INPUTBOX pedindo a senha que após digitada compara-a a uma interna e prossegue se for OK. Acontece que modifiquei a senha interna para variar com o nº do HD, então a cad n} de HD lido o módulo muda a contra senha interna e fica no aguardo da senha digitada para conferir. Problema: Eu preciso do nº do HD em algum lugar antes do INPUTBOX abrir para poder fazer o cálculo da contra senha que o módulo gerou ao ler o HD existente na máquina. O input box não aceita concatenar no Título a string ou o campo do HD salvo na abertura do form e o usuário (cliente) não sabe qual é o nº do HD. Como posso solucionar isso sem madar um outro programa que mostra o nº na tela. Flecha

Sempre usei consulta no banco pelo site em meu computador acontece que começõu pedir umas senhas que não pedia antes, o banco informa que não esta pedindo e que deve ser virus. No meu Notebook não pede esta normal. Já passei antivirus no outro e nada, já limpei os cooks e nada. Só aparece no site da Nossa Caixa No do Santander e Itau esta Normal. Como posso limpar isso ? Flecha

Leandro, Quando eu usar uma ocx no meu projeto todas as máquinas que eu colocá-lo terão que ter essa ocx? Ou seja , cada vez que colocar o programa tem que carregar a ocx junta? Flecha

Resolvido, Achei essa rotinazinha que faz um loop no form e resolve as textbox e combox. Private Sub Form_Load() If sisNivel <> 1 Then ' Inibe as TxtBox Dim ctr As Control For Each ctr In Forms("DIRD").Controls With ctr If .ControlType = acTextBox Or .ControlType = acComboBox Then .Enabled = False End If End With Next ctr End If Me.Txt_Procura.Enabled = True Me.AllowEdits = False Me.Comando91.Enabled = False ' ARQUIVAR Me.Comando124.Enabled = False ' INCLUIR 'CommandBars.ActiveMenuBar.Enabled = False End Sub Flecha

olá, Estava deixando os Textbox do meu form como Me.txtNome.enabled= false até ai tudo bem, quando chegou na combobox não deu não tem o membro (enabled) só aparece Value como possso proceder? Flecha

Oi Leonardo, Tentei executar o BD no Windows 7 e não consigo registrar a Wiaaut.dll. Pra tirar a foto. Será que você consegue solucionar ? O retorno ´que a DLL foi carregada mas o DLLrun...não sei o que não conseguiu executar ou registrar codigo do erro 0x8002801c OBS: no XP esta beleza. Flecha

Acho que no evento que você chama o outro form tem que colocar o destino certo, alguma coisa assim Formulário![seuform]![seubotao].visible=false Flecha

Leandro, Não deu certo, ele retorna que essas funções não podem ser usadas em eventos de Formulário ou relatórios. Eu andei mexendo e coloquei assim: Private Sub CPF_Exit(Cancel As Integer) If IsNull(Me!CPF) Or Me!CPF = "" Then 'MsgBox "Você precisa preencher este campo!" retorno = MsgBox("Você precisa preencher este campo!", vbOKCancel, "Todos os Campos são Obrigatórios") 'Cancel = True 'Cancela o evento. If retorno = 1 Then Cancel = True Else SendKeys "{ESC}" SendKeys "{UP}" End If Exit Sub End If End Sub Tá quase, se clicar em cancelar ele abandona o campo criticado mas esta indo para o proximo campo. Tinha que fazê-lo voltar para o primeiro campo do form. Engraçado que no primeiro campo que é o nome tem essa função Private Sub NOME_Exit(Cancel As Integer) Dim retorno As Integer If IsNull(Me!NOME) Or Me!NOME = "" Then retorno = MsgBox("Você precisa preencher este campo!", vbOKCancel, "Todos os Campos são Obrigatórios") 'Cancel = True 'Cancela o evento. If retorno = 1 Then Cancel = True Else DoCmd.GoToRecord , , acFirst End If Exit Sub End If End Sub E funciona certinho ,se clicar em cancelar ele vai para o primeir registro e fica como se tivesse abortado a inclusão. E ai ?

Oi Leandro, Não entendi ! Em nivel de formulario não possso inibir alteração ? Qual Texto você esta mandando enibir ? Seria os textos do formulário? O que eu notei é que s o cara localizar, trouxe os dados para tela, como esta aceitando edição, ele altera qualquer campo Ok. E se clicar ESC é desfeito as alterações e o formulário aberto não aceita mais edição. Posso usar essa saida fazer uma tecla ESC ser apertada após o aparecimento dos dados? Flecha

Olá, Mais uma correção que preciso de ajuda. No form tenho uma TextBox para localizar um registro e quando acha passa por essas linhas e exibe o registro: If IsNumeric(Txt_Procura) Then ' rs.Findfirst "[RG]='" & AlteraTel(Me.Txt_Procura) & "'" rs.FindFirst "[RG]Like '" & Me.Txt_Procura & "*'" Me.Bookmark = rs.Bookmark If rs.NoMatch Then 'rs.Findfirst "[tel2_cliente]='" & AlteraTel(Me.Txt_Procura) & "'" 'Me.Bookmark = rs.Bookmark 'If rs.NoMatch Then MsgBox "Não localizado este RG!!!" 'End If End If O form quando é aberto no modo de ir clicando em next, ultimo, primeiro etc... (só olhar os registros) não são editáveis pois ao abrir tem a função Me.AllowEdits = False no evento atual. Acontece que quando o usuário entra na pesquisa coloca o nome ele usa a função descrita acima e mostra o registro pelo Me.Bookmark = rs.Bookmark ele fica editável mesmo que o nivel do usuário não comporte edição. Como posso bloquear isso ? Flecha

Olá, Tenho o formulário principal com todos os dados do BD, tem um botão de comando INCLUIR que quan do clicado abre a inclusão no form e seta o focu para o primeiro TextBox. Existe nesse form 12 TextBox e estão com a função no evento ao sair: Private Sub DTNATO_Exit(Cancel As Integer) If IsNull(Me!DTNATO) Or Me!DTNATO = "" Then MsgBox "Você precisa preencher este campo!" Cancel = True 'Cancela o evento. End If End Sub Acontece que quando quero desistir de incluir não consigo sair do Formulário. Como faço para fechar o form no meio da inclusão a cada vez que ele pedir o preenchimento obrigatório? Flecha

Olá, Para quem interessar: Retirei de um exemplo da net. Coloquei no meu projet e funcionou, só estou tentando mudar para colocar a foto só de quem é o CHEFE, mas não estou conseguindo. É a parte que esta como comentário nos laços de Ifs do evento ao imprimir. Na Tabela deve existir o campo Foto (texto) e LocalFoto (texto) esse último irá armazenar o endereço da foto. Precisa criar um novo módulo para a função FILEEXISTS Onde a rotina vai verificar se o campo LocalFoto esta vazia ou se o arquivo da foto existe no diretório, em caso negativo ele coloca o arquivo “SemFoto.jpg” no local que não tem nenhuma foto. No Relatório deverá ser colocado uma Imagem com o nome de Foto e o campo da Tabela LocalFoto. No evento ao imprimir do Relatório coloquei o código abaixo: Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer) On Error Resume Next Dim emptyImg As String emptyImg = GetPathPart & "SemFoto.jpg" If IsNull(Me.LocalFoto) Then Me.Foto.Picture = emptyImg ElseIf Not FileExists(Me.LocalFoto) Then Me.Foto.Picture = emptyImg End If ' If Me.Sit = "CHEFE" Then ' Coloca foto só nos Chefes Me.Sit.Visible = True Me.Foto.Picture = Me.LocalFoto ' Else ' Me.Sit.Visible = False ' Me.Foto.Visible = False ' End If End Sub Módulo FileExists ...OBS no Meu ficou nomeado como ModFileExits Option Compare Database Option Explicit Public Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean 'Purpose: Return True if the file exists, even if it is hidden. 'Arguments: strFile: File name to look for. Current directory searched if no path included. ' bFindFolders. If strFile is a folder, FileExists() returns False unless this argument is True. 'Note: Does not look inside subdirectories for the file. 'Author: Allen Browne. http://allenbrowne.com June, 2006. Dim lngAttributes As Long 'Include read-only files, hidden files, system files. lngAttributes = (vbReadOnly Or vbHidden Or vbSystem) If bFindFolders Then lngAttributes = (lngAttributes Or vbDirectory) 'Include folders as well. Else 'Strip any trailing slash, so Dir does not look inside the folder. Do While Right$(strFile, 1) = "\" strFile = Left$(strFile, Len(strFile) - 1) Loop End If 'If Dir() returns something, the file exists. On Error Resume Next FileExists = (Len(Dir(strFile, lngAttributes)) > 0) End Function Public Function FolderExists(strPath As String) As Boolean On Error Resume Next FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory) End Function Public Function TrailingSlash(varIn As Variant) As String If Len(varIn) > 0 Then If Right(varIn, 1) = "\" Then TrailingSlash = varIn Else TrailingSlash = varIn & "\" End If End If End Function Public Function GetPathPart() As String Dim db As DAO.Database Dim strPath As String Dim intCounter As Integer Set db = CurrentDb strPath = db.Name db.Close Set db = Nothing For intCounter = Len(strPath) To 1 Step -1 If Mid$(strPath, intCounter, 1) = "\" Then Exit For End If Next intCounter GetPathPart = Left$(strPath, intCounter) End Function Flecha

Achei a Opção no menu ferramentas, form e relatorios, ativar configurações do Windows os botões ficam mais bonitos. Flecha

Neste link http://www.professorlar.com/contarcliques4...as/ciclista.zip Esta na página 5 do tópico. (resolvido) Inserir foto no formulario. Flecha