davidctba

Leandro, deu certo aqui.... Obrigado mais uma vez....

Ola Alexandre, essa sua dica me valeu em partes, agora ele pede para confirmar a inclusão do item digitado a lista.... mas o que eu preciso é não permitir que o usuario digite no combo e sim que ele escolha um dos itens pre estipulados.... como faço? OPbrigado

Olá a todos.... Gostaria de uma pequena ajuda no seguinte: Tenho em meu Form um combo box chamado "defeito", esse combo tem uma lista com os defeitos já padronizado seguindo os padrões que a empresa me pediu.... O que eu gostaria de sabe é: Existe um meio de protejer esse combo contra digitação, obrigando o funcionário a escolher um dos defeitos citados na lista? Hoje, se eu clicar no combo, e digitar algo, ele aceita... e é esse "bug' que eu quero corrigir... Obrigado; David

Cara... mais um vez obrigado... deu certinho aqui !!! :D

ok Leandro, deu certo aqui,,,, obrigado.... :D

sim.. pensei em usar mascara para limitar o número de caracteres digitados, porem o campo do formulario é numerico... e mascara so da para usar em campos tipo texto ou data certo? ou eu estou fazendo errado?

MrMALJ, usei e não funcionou ai a segunte alteração no código: DE: If not IsNull(DLookup("[pedido]", "pedidos", "pedido=" & Me.pedido)) Then PARA: If IsNull(DLookup("[pedido]", "pedidos", "pedido=" & Me.pedido)) Then removi somente o "NOT" e voltou a funcionar, porem se eu ele esta conflitando com uma outra linha de codigo que estou usando para limitar os caracteres digitados em apenas 4.. comando: LimitFieldSize KeyAscii, 4 -> esse esta no evendo "Ao pressionar tecla" e o de verificação de pedidos esta no evento "Ao perder o foco" agora esta assim, se eu uso o comando para limitar o número de caracteres digitados, ele não funciona a verirficação, como faco para resolver isso? sera que eu estou colocando os codigos nos eventos errados??? obrigado..

Ola senhores, estou criando uma rotina para verificação se existe ou não o pedido cadastrado na tabela... Tenho um formulario chamado "Defeitos" onde ele pega alumas informações da tabela "Pedidos" e os mesmos são salvos apos sofrerem as devidas atualizações na tabela "Defeitos"... Bom ate ai esta OK, a dificuldade que estou enfrentando talvez pela minha inexperiencia com VBA é o seguinte: preciso criar uma rotina de verificação para que quando o usuário digite o número de pedido no campo, seja verificado a existencia dele na Tabela "Pedidos", caso não ai ele dispara uma menssagem informando e cancela a operação... PS: Tabela chama-se "Pedidos" / campo chama-se "Pedido" E seria interessante colocar em qual evento? codigo: If Me.pedidos.pedido = Me.pedido Then MsgBox "Pedido não cadastrado no Sistema.", vbCritical, "Violação do Sistema" DoCmd.CancelEvent Me.Undo End If mais uma vez obrigado....

Leandro, obrigado mais uma vez pela ajuda.... mas nos exemplos que encontrei a linha de comando so exporta se for consulta... gostaria de saber se é possivel exportar a tabela inteira.... ou se vou ter que criar uma consulta que traga todos os dados da tabela para dai sim exportar? Obrigado...

Olá a Todos.... Estou concluindo a minha aplicação e surgiu a necessidade de criar um botão de exportação dos dados para Excel, a principio sera uma exportação simples onde ele pegara todos os dados da base e cria-ra um arquivo excel com eles.... problema que não sei nem por onde começar.... alguém pode me ajudar??? desde já agradeço....

Fala cara beleza... seguinte não sei onde esta a logica do negocio.. mas o importante é que funcionou.... o que eu fis foi o seguinte, eu apenas renomeei o subformulario e ele funcionou... :D obrigado mais uma vez pela ajuda...

Sim... pois se eu for mas propriedades do controle de guia e deixar enabled = true, eu concigo editar os campos e salvar... porem no codigo esta dando esse probleminha.... estranho ne?

Bom o foco não esta no objeto a ser ocultado... eu to mo o cuidado de colocar o foco onde é de interesse sempre antes de fazer qlqr outro procedimento.... para melhor entendimento, em anexo a imagem do erro..

