Ir para conteúdo
Fórum Script Brasil

Leandro Abbade

Moderadores
  • Total de itens

    502
  • Registro em

  • Última visita

Tudo que Leandro Abbade postou

  1. Boa tarde amigo, Tente algo assim: if me.caixa1 = 34 then me.caixa2.enabled = true else me.caixa2.enabled = false endif Tente adaptar as suas necessidades.
  2. Boa noite, Navegando pela NET encontrei isso: Dim Statos As String Dim Nivel As String Statos = DLookup("Statos", "TBUsuario") Nivel = DLookup("IDNivel", "TBUsuario") If Statos = -1 And Nivel = 4 Then Me.NovoComando13.Visible = False Me.Comando206novoresp.Visible = False Me.Comando207novoresp1.Visible = False Me.Comando208novorep2.Visible = False Me.Comando209novorep3.Visible = False Me.SalvarComando14.Visible = False Me.ExcluirComando15.Visible = False Me.AllowEdits = False MsgBox "Atenção, acesso somente para leitura!" ElseIf Statos = -1 And Nivel = 3 Then Me.NovoComando13.Visible = True Me.Comando206novoresp.Visible = True Me.Comando207novoresp1.Visible = True Me.Comando208novorep2.Visible = True Me.Comando209novorep3.Visible = True Me.SalvarComando14.Visible = True Me.ExcluirComando15.Visible = True Me.AllowEdits = True Tente adaptar as suas necessidades.
  3. Boa noite amigo, Veja este exemplo: http://www.esnips.com/doc/95d9a3ab-69af-4e...s-Texto-Via-VBA
  4. Boa noite Flecha, É uma consulta baseada no form ou um formulario de inclusão/edição? Tente usar VISIBLE
  5. Boa noite amigo, Tem um parceiro meu que fez este sisteminha e faz controle de acesso. Veja se ajuda: http://www.professorlar.com/contarcliques4...as/ciclista.zip
  6. Boa noite amigo, Seja bem vindo a família Script Brasil. Entre no meu site, e dê uma olhada em dicas e sistemas, talvez encontre o que procura. Um grande abraço
  7. Bom dia amigo, Você já dividiu o banco de dados, em back-end -- front-end? Eu costumo pegar o usuário logado na rede do windows e faço a permissão de acordo com o usuário. No meu site tem alguns exemplos.
  8. Bom dia amigo, Entre no meu site e encontrará algumas dicas e sistemas que trabalha com controle de login. Eu costumo pegar o usuário logado no computador, através deste exemplo: http://www.professorlar.com/contarcliques3...rio_da_rede.zip
  9. Bom dia parceiro, Tente algo assim: If UserName = "fulano" Then Me.Texto1.Enabled = False Else Me.Texto1.Enabled = True End If
  10. Bom dia amigo Flecha, Tente assim: DoCmd.SetWarnings False DoCmd.RunCommand acCmdClose ou assim: DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunCommand acCmdClose ou assim: DoCmd.SetWarnings False DoCmd.RunCommand acCmdDelete DoCmd.RunCommand acCmdClose Não testei, mas acredito que força a saída da inclusão.
  11. Bom dia amigo, Entre no meu site, na área de dicas, e encontrará vários exemplos. Bom dia amigo, Tente colocar o título para sua dúvida de acordo com o que deseja: vincular combo ou algo parecido para não violar as regras do fórum. 3.6 É proibida a abertura de tópicos com títulos como "Socorro", "Ajuda", "Urgente", etc, ou com títulos que não descrevam a dúvida, como "Uma dúvida simples", "Alguém pode me ajudar?", "Dúvida de Iniciante", etc. Tópicos assim serão editados sem aviso prévio.
  12. Leandro Abbade

    Media de Aluno

    Meus parabéns Alexandre por não responder por MP. Amigo Fagundes tente tirar sua dúvida somente pelo fórum, pois sua dúvida pode ser de outras pessoas. Um abraço a todos e espero que esta dica do amigo Alexandre lhe ajude a resolver seu problema.
  13. Bom dia, Entre no meu site e verá algumas apostilas, dicas e sistemas prontos.
  14. Bom dia amigo, Veja: http://www.expertaccess.com.br/forumnew/fo...ts.asp?TID=5749
  15. Boa noite, Obrigado pelo retorno.
  16. Boa noite amigo, Veja este exemplo: http://www.4shared.com/file/127997363/3ec1cec5/bd1.html Não exqueça de registrar a wiaaut.dll como indicado neste post http://www.access-programmers.co.uk/forums...ad.php?p=841207
  17. Bom dia amigo, No access 2007 --> vá em 'ferramentas de banco de dados' --> 'acessar banco de dados'. Quando você dividir o banco de dados já será feito o vinculo. No back-end ficará as tabelas e no front-end os formulários, consultas etc... O front-end terá em todas as maquinas que desejar, e o back-end ficará no servidor para as maquinas acessarem.
  18. Boa tarde amigo, Veja este exemplo: http://www.professorlar.com/contarcliques3...s/contarcar.zip
  19. Bom dia amigo, Evite dar "up" nos tópicos. 3.8 Não é permitida a postagem de mensagens com a finalidade de manter o tópico no início da lista (up), nem de mensagens que não se refiram ao assunto do tópico (flood). Caso isso ocorra, as mensagens serão excluídas e os autores, advertidos. Tente adaptar as suas necessidades. Crie um módulo: Function ExibeRec(frmNome As Form) On Error Resume Next Dim rs As DAO.Recordset Set rs = frmNome.RecordsetClone ' Vai para o último registro ' para forçar o RecordCount. rs.MoveLast ' Retorna o ponteiro p/ o registro atual. rs.Bookmark = frmNome.Bookmark If (Err <> 0) Then ExibeRec = rs.RecordCount Else ExibeRec = rs.RecordCount End If End Function Chame assim: =ExibeRec(Formulários!frm_IniciarVendaTodos)
  20. Bom dia amigo, Crie um novo BD e importe tudo! Acredito que resolva
×
×
  • Criar Novo...