Vraag : Het gebruiken van Controle 11.0 van de Kalender in Toegang 2003 op een Controle van het Lusje op een Vorm

Ik verwees naar Vraag #24263618 en gebruikte de kalendersteekproef van Steenbok.
http://www.experts-exchang e.com/Micr osoft/Development/MS_Access/Q_24263618.html? sfQueryTermInfo=1+10+2003+30+access+calendar+control+form

This behalve de datum op een lusjecontrole. De kalender duikt op en ik kan een datum selecteren, maar de datum wordt niet bewaard op het datumgebied. Het is blank.
Is daar iets dat ik verschillend iets veranderen of moet doen?

Thanks!
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Function OpenCalendar (strForm als Koord, strCtrl als Koord) als Datum

    DoCmd.OpenForm „frmCalendar“
    Vormen! frmCalendar.Caption = „selecteer“ & strCtrl
    Vormen! frmCalendar! FormName = strForm
    Vormen! frmCalendar! ControlName = strCtrl
    
    
De Functie van het eind

Sub SetDate ()
Schemerige strForm
Schemerige strCtrl
Schemerige wd als Datum
   wd = Vormen! frmCalendar! Calendar3.Value

strForm = Vormen! frmCalendar! FormName
strCtrl = Vormen! frmCalendar! ControlName

    Vormen (strForm) (strCtrl). Waarde = wd
    Vormen (strForm) (strCtrl) .SetFocus
    Vormen (strForm). Requery
'Vormen! frmCalendar.Visible = Vals
DoCmd.Close acForm, „frmCalendar“
Sub van het eind

Antwoord : Het gebruiken van Controle 11.0 van de Kalender in Toegang 2003 op een Controle van het Lusje op een Vorm

test dit
Andere oplossingen  
 
programming4us programming4us