MrMALJ, meu codigo esta dando um erro estranho, creio que seja uma coisa simples, mas pela minha falta de conhecimento em VBA torna-se meio complidacinho..... abaixo segue meu codigo para você dar uma olhada.... if Me.senha = senha_A Then 'limpa o campo senha Me.senha = Vazio 'libera os campos para adição pedido.Enabled = True quantidade.Enabled = True Data_Inicio.Enabled = True 'habilita todas as guias do painel Me!SUB_Linha_do_Tempo!Gabinete.Enabled = True -> aqui esta apontando o erro e quando coloco o cursor ensima ele me traz a menssagem "RTL_AcessoPermitido.visible = falso" mesmo que eu inverta a posisao do RTL_Acesso, para habilitalo antes de habilitar a guia, ele traz o mesmo erro :( 'habilita os botões Btn_Novo.Enabled = True Btn_Salvar.Enabled = True Btn_Cancelar.Enabled = True Btn_Excluir.Enabled = True 'mostra o rótulo da menssagem Rtl_AcessoPermitido.Visible = True 'desabilita o campo e o botao de identificacao Me.senha.Visible = False Me.Btn_Permissao_Acesso.Visible = False 'coloca o foco no Botao Novo Btn_Novo.SetFocus end if

Olá Leandro tudo bem.... seguinte dei uma olhada no sistema BIJU que você pediu, porem não resolveu, pois eu estou trab com as guias no sub-formulario e não no form principal entende... A minha intenção de trab com guias é o seguinte... como no processo eu tenho varios estagios, eu coloquei cada estagio como sendo uma guia... onde ao usuario logar neste formulario o rotina de verificacao identifica qual parte do processo ele executa e libera somente a guia correspondente... e é ai que entra a questao, meu sub-form tem as guias e apartir do form principal eu não concigo ativar ou desativar essas guias :( se puder me ajudar...

cara não deu certo o comando... (me.gabinete.seuSubFormulario.enabled=false) quando digita "ME. ele traz somente o SUBFORMULARIO......" porem se eu coloco "ME.SUBFORMULARIO. ele abre o menu e opcoes porem no mesmo não tem as "abas" do meu controle de guia... como eu faço? :( obrigado

Ola MrMALJ, apos um tempo afastado, volto as minhas atividades normais... Minha dificuldade é a seguinte, como eu faço para meu botao NOVO deixar meu controle de guia enabled=true.... sendo que o mesmo esta no meu sub-formulario? tenho no meu controle guia as seguintes abas: gabinete, montagem, tecnica, embalagem... no meu form load o controle guia esta enabled = false, apos o usuario logar com sua matricula, ele libera somente a aba que compete aquele usuario a usar.... usei o seguinte comando e não deu certo.... Me.Gabinete.Enabled = True como eu faço para resolver isso?

Ola MrMALJ, apos um tempo afastado, volto as minhas atividades normais... informo que concegui fazer o formulario usando sub-formulario... porem agora a minha dificuldade é a seguinte, como eu faço para meu botao NOVO deixar meu controle de guia enabled=true sendo que o mesmo esta no meu sub-formulario?

MrMALJ, estou fazendo como você me pediu, usando subformulario.... em anexo esta a imagem do meu formulario que esta funcionando na empresa sem as alterações pra você ver se nele tem como mudar algo ou se terei que refazelo....

:huh: alguém pode me ajudar por favor.. :huh:

pois é amigo ta complicado meu lado aqui... esse form eu pego dados da tabela TBL_Pedidos, atualizo e os salvo na TBL_LinhaTempo..... pois bem é justamente esse processo de salvar na TBL_LinhaTempo que esta dando problema... a minha combo ela é uma combo de pesquisa, onde eu acho o pedido e ela completa os campos "data" e "quantidade".... o restante do campos o usuario atualiza na hora, conforme for acabando os passos do processo.... preciso fazer isso para saber quanto tempo cada estapa do processo esta levando para finalizar.... espero ter conceguido expor o que eu preciso resolver.... mas, qualquer duvida por favor pergunte.... PS: eu gostaria de anexar a imagem do meu form para facilitar o entendimento, como eu faço? mais uma vez obrigado...

Se alguém puder me ajudar, fico grato....

Amigo... concegui fazer a 'consulta acrescimo', porem não estou conceguindo utiliza-la para criar um formulario novo e nem para editar o que já tenho pronto.... como faco?

Olá RRH, esse seu código so ira funcionar se o campo NR da sua tabela estiver como numero.... Abaixo eu mando um trexo do meu codigo de busca rapida em ComboBox que funciona para campos Texto na tabela... Me.quantidade = DLookup("quantidade", "pedidos", "cod =" & pedido_Pedidos) Me.data = DLookup("data", "pedidos", "cod =" & pedido_Pedidos) espero ter ajudado...

OK Leandro... estou lendo o artigo e fazendo alguns testes aqui.... Pergunto: existe a possibilidade de fazer esse procedimento de alguma outra maneira? por exemplo usando o SELECT?