MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Posicionar formulário numa data determinada

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Posicionar formulário numa data determinada

    Mensagem  ilvecchio em Qua 25 Jun 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno em Qua 25 Jun 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
    [Você precisa estar registrado e conectado para ver esta imagem.]

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  ilvecchio em Sex 27 Jun 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno em Sex 27 Jun 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
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 04 Dez 2016, 20:19