MaximoAccess

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

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 : 132
    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?



    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1845
    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 : 132
    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

    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1845
    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: Sab 19 Ago 2017, 15:42