MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]combo box receber foco

    avatar
    kadhu
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 734
    Registrado : 25/04/2012

    [Resolvido]combo box receber foco Empty combo box receber foco

    Mensagem  kadhu 9/2/2013, 02:01

    Boa noite ,preciso de um help ,no evento ao abrir de um frm ,pq não
    aceita ?eu ponho ele acima ou abaixo do sound ,,mas da erro !!!segue o
    cód
    Como deveria inserir ao abrir ,para não dar erro!!
    Das duas formas da erro .O cód original está assim :

    Private Sub Form_Open(Cancel As Integer)
    Playsound ("C:\WINDOWS\Media\ding.wav")

    Obrigado

    Private Sub Form_Open(Cancel As Integer)
    Playsound ("C:\WINDOWS\Media\ding.wav")
    Me.cbocliente.SetFocus

    End Sub


    Private Sub Form_Open(Cancel As Integer)
    Me.cbocliente.SetFocus
    Playsound ("C:\WINDOWS\Media\ding.wav")


    End Sub
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]combo box receber foco Empty Re: [Resolvido]combo box receber foco

    Mensagem  Leandro 9/2/2013, 14:04

    Tenta DoCmd.GoToControl "cbocliente"

    avatar
    kadhu
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 734
    Registrado : 25/04/2012

    [Resolvido]combo box receber foco Empty Re: [Resolvido]combo box receber foco

    Mensagem  kadhu 9/2/2013, 14:56

    Agora deu certo aqui .Obrigado Leandro

    Private Sub bt_salvar_Click()
    If MsgBox(" Deseja salvar esse serviço ?", vbOKCancel + vbDefaultButton1 + vbInformation, "AVISO") = vbOK Then
    DoCmd.Save ' salva o registro
    DoCmd.RunCommand acCmdRefresh ' atualiza a tabela e o formulario
    DoCmd.Close
    DoCmd.OpenForm "FormCliente"
    Playsound ("C:\WINDOWS\Media\ding.wav")
    DoCmd.GoToControl "cbocliente"

    End If


    End Sub
    avatar
    kadhu
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 734
    Registrado : 25/04/2012

    [Resolvido]combo box receber foco Empty Re: [Resolvido]combo box receber foco

    Mensagem  kadhu 9/2/2013, 16:08

    Grato!
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]combo box receber foco Empty Re: [Resolvido]combo box receber foco

    Mensagem  Leandro 11/2/2013, 12:11

    Obrigado pelo retorno.


    Conteúdo patrocinado


    [Resolvido]combo box receber foco Empty Re: [Resolvido]combo box receber foco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 06:53