Results 1 to 12 of 12

Thread: Calendar (A2k)

  1. #1
    Silver Lounger
    Join Date
    Jun 2002
    Location
    Cheadle, Staffordshire
    Posts
    2,177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Calendar (A2k)

    I found this useful calendar database, which integrates quite easily into my DB.
    I need to set the properties so that both forms are pop ups.
    Quite easy you say, and yes, of course it is, but.

    As it is now, when the "fdlg_Event/Task" form is updated and closed, the new data shows on the calendar in the date as specified.
    When both forms are set to pop up, the data is not refreshed until the "Today" button is pressed or restarting the form.

    Can any one see why this happens ?
    Attached Files Attached Files

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Calendar (A2k)

    Dave,

    When I try to open the calendar form, I get error messages about non-existing controls Label38 etc.

  3. #3
    Silver Lounger
    Join Date
    Jun 2002
    Location
    Cheadle, Staffordshire
    Posts
    2,177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Calendar (A2k)

    I can't understand that Hans.
    It's ok at this end, and there isn't a Label38 in the form.
    The only reference I can find is a loop statement:

    "Loop until 38"

  4. #4
    Silver Lounger
    Join Date
    Jun 2002
    Location
    Cheadle, Staffordshire
    Posts
    2,177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Calendar (A2k)

    97 Conversion
    Attached Files Attached Files

  5. #5
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Calendar (A2k)

    Have you tried opening the form in the version you posted?
    Attached Images Attached Images
    • File Type: png x.PNG (10.1 KB, 0 views)

  6. #6
    Silver Lounger
    Join Date
    Jun 2002
    Location
    Cheadle, Staffordshire
    Posts
    2,177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Calendar (A2k)

    Yes Hans, it's still fine !

  7. #7
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Calendar (A2k)

    Strange - both the Access 2000 and the Access 97 version (after converting) raise the same error on my PC.

  8. #8
    Silver Lounger
    Join Date
    Jun 2002
    Location
    Cheadle, Staffordshire
    Posts
    2,177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Calendar (A2k)

    Heres the references !!
    Attached Files Attached Files

  9. #9
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Calendar (A2k)

    Ha! It wasn't the references, it's the assumption of the programmer that everybody in the world has Windows set to English. I've got it working now; if I find a solution to your original question, I'll get back to you (might take a while).

  10. #10
    Silver Lounger
    Join Date
    Jun 2002
    Location
    Cheadle, Staffordshire
    Posts
    2,177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Calendar (A2k)

    Every body does have Windows set to English !! Don't they ?? <img src=/S/newbrain.gif border=0 alt=newbrain width=21 height=22>

  11. #11
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Calendar (A2k)

    Dave,

    The calendar form is populated by the Form_Current routine. This is called from the Form_Activate routine, so that if the calendar form is activated when the user closes the event form, the data are updated. But... the Activate event doesn't occur after returning from a popup form. So you must call Form_Current explicitly after opening the form as a dialog form:

    Function dateDblclick(id)
    Dim response As String
    Dim tmp As Date

    If Me("id" & id).Caption = "" Then
    response = MsgBox("Event does not exist for this date. Create a new Event ?", vbYesNo, "Create new event")
    If response = vbYes Then
    DoCmd.OpenForm "fdlg_Event/Task", , , "[ID] = " & 0, , acDialog
    Form_Current
    tmp = strMonth & ". " & Me("label" & id).Caption & "/" & intYear
    Forms![fdlg_Event/Task]![StartDate] = strMonth & ". " & Me("label" & id).Caption & "/" & intYear
    Else
    End If
    Else
    DoCmd.OpenForm "fdlg_Event/Task", , , "[ID] = " & Me("id" & id).Caption, , acDialog
    Form_Current
    End If
    End Function

  12. #12
    Silver Lounger
    Join Date
    Jun 2002
    Location
    Cheadle, Staffordshire
    Posts
    2,177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Calendar (A2k)

    Humble thanks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •