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]Posicionar formulário numa data determinada

    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    [Resolvido]Posicionar formulário numa data determinada Empty [Resolvido]Posicionar formulário numa data determinada

    Mensagem  ilvecchio 25/6/2014, 18:46

    Buenas!
    Não encontrei o que preciso.
    Tenho um formulário FormAgenda cuja origem é uma consulta baseada na TabRegistrosAgenda e um FormCalendario (é um controle calendário).
    A partir do FormAgenda, abro o FormCalendario. Neste seleciono uma data qualquer e clico no botão BtUsarData:

    1) crio o registro com essa data (AgendaData) na TabRegistrosAgenda;
    2) posiciono o FormAgenda na data escolhida (aqui está o problema)

    Os códigos que encontrei são para abrir o formulário num registro (no caso, data) específico. Porém o formulário já está aberto (FormAgenda).

    Alguém tem uma solução?



    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Posicionar formulário numa data determinada Empty Re: [Resolvido]Posicionar formulário numa data determinada

    Mensagem  Fernando Bueno 25/6/2014, 19:05

    Boa tarde, não consegui entender muito bem o que pretende, poderia disponibilizar

    o banco para entender-mos melhor?


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Posicionar formulário numa data determinada 16rzeq
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    [Resolvido]Posicionar formulário numa data determinada Empty Re: [Resolvido]Posicionar formulário numa data determinada

    Mensagem  ilvecchio 27/6/2014, 16:16

    Buenas!
    Resolvido.
    Adaptei este código da Ajuda do access, para localizar a posição do registro (AgendaData):

    Sub AbsolutePositionX()

    Dim dbsNorthwind As Database
    Dim rstEmployees As Recordset
    Dim strMessage As String

    Set dbsNorthwind = OpenDatabase("Northwind.mdb")
    ' AbsolutePosition only works with dynasets or snapshots.
    Set rstEmployees = _
    dbsNorthwind.OpenRecordset("Employees", _
    dbOpenSnapshot)

    With rstEmployees
    ' Populate Recordset.
    .MoveLast
    .MoveFirst

    ' Enumerate Recordset.
    Do While Not .EOF
    ' Display current record information. Add 1 to
    ' AbsolutePosition value because it is zero-based.
    strMessage = "Employee: " & !LastName & vbCr & _
    "(record " & (.AbsolutePosition + 1) & _
    " of " & .RecordCount & ")"
    If MsgBox(strMessage, vbOKCancel) = vbCancel _
    Then Exit Do
    .MoveNext
    Loop

    .Close
    End With

    dbsNorthwind.Close

    End Sub


    Em seguida, e após salvar a posição numa variável (VPosicao), usei o comando:


    DoCmd.GoToRecord acDataForm, "FormAgenda", acGoTo, VPosicao

    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Posicionar formulário numa data determinada Empty Re: [Resolvido]Posicionar formulário numa data determinada

    Mensagem  Fernando Bueno 27/6/2014, 19:27

    Legal que bom que deu tudo certo.

    Agradecemos o retorno!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Posicionar formulário numa data determinada 16rzeq

    Conteúdo patrocinado


    [Resolvido]Posicionar formulário numa data determinada Empty Re: [Resolvido]Posicionar formulário numa data determinada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 06:37