Cascading Combos in Data Access Page [DAP]
in [General]
|
From: Agnelo Fernandes on 16 Nov 2009 09:40 In DAP, can I have 1 control [courses] affect other 2 controls [course_date_1st_choice] and [course_date_2nd_choice]. I usually do this in Form by using Select Case but i need to know how i can manage to do it in DAP. Any help please?
From: Sylvain Lafontaine on 16 Nov 2009 14:40 It's very complicated to do that in DAP. You should post in the official DAP newsgroup but this newsgroup is practically dead because very few people are still using them but Ken Snell is still often answering questions there. By looking at an old DAP file that I have here, I see that for doing this, I was storing the value of the combobox into a cookie and refreshing/requerying the page. On reloading the page, I check for the value of any cookie and reload them in the comboboxes. The database is no longer I use so I cannot test for it right now - I've probably a copy somewhere but here a copy of the full HTML file: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:o = "urn:schemas-microsoft-com:office:office" xmlns:a = "urn:schemas-microsoft-com:office:access" xmlns:x = "urn:schemas-microsoft-com:office:excel" xmlns:dt = "uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"><HEAD><TITLE>Liste des officiels</TITLE> <META content="HTML 4.0" name=vs_targetSchema><LINK href="f_Off_files/filelist.xml" type=text/xml rel=File-List> <META content=Access.Application name=ProgId> <META name=VBSForEventHandlers value="true"> <META http-equiv=Content-Type content=text/html;charset=UTF-8> <META content=10.00.3420 name=DesignerVersion> <META content="MSHTML 6.00.6000.16939" name=GENERATOR> <OBJECT id=MSODSC tabIndex=-1 classid=CLSID:0002E553-0000-0000-C000-000000000046><PARAM NAME="XMLData" VALUE='<xml xmlns:a="urn:schemas-microsoft-com:office:access"> <a:DataSourceControl> <a:OWCVersion>10.0.0.6854 </a:OWCVersion> <a:ConnectionString>Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Arscim7SQL;Data Source=SYLVAIN2;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=SYLVAIN2;Use Encryption for Data=False;Tag with column collation when possible=False</a:ConnectionString> <a:MaxRecords>10000</a:MaxRecords> <a:GridX>24</a:GridX> <a:GridY>24</a:GridY> <a:OfflineType>2</a:OfflineType> <a:OfflinePublication></a:OfflinePublication> <a:XMLLocation>0</a:XMLLocation> <a:XMLDataTarget></a:XMLDataTarget> <a:ConnectionFile></a:ConnectionFile> <a:ElementExtension> <a:ElementID>Nom</a:ElementID> <a:ControlSource>Nom</a:ControlSource> <a:ChildLabel>Label3</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>Prenom</a:ElementID> <a:ControlSource>Prenom</a:ControlSource> <a:ChildLabel>Label4</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>Adresse</a:ElementID> <a:ControlSource>Adresse</a:ControlSource> <a:ChildLabel>Label5</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>Ville</a:ElementID> <a:ControlSource>Ville</a:ControlSource> <a:ChildLabel>Label6</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>Province</a:ElementID> <a:ControlSource>Province</a:ControlSource> <a:ChildLabel>Label7</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>CodePostal</a:ElementID> <a:ControlSource>CodePostal</a:ControlSource> <a:ChildLabel>Label8</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>TelBureau</a:ElementID> <a:ControlSource>TelBureau</a:ControlSource> <a:ChildLabel>Label9</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>ExtBureau</a:ElementID> <a:ControlSource>ExtBureau</a:ControlSource> <a:ChildLabel>Label10</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>TelMaison</a:ElementID> <a:ControlSource>TelResidence</a:ControlSource> <a:ChildLabel>Label11</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>Courriel</a:ElementID> <a:ControlSource>Courriel</a:ControlSource> <a:ChildLabel>Label12</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>NoOfficiel</a:ElementID> <a:ControlSource>NoOfficiel</a:ControlSource> <a:ChildLabel>Label13</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>IdDisciplineCombo</a:ElementID> <a:ListRowSource>qf_Off_IdDiscipline_DAP</a:ListRowSource> <a:ListBoundField>IdDiscipline</a:ListBoundField> <a:ListDisplayField>Nom</a:ListDisplayField> <a:ChildLabel>Label18</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>IdLigueCombo</a:ElementID> <a:ListRowSource>qf_Off_IdLigue_DAP</a:ListRowSource> <a:ListBoundField>IdLigue</a:ListBoundField> <a:ListDisplayField>Expr1</a:ListDisplayField> <a:ChildLabel>Label20</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>qf_OffNavLabel</a:ElementID> <a:RecordsetLabel>qf_Off |0 of |2;qf_Off |0-|1 of |2</a:RecordsetLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>ComboIdOrganisme</a:ElementID> <a:ListRowSource>dbo.q_ComboIdOrganisme</a:ListRowSource> <a:ListBoundField>IdOrganisme</a:ListBoundField> <a:ListDisplayField>Nom</a:ListDisplayField> </a:ElementExtension> <a:ElementExtension> <a:ElementID>IdOfficiel</a:ElementID> <a:ControlSource>IdOfficiel</a:ControlSource> <a:ChildLabel>IdOfficiel_Label</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>ComboIdDiscipline</a:ElementID> <a:ListRowSource>dbo.qf_Off_ComboIdDiscipline</a:ListRowSource> <a:ListBoundField>IdDiscipline</a:ListBoundField> <a:ListDisplayField>Nom</a:ListDisplayField> </a:ElementExtension> <a:ElementExtension> <a:ElementID>ComboIdLigue</a:ElementID> <a:ListRowSource>dbo.qf_Off_ComboIdLigue</a:ListRowSource> <a:ListBoundField>IdLigue</a:ListBoundField> <a:ListDisplayField>Nom</a:ListDisplayField> </a:ElementExtension> <a:ElementExtension> <a:ElementID>ComboIdOfficiel</a:ElementID> <a:ListRowSource>dbo.qf_Off_ComboIdOfficiel</a:ListRowSource> <a:ListBoundField>IdOfficiel</a:ListBoundField> <a:ListDisplayField>NomComplet</a:ListDisplayField> </a:ElementExtension> <a:ElementExtension> <a:ElementID>IdOrganisme</a:ElementID> <a:ControlSource>IdOrganisme</a:ControlSource> <a:ChildLabel>IdOrganisme_Label</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>IdDiscipline</a:ElementID> <a:ControlSource>IdDiscipline</a:ControlSource> <a:ChildLabel>IdDiscipline_Label</a:ChildLabel> </a:ElementExtension> <a:ElementExtension> <a:ElementID>IdLigue</a:ElementID> <a:ControlSource>IdLigue</a:ControlSource> <a:ChildLabel>IdLigue_Label</a:ChildLabel> </a:ElementExtension> <a:GroupLevel> <a:RecordSource>qf_Off</a:RecordSource> <a:DefaultSort></a:DefaultSort> <a:HeaderElementId>Headerqf_Off</a:HeaderElementId> <a:FooterElementId></a:FooterElementId> <a:CaptionElementId>Captionqf_Off</a:CaptionElementId> <a:RecordNavigationElementId>Navigationqf_Off</a:RecordNavigationElementId> <a:DataPageSize>1</a:DataPageSize> <a:GroupFilterControl></a:GroupFilterControl> <a:RecordSelector/> </a:GroupLevel> <a:Datamodel a:version="0816"> <a:RecordsetDef a:id="qf_Off" a:source="dbo.qf_Off"> <a:PageField a:id="IdOfficiel"/> <a:PageField a:id="Nom"/> <a:PageField a:id="Prenom"/> <a:PageField a:id="Adresse"/> <a:PageField a:id="Ville"/> <a:PageField a:id="Province"/> <a:PageField a:id="CodePostal"/> <a:PageField a:id="TelBureau"/> <a:PageField a:id="ExtBureau"/> <a:PageField a:id="TelResidence"/> <a:PageField a:id="Courriel"/> <a:PageField a:id="IdLigue"/> <a:PageField a:id="IdDiscipline"/> <a:PageField a:id="NoOfficiel"/> <a:PageField a:id="NoGrade"/> <a:PageField a:id="IdOrganisme"/> </a:RecordsetDef> <a:RecordsetDef a:id="dbo.qf_Off_ComboIdDiscipline"> <a:PageField a:id="IdDiscipline"/> <a:PageField a:id="Ordre"/> <a:PageField a:id="Nom"/> </a:RecordsetDef> <a:RecordsetDef a:id="dbo.qf_Off_ComboIdLigue"> <a:PageField a:id="IdLigue"/> <a:PageField a:id="Ordre"/> <a:PageField a:id="Nom"/> <a:PageField a:id="Code"/> </a:RecordsetDef> <a:RecordsetDef a:id="dbo.qf_Off_ComboIdOfficiel"> <a:PageField a:id="IdOfficiel"/> <a:PageField a:id="NomComplet"/> <a:PageField a:id="Nom"/> <a:PageField a:id="Prenom"/> </a:RecordsetDef> <a:RecordsetDef a:id="dbo.q_ComboIdOrganisme"> <a:PageField a:id="IdOrganisme"/> <a:PageField a:id="Nom"/> </a:RecordsetDef> <a:RecordsetDef a:id="qf_Off_IdDiscipline_DAP" a:source="dbo.qf_Off_IdDiscipline_DAP"> <a:PageField a:id="IdDiscipline"/> <a:PageField a:id="Nom"/> </a:RecordsetDef> <a:RecordsetDef a:id="qf_Off_IdLigue_DAP" a:source="dbo.qf_Off_IdLigue_DAP"> <a:PageField a:id="IdLigue"/> <a:PageField a:id="Expr1"/> <a:PageField a:id="Nom"/> <a:PageField a:id="Code"/> </a:RecordsetDef> </a:Datamodel> </a:DataSourceControl> </xml>'></OBJECT> <STYLE id=MSODAPDEFAULTS type=text/css>.MSTheme-Label { BORDER-RIGHT: 0px; PADDING-RIGHT: 3px; BORDER-TOP: 0px; PADDING-LEFT: 3px; FONT-SIZE: 8pt; OVERFLOW: visible; BORDER-LEFT: 0px; WIDTH: 1in; BORDER-BOTTOM: 0px; FONT-FAMILY: Tahoma; HEIGHT: 0.156in; TEXT-ALIGN: left } ..MsoTextbox { PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 8pt; OVERFLOW: hidden; WIDTH: 1in; FONT-FAMILY: Tahoma; HEIGHT: 0.197in } ..MsoBoundSpan { BORDER-RIGHT: 0px; PADDING-RIGHT: 3px; BORDER-TOP: 0px; PADDING-LEFT: 3px; FONT-SIZE: 8pt; OVERFLOW: hidden; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px; FONT-FAMILY: Tahoma; TEXT-ALIGN: left } ..MsoHyperlinkDisplayText { BORDER-RIGHT: 0px; PADDING-RIGHT: 3px; BORDER-TOP: 0px; PADDING-LEFT: 3px; FONT-SIZE: 8pt; OVERFLOW: hidden; BORDER-LEFT: 0px; CURSOR: hand; BORDER-BOTTOM: 0px; FONT-FAMILY: Tahoma; TEXT-ALIGN: left } ..Mso2dSection { LEFT: 0px; BEHAVIOR: url(#DEFAULT#Mso2dSection); OVERFLOW: hidden; POSITION: relative; TOP: 0px; BACKGROUND-COLOR: transparent } ..Mso2dSectionBanner { PADDING-RIGHT: 4px; DISPLAY: none; PADDING-LEFT: 4px; FONT-WEIGHT: normal; FONT-SIZE: 8pt; LEFT: 0px; BEHAVIOR: url(#DEFAULT#Mso2dSectionBanner); OVERFLOW: visible; PADDING-TOP: 2px; FONT-FAMILY: Tahoma; TOP: 0px; HEIGHT: 0.2in; BACKGROUND-COLOR: buttonface } ..MsoRectangle { BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; OVERFLOW: hidden; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid } ..MsoTitle { DISPLAY: none; FONT-WEIGHT: normal; COLOR: inactivecaptiontext } ..MsoExpandCollapse { CURSOR: hand } ..MsoNavContainer { BORDER-RIGHT: gainsboro 1px solid; BORDER-TOP: gainsboro 1px solid; Z-INDEX: -1; BORDER-LEFT: gainsboro 1px solid; CURSOR: hand; BORDER-BOTTOM: gainsboro 1px solid; HEIGHT: 25px; BACKGROUND-COLOR: gainsboro } ..MsoNavButton { BORDER-RIGHT: gainsboro 1px solid; BORDER-TOP: gainsboro 1px solid; BORDER-LEFT: gainsboro 1px solid; CURSOR: auto; BORDER-BOTTOM: gainsboro 1px solid; BACKGROUND-REPEAT: no-repeat } ..MsoNavButtonMouseOver { BORDER-RIGHT: highlight 1px solid; BORDER-TOP: highlight 1px solid; BORDER-LEFT: highlight 1px solid; BORDER-BOTTOM: highlight 1px solid; BACKGROUND-COLOR: buttonhighlight } ..MsoNavToggleButtonMouseOver { BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; BORDER-LEFT: buttonshadow 1px solid; BORDER-BOTTOM: buttonshadow 1px solid; BACKGROUND-REPEAT: no-repeat; BACKGROUND-COLOR: buttonshadow } ..MsoNavButtonMouseDown { BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; BORDER-LEFT: buttonshadow 1px solid; CURSOR: hand; BORDER-BOTTOM: buttonshadow 1px solid; BACKGROUND-COLOR: buttonshadow } ..MsoNavRecordsetLabel { BORDER-RIGHT: gainsboro 1px solid; BORDER-TOP: gainsboro 1px solid; PADDING-LEFT: 0px; FONT-SIZE: 8pt; OVERFLOW: hidden; BORDER-LEFT: gainsboro 1px solid; WIDTH: 100%; CURSOR: default; PADDING-TOP: 0px; BORDER-BOTTOM: gainsboro 1px solid; FONT-FAMILY: Tahoma; POSITION: relative } ..MsoRecordSelector { BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; OVERFLOW: hidden; BORDER-LEFT: buttonshadow 1px solid; BORDER-BOTTOM: buttonshadow 1px solid; HEIGHT: 100%; BACKGROUND-COLOR: gainsboro } ..MsoRecordSelectorCurrent { BACKGROUND-POSITION: 1px 0px; BACKGROUND-IMAGE: url(owc://GIF/#11240); BACKGROUND-REPEAT: no-repeat } ..MsoRecordSelectorSelectedImage { BACKGROUND-POSITION: 1px 0px; BACKGROUND-IMAGE: url(owc://GIF/#11241); BACKGROUND-REPEAT: no-repeat } ..MsoRecordSelectorSelected { BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; LEFT: 0px; OVERFLOW: hidden; BORDER-LEFT: buttonshadow 1px solid; BORDER-BOTTOM: buttonshadow 1px solid; TOP: 0px; HEIGHT: 100%; BACKGROUND-COLOR: buttonshadow } ..MsoRecordSelectorDirty { BACKGROUND-POSITION: -1px 0px; BACKGROUND-IMAGE: url(owc://GIF/#11245); BACKGROUND-REPEAT: no-repeat } ..MsoRecordSelectorTransparent { LEFT: 0px; OVERFLOW: hidden; TOP: 0px } HR { COLOR: black } SELECT { FONT-SIZE: 8pt; FONT-FAMILY: Tahoma } INPUT { FONT-SIZE: 8pt; FONT-FAMILY: Tahoma } BODY { FONT-SIZE: 10pt; FONT-FAMILY: Tahoma } MARQUEE { FONT-SIZE: 8pt; FONT-FAMILY: Tahoma } LEGEND { FONT-SIZE: 8pt; FONT-FAMILY: Tahoma } BUTTON { FONT-SIZE: 8pt; FONT-FAMILY: Tahoma } TEXTAREA { FONT-SIZE: 8pt; FONT-FAMILY: Tahoma } ..Style0 { BORDER-RIGHT: #ece9d8 1px solid; BORDER-TOP: #ece9d8 1px solid; FONT-WEIGHT: 400; FONT-SIZE: 10pt; VISIBILITY: visible; BORDER-LEFT: #ece9d8 1px solid; COLOR: #000000; BORDER-BOTTOM: #ece9d8 1px solid; FONT-STYLE: normal; FONT-FAMILY: MS Sans Serif; BACKGROUND-COLOR: #ffffff; TEXT-ALIGN: left } ..Style1 { BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; FONT-WEIGHT: 400; FONT-SIZE: 10pt; VISIBILITY: visible; BORDER-LEFT: #000000 1px; COLOR: #000000; BORDER-BOTTOM: #000000 1px; FONT-STYLE: normal; FONT-FAMILY: MS Sans Serif; WRITING-MODE: lr-tb; BACKGROUND-COLOR: transparent } ..Style2 { BORDER-RIGHT: #ece9d8 1px solid; BORDER-TOP: #ece9d8 1px solid; FONT-WEIGHT: 400; FONT-SIZE: 10pt; VISIBILITY: visible; BORDER-LEFT: #ece9d8 1px solid; COLOR: #000000; BORDER-BOTTOM: #ece9d8 1px solid; FONT-STYLE: normal; FONT-FAMILY: MS Sans Serif; BACKGROUND-COLOR: #ffffff } ..Style3 { BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; VISIBILITY: visible; BORDER-LEFT: #000000 1px; BORDER-BOTTOM: #000000 1px; BACKGROUND-COLOR: transparent } ..Style4 { FONT-WEIGHT: 400; FONT-SIZE: 8pt; VISIBILITY: visible; COLOR: #000000; FONT-STYLE: normal; FONT-FAMILY: MS Sans Serif } ..Style5 { BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; VISIBILITY: visible; BORDER-LEFT: #000000 1px; BORDER-BOTTOM: #000000 1px } ..Style6 { BORDER-RIGHT: #ece9d8 1px solid; BORDER-TOP: #ece9d8 1px solid; FONT-WEIGHT: 400; FONT-SIZE: 10pt; VISIBILITY: visible; BORDER-LEFT: #ece9d8 1px solid; COLOR: #000000; BORDER-BOTTOM: #ece9d8 1px solid; FONT-STYLE: normal; FONT-FAMILY: MS Sans Serif; WRITING-MODE: lr-tb; BACKGROUND-COLOR: #ffffff } ..Style7 { BORDER-RIGHT: #ece9d8 1px; BORDER-TOP: #ece9d8 1px; FONT-WEIGHT: 400; FONT-SIZE: 10pt; VISIBILITY: visible; BORDER-LEFT: #ece9d8 1px; COLOR: #000000; BORDER-BOTTOM: #ece9d8 1px; FONT-STYLE: normal; FONT-FAMILY: MS Sans Serif; BACKGROUND-COLOR: #ffffff } ..Style8 { BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; FONT-WEIGHT: 400; FONT-SIZE: 8pt; VISIBILITY: visible; BORDER-LEFT: #000000 1px; COLOR: #000000; BORDER-BOTTOM: #000000 1px; FONT-STYLE: italic; FONT-FAMILY: MS Sans Serif; WRITING-MODE: lr-tb; BACKGROUND-COLOR: transparent } ..MsoRecordSelectorDirtyCurrent { BACKGROUND-POSITION: -1px 0px; BACKGROUND-IMAGE: url(owc://GIF/#11242); BACKGROUND-REPEAT: no-repeat } </STYLE> <!--[if gte mso 9]><xml> <o:DocumentProperties> <o:LastAuthor>Sylvain</o:LastAuthor> <o:Revision>659</o:Revision> <o:TotalTime>7317</o:TotalTime> <o:LastSaved>2005-08-07T05:37:59Z</o:LastSaved> <o:Version>11.9999</o:Version> </o:DocumentProperties> </xml><![endif]--> <SCRIPT language=Javascript id=MSODSC_Validation> validateBrowser(); function validateBrowser() { strVers=navigator.appVersion strName=navigator.appName strPlat=navigator.platform intIndex1=strVers.indexOf("MSIE"); intIndex1=intIndex1+5 intIndex2=strVers.lastIndexOf(";"); intVer=strVers.substring(intIndex1, intIndex2) intVer=parseInt(intVer) if (strName=="Microsoft Internet Explorer" && strPlat=="Win32" && intVer>="5") { validateOWC(); } else { strMsgGetIE="<TABLE cellSpacing=0 cellPadding=0 width='95%' border=0 height='8'><TR>" strMsgGetIE+="<TD bgColor='#336699' height=25 width=15> </TD><TD bgColor='#666666' width=500px><FONT face=Tahoma " strMsgGetIE+="size=4 color=white><b> Data Access Page Notification</B></FONT></TD></TR>" strMsgGetIE+="<TR><TD bgColor='#cccccc' width=15> </TD><TD bgColor='#cccccc' width=500px><BR>" strMsgGetIE+="<p><font face='Tahoma' size='2'>" strMsgGetIE+="This page requires Windows IE 5.0 or higher.</p>" strMsgGetIE+="<a href='http://www.microsoft.com/isapi/redir.dll?Prd=Office&Sbp=Access&Pver=10&Ar=DPdesigner&Sba=IEhome&Plcid=1033'><p align='center'>" strMsgGetIE+="Click here to install the latest version of Internet Explorer.</a></font></p><br></TD></TR></TABLE>" document.write(strMsgGetIE) } } function validateOWC() { if (MSODSC.object==null) { strMsgGetOWC="<TABLE width='95%' cellpadding=0 cellspacing=0 border=0 height='8'>" strMsgGetOWC+="<TR><TD bgColor='#336699' height=25 width=15> </TD><TD bgColor='#666666' width=500px>" strMsgGetOWC+="<FONT face=Tahoma color=white size=4><B> " strMsgGetOWC+="Data Access Page Notification</B></FONT></TD></TR><TR><TD bgColor='#cccccc' width=15> </TD>" strMsgGetOWC+="<TD bgColor='#cccccc' width='500px'><BR>" strMsgGetOWC+="<p><font face='Tahoma' size='2'>This page requires the Microsoft Office Web Components.</p>" strMsgGetOWC+="</font><p><font face='Tahoma' size='2'>See the <a HRef='http://office.microsoft.com/office/redirect/10/MSOWCPub.asp?&HelpLCID=1033'>Microsoft Office Web site</a> for more information. " strMsgGetOWC+="</font></p><BR></TD></TR></TABLE>" document.write(strMsgGetOWC) } } </SCRIPT> <SCRIPT language=javascript> <!-- function retourneDateCookie_1an () { var d; d = new Date(); d.setTime (d.valueOf () + (365 * 24 * 60 * 60 * 1000)) return d.toUTCString (); } --> </SCRIPT> <SCRIPT language=vbscript> OPTION EXPLICIT Dim NOT_FOUND NOT_FOUND = "NOT_FOUND" Sub SetCookie(strVariableName, varVariableValue) Document.Cookie = strVariableName & "=" & varVariableValue End Sub ' Cr�e le cookie, avec une date d'expiration d'un an. Sub SetCookie_1an (strVariableName, varVariableValue) Document.Cookie = strVariableName & "=" & varVariableValue & ";expires=" & retourneDateCookie_1an() End Sub Sub KillVariable(strVariableName) ' SetCookie strVariableName, "NULL;expires=Monday, 01-Jan-95 12:00:00 GMT" SetCookie strVariableName, "NULL;expires=Thu, 1 Jan 1970 00:00:00 UTC" End Sub Function ReadCookie(strVariableName) ' These five variables are used in the string manipulation ' code that finds the variable in the cookie. Dim intLocation Dim intNameLength Dim intValueLength Dim intNextSemicolon Dim strTemp ' Calculate the length and location of the variable name. intNameLength = Len(strVariableName) intLocation = Instr(Document.Cookie, strVariableName & "=") ' Check for existence of the variable name. If intLocation = 0 Then ' Variable not found, so it can't be read. ReadCookie = NOT_FOUND Else ' Get a smaller substring to work with. strTemp = Right(Document.Cookie, Len(Document.Cookie) - intLocation + 1) ' Check to make sure you found the full string, not just a ' substring. If Mid(strTemp, intNameLength + 1, 1) <> "=" Then 'Oops, only found substring, not good enough. ReadCookie = NOT_FOUND ' Note that this will incorrectly give a "not found" result if ' and only if a search for a variable whose name is a substring ' of a preceding variable is undertaken. For example, this will ' fail: ' Search for: MyVar ' Cookie contains: MyVariable=2;MyVar=1 Else ' Found full string. intNextSemicolon = Instr(strTemp, ";") ' If not found, get the last element of the cookie. If intNextSemicolon = 0 Then intNextSemicolon = Len(strTemp) + 1 ' Check for an empty variable (Var1=;). If intNextSemicolon = (intNameLength + 2) Then ' Variable is empty. ReadCookie = "" Else ' Calculate the value normally. intValueLength = intNextSemicolon - intNameLength - 2 ReadCookie = Mid(strTemp, intNameLength + 2, intValueLength) End If End If End If End Function </SCRIPT> <SCRIPT language=vbscript> <!-- ' Module pour l'affichage de code de d�buggage dans une fen�tre. Dim debugWindow set debugWindow = Nothing Dim fDebugInitialise :fDebugInitialise = false Dim fMsgAccess : fMsgAccess = false Sub StartDebug fDebugInitialise = true ' exit sub ' D�sactive l'affichage de la fen�tre de d�buggage. if (document.location.protocol = "accdp:") then if (fMsgAccess = false) then fMsgAccess = true msgbox "StartDebug (Log): Ne fonctionne pas sous Access" end if exit sub end if Dim id ' Deliberately unassigned variable. if (false) then Set debugWindow = window.open("about:blank", id, _ "menubar=no,status=no,toolbar=no," & _ "resizable=yes,scrollbars=yes," & _ "left=20,top=20,width=500,height=300") else Set debugWindow = window.open("about:blank", id, _ "menubar=no,status=no,toolbar=no," & _ "resizable=yes,scrollbars=yes," & _ "left=1040,top=20,width=500,height=300") end if ' Note: on peut �galement utiliser "text/html", en s'assurant ' que tout le texte envoy� avec SendDebug est du code HTML valide. debugWindow.document.open("text/plain") debugWindow.document.clear debugWindow.document.bgColor = "FFFFC0" ' Lt yellow. debugWindow.document.writeln("Debug Log for " & _ document.title & ": " & time) End Sub Sub SendDebug(str) if (document.location.protocol = "accdp:") then if (fMsgAccess = false) then fMsgAccess = true msgbox "SendDebug (Log): Ne fonctionne pas sous Access" end if exit sub end if if (fDebugInitialise = false) then StartDebug end if if (not (debugWindow is Nothing)) then debugWindow.document.writeln (str) end if End Sub sub document_onrowexit_Test Dim validationFails validationFails = false If (validationFails) Then MsgBox "Validation Failed." window.event.returnValue = False End If end sub --> </SCRIPT> <SCRIPT language=vbscript> <!-- OPTION EXPLICIT ' Constantes utiles pour MSODSC. Dim dscConstants Set dscConstants = MSODSC.Constants ' Note: cpIdOrganisme doit �tre d�clar�e � l'ext�rieur de la routine car ' les fonctions .parametervalues.Add() en font un appel par r�f�rence. ' Le pr�fixe cp indique un cookie "permanent", c'est-�-dire d'un an; Dim cpIdOrganisme ' Cookies temporaires. Dim cIdDiscipline Dim cIdLigue ' -- Code principal pour le module. -- ' Sert � d�terminer quand est-ce que l'on doit requ�rir le combobox ' pour IdLigue (qui d�pend de IdDiscipline). Dim Anc_IdDiscipline ' Ne peut pas �tre null. Anc_IdDiscipline = -1 sub MSODSC_BeforeInitialBind(info) if (false) then dim r for each r in msodsc.RecordsetDefs senddebug r.name ' senddebug r.CommandText next end if Dim errNot_Found errNot_Found = "NOT_FOUND" ' senddebug Document.cookie cpIdOrganisme = ReadCookie("IdOrganisme") if (cpIdOrganisme = errNot_Found or Not isnumeric (cpIdOrganisme)) then cpIdOrganisme = "1" SetCookie_1an "IdOrganisme", 1 end if cIdDiscipline = ReadCookie("IdDiscipline") if (cIdDiscipline = errNot_Found or Not isnumeric (cIdDiscipline)) then cIdDiscipline = "-1" SetCookie "IdDiscipline", -1 end if cIdLigue = ReadCookie("IdLigue") if (cIdLigue = errNot_Found or Not isnumeric (cIdLigue)) then cIdLigue = "-1" SetCookie "IdLigue", -1 end if ' Aucun param�tre pour qf_Off_ComboIdDiscipline (rq. ind�pendante de l'organisme). ' MSODSC.recordsetdefs("dbo.qf_Off_ComboIdDiscipline").parametervalues.Add "@ComboIdOrganisme", 1 with msodsc.RecordsetDefs ("dbo.qf_Off_ComboIdLigue") .parametervalues.Add "@ComboIdOrganisme", cpIdOrganisme .parametervalues.Add "@ComboIdDiscipline", cIdDiscipline end with ' On v�rifie que la ligue existe avec les param�tres fournies. Dim rs set rs = msodsc.Execute ("dbo.qf_Off_ComboIdLigue") rs.Find "IdLigue=" & cIdLigue, 0, 1, 1 if (rs.eof) then cIdLigue = "-1" SetCookie "IdLigue", -1 end if with msodsc.RecordsetDefs ("dbo.qf_Off_ComboIdOfficiel") .parametervalues.Add "@ComboIdOrganisme", cpIdOrganisme .parametervalues.Add "@ComboIdDiscipline", cIdDiscipline .parametervalues.Add "@ComboIdLigue", cIdLigue end with with msodsc.RecordsetDefs ("qf_Off_IdLigue_DAP") .parametervalues.Add "@ComboIdOrganisme", cpIdOrganisme .parametervalues.Add "@IdDiscipline", 0 end with with msodsc.RecordsetDefs ("qf_Off") .parametervalues.Add "@ComboIdOrganisme", cpIdOrganisme .parametervalues.Add "@ComboIdDiscipline", cIdDiscipline .parametervalues.Add "@ComboIdLigue", cIdLigue end with end sub sub window_onload (info) ' L'�v�nement window_onload survient avant MSODSC_DataPageComplete ' et apr�s MSODSC_BeforeInitialBind. ' SendDebug "window_onload" set IdDisciplineCombo.onchange = GetRef ("IdDisciplineCombo_OnChange_Sub") end sub sub MSODSC_DataPageComplete (info) ' senddebug "MSODSC_DataPageComplete" ' senddebug info.DataPage.GroupLevel.RecordSource end sub sub MSODSC_Current (info) ' SendDebug "MSODSC_Current" if (Len (ComboIdOrganisme.value) = 0) then ComboIdOrganisme.value = cpIdOrganisme end if if (Len (ComboIdDiscipline.value) = 0) then ComboIdDiscipline.value = cIdDiscipline end if if (Len (ComboIdLigue.value) = 0) then ComboIdLigue.value = cIdLigue end if ' senddebug info.datapage.Recordset.Fields ("IdOfficiel").Value ' senddebug ComboIdOrganisme.children(0).value ' senddebug ComboIdOrganisme.children(0).innerText ' senddebug msodsc.CurrentSection.HTMLContainer.RecordNumber ' senddebug ComboIdOfficiel.children(ComboIdOfficiel.selectedIndex).innerText ComboIdOfficiel.value = IdOfficiel.value if (IdDiscipline.Value = "") then IdDisciplineCombo.value = 0 else IdDisciplineCombo.value = IdDiscipline.Value end if if (false) then with msodsc.CurrentSection.DataPage.Recordset ("IdDiscipline") if (isNull (.Value)) then IdDisciplineCombo.value = 0 else IdDisciplineCombo.value = .Value end if end with end if ' On ne peut choisir une ligue que si la discipline est elle-m�me choisie. ' Dans le cas contraire, il est inutile de v�rifier ou de requ�rir la liste ' des ligues en fonction de la discipline choisie. if (IdDisciplineCombo.value <> 0) then If (Anc_IdDiscipline <> IdDiscipline.value) Then Anc_IdDiscipline = IdDiscipline.value ' Rafra�chissement de la requ�te pour IdLigueCombo. with msodsc.RecordsetDefs ("qf_Off_IdLigue_DAP") .ParameterValues.Item ("@IdDiscipline").Value = IdDiscipline.value end with end If end if if (IdLigue.Value = "") then IdLigueCombo.value = 0 else IdLigueCombo.value = IdLigue.Value end if if (false) then with msodsc.CurrentSection.DataPage.Recordset ("IdLigue") if (isNull (.Value)) then IdLigueCombo.value = 0 else IdLigueCombo.value = .Value end if end with end if Call IdDiscipline_MiseAJour ' Enable/Disable Navigation Buttons as required. ' Me.frmBoutonsNavigation.Form.EnableDisableButtons Me.Nom end sub sub IdDisciplineCombo_OnChange_Sub() ' senddebug IdDisciplineCombo.value if (IdDisciplineCombo.value = 0) then IdDiscipline.Value = "" else IdDiscipline.Value = IdDisciplineCombo.value end if if (false) then with msodsc.CurrentSection.DataPage.Recordset ("IdDiscipline") if (IdDisciplineCombo.value = 0) then .Value = Null else .Value = IdDisciplineCombo.value end if end with end if if (false) then with msodsc.CurrentSection.DataPage.Recordset ("IdDiscipline") if (isNull (.Value)) then senddebug " = Null" elseif (.Value = "") then senddebug " = vide" else senddebug .Value end if end with end if If (IdDisciplineCombo.value = 0) Then IdLigue.value = "" IdLigueCombo.value = 0 Anc_IdDiscipline = -1 Else Anc_IdDiscipline = IdDisciplineCombo.value with msodsc.RecordsetDefs ("qf_Off_IdLigue_DAP") .ParameterValues.Item ("@IdDiscipline").Value = IdDisciplineCombo.value end with If (IdLigueCombo.selectedIndex = -1) Then IdLigue.value = "" IdLigueCombo.value = 0 End If End If Call IdDiscipline_MiseAJour end sub Sub IdDiscipline_MiseAJour() If (Len (IdDiscipline.value) = 0) Then if (IdLigueCombo.disabled = false) then IdLigueCombo.disabled = true Else if (IdLigueCombo.disabled = true) then IdLigueCombo.disabled = false End If End Sub sub MSODSC_BeforeUpdate (info) if (len (IdOrganisme.value) = 0) then IdOrganisme.value = cpIdOrganisme end if end sub --> </SCRIPT> <SCRIPT language=vbscript event=onchange for=IdLigueCombo> <!-- with msodsc.CurrentSection.DataPage.Recordset ("IdLigue") if (IdLigueCombo.value = 0) then .Value = Null else .Value = IdLigueCombo.value end if end with --> </SCRIPT> <SCRIPT language=vbscript event=onchange for=ComboIdOrganisme> <!-- MSODSC.CurrentSection.DataPage.Save SetCookie_1an "IdOrganisme", ComboIdOrganisme.value window.location.reload() --> </SCRIPT> <SCRIPT language=vbscript event=onchange for=ComboIdDiscipline> <!-- MSODSC.CurrentSection.DataPage.Save SetCookie "IdDiscipline", ComboIdDiscipline.value window.location.reload() --> </SCRIPT> <SCRIPT language=vbscript event=onchange for=ComboIdLigue> <!-- MSODSC.CurrentSection.DataPage.Save SetCookie "IdLigue", ComboIdLigue.value window.location.reload() --> </SCRIPT> <SCRIPT language=vbscript event=onchange for=ComboIdOfficiel> <!-- '0 = Skip zero records before starting the search. '1 = Search in a forward direction. '1 = Always begin the search with the first record in the recordset. on error resume next MSODSC.CurrentSection.DataPage.recordset.Find "IdOfficiel = " & ComboIdOfficiel.value, 0, 1, 1 if (Err.number <> 0) then MsgBox "Erreur # " & CStr(Err.Number) & " : " & Err.Description Err.Clear else ' setTimeout "MSODSC.CurrentSection.DataPage.Undo", 1, "vbscript" setTimeout "MSODSC.CurrentSection.DataPage.Save", 1, "vbscript" end if --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=cmdFirst> <!-- MSODSC.CurrentSection.DataPage.MoveFirst --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=cmdPrevious> <!-- ' Gestion d'erreur n�cessaire si on est d�j� au premier record. on error resume next MSODSC.CurrentSection.DataPage.MovePrevious --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=cmdNext> <!-- ' Gestion d'erreur n�cessaire si on est d�j� au dernier record. on error resume next MSODSC.CurrentSection.DataPage.MoveNext --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=cmdLast> <!-- ' on error resume next MSODSC.CurrentSection.DataPage.MoveLast --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=cmdNew> <!-- ' on error resume next ' MSODSC.CurrentSection.DataPage.Save MSODSC.CurrentSection.DataPage.NewRecord() --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=btnSauvegardeRecord> <!-- MSODSC.CurrentSection.DataPage.Save --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=btnDetruitFiche> <!-- MSODSC.CurrentSection.DataPage.DeleteRecord --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=btnSauvegardePosition> <!-- msgbox "Fonction non disponible." --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=btnUndo> <!-- MSODSC.CurrentSection.DataPage.Undo --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=btnFermer> <!-- msgbox "Fonction non disponible." --> </SCRIPT> <SCRIPT language=vbscript event=onclick for=btnAide> <!-- msgbox "Fonction non disponible." ' AideItemHTML ("Officiels.htm") --> </SCRIPT> <SCRIPT language=vbscript event=AfterUpdate for=MSODSC> <!-- --> </SCRIPT> </HEAD> <BODY style="OVERFLOW: auto" vLink=#800080 link=#0000ff> <DIV class=Mso2dSectionBanner id=Captionqf_OffBanner style="WIDTH: 6.667in" tabIndex=-1><SPAN id=Captionqf_OffBannerCaption>Caption: qf_Off</SPAN></DIV> <DIV class=Mso2dSection id=Captionqf_Off style="VISIBILITY: inherit; WIDTH: 6.667in; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; HEIGHT: 1.167in; BACKGROUND-COLOR: #ece9d8; BORDER-BOTTOM-STYLE: none"><SELECT class=Style0 id=ComboIdDiscipline style="Z-INDEX: 2; LEFT: 0.979in; WIDTH: 3in; POSITION: absolute; TOP: 0.354in; HEIGHT: 0.191in" tabIndex=1></SELECT> <SPAN class="MSTheme-Label Style1" id=Label16 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 1; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.733in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.354in; HEIGHT: 0.191in" MsoTextAlign="General">Discipline : </SPAN><SELECT class=Style2 id=ComboIdLigue style="Z-INDEX: 4; LEFT: 0.979in; WIDTH: 3.5in; POSITION: absolute; TOP: 0.625in; HEIGHT: 0.191in" tabIndex=2 MsoTextAlign="General" onserverclick="test(3)" onserverchange="test(1)"></SELECT> <SPAN class="MSTheme-Label Style1" id=Label21 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 3; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.458in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.625in; HEIGHT: 0.191in" MsoTextAlign="General">Ligue : </SPAN><SELECT class=Style2 id=ComboIdOfficiel style="Z-INDEX: 8; LEFT: 0.979in; WIDTH: 3in; POSITION: absolute; TOP: 0.895in; HEIGHT: 0.191in" tabIndex=3 MsoTextAlign="General"></SELECT> <SPAN class="MSTheme-Label Style1" id=Label33 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 7; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.558in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.895in; HEIGHT: 0.191in" MsoTextAlign="General">Officiel : </SPAN><IMG class=Style3 id=Image70 title="Indique que le comboBox � gauche est une recherche." style="Z-INDEX: 9; LEFT: 4.083in; WIDTH: 0.141in; POSITION: absolute; TOP: 0.937in; HEIGHT: 0.133in" src="Images\Image70.bmp"><BUTTON class=Style4 id=cmdLast title="Derni�re fiche" style="Z-INDEX: 22; LEFT: 5.833in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.25in; HEIGHT: 0.3in" tabIndex=19><IMG src="Images\cmdLast.bmp"></BUTTON><BUTTON class=Style4 id=cmdNext title="Fiche suivante" style="Z-INDEX: 21; LEFT: 5.525in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.25in; HEIGHT: 0.3in" tabIndex=18><IMG src="Images\cmdNext.bmp"></BUTTON><BUTTON class=Style4 id=cmdPrevious title="Fiche pr�c�dente" style="Z-INDEX: 20; LEFT: 5.167in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.25in; HEIGHT: 0.3in" tabIndex=17><IMG src="Images\cmdPrevious.bmp"></BUTTON><BUTTON class=Style4 id=cmdFirst title="Premi�re fiche" style="Z-INDEX: 19; LEFT: 4.858in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.25in; HEIGHT: 0.3in" tabIndex=16><IMG src="Images\cmdFirst.bmp"></BUTTON><BUTTON class=Style4 id=cmdNew title="Nouvelle fiche" style="Z-INDEX: 24; LEFT: 6.208in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.25in; HEIGHT: 0.3in" tabIndex=21><IMG src="Images\cmdNew.bmp"></BUTTON><BUTTON class=Style4 id=btnAide title="Fichier d'aide" style="Z-INDEX: 10; LEFT: 6.25in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.645in; HEIGHT: 0.3in" tabIndex=9><IMG src="Images\btnAide.bmp"></BUTTON><BUTTON class=Style4 id=btnFermer title="Ferme la fen�tre" style="Z-INDEX: 12; LEFT: 5.895in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.645in; HEIGHT: 0.3in" tabIndex=8><IMG src="Images\btnFermer.bmp"></BUTTON><BUTTON class=Style4 id=btnDetruitFiche title="D�truit la fiche courante" style="Z-INDEX: 13; LEFT: 5.187in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.645in; HEIGHT: 0.3in" tabIndex=6><IMG src="Images\btnDetruitFiche.bmp"></BUTTON><BUTTON class=Style4 id=btnSauvegardeRecord title="Sauvegarde la fiche courante" style="Z-INDEX: 14; LEFT: 4.833in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.645in; HEIGHT: 0.3in" tabIndex=5><IMG src="Images\btnSauvegardeRecord.bmp"></BUTTON><BUTTON class=Style4 id=btnUndo title="Annule les modifications apport�es" style="Z-INDEX: 15; LEFT: 5.541in; WIDTH: 0.3in; POSITION: absolute; TOP: 0.645in; HEIGHT: 0.3in" tabIndex=7><IMG src="C:\Sylvain\Travail\LigueXpert\LigueXpertCS3\DAP\Images\btnUndo.bmp"></BUTTON> <SELECT class=Style2 id=ComboIdOrganisme style="Z-INDEX: 17; LEFT: 0.979in; WIDTH: 2.437in; POSITION: absolute; TOP: 0.083in; HEIGHT: 0.191in" tabIndex=0 MsoTextAlign="General"></SELECT> <SPAN class="MSTheme-Label Style1" id=Label58 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 16; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.8in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.083in; HEIGHT: 0.191in" MsoTextAlign="General">Organisme : </SPAN></DIV> <DIV class=Mso2dSectionBanner id=Headerqf_OffBanner style="WIDTH: 6.667in" tabIndex=-1><SPAN id=Headerqf_OffBannerCaption>Header: qf_Off</SPAN></DIV> <DIV class=Mso2dSection id=Headerqf_Off style="VISIBILITY: inherit; WIDTH: 6.667in; BORDER-TOP-STYLE: none; BORDER-BOTTOM: black 1px solid; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; HEIGHT: 2.583in; BACKGROUND-COLOR: #ece9d8"><TEXTAREA class="MsoTextbox Style6" id=Nom style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 2; LEFT: 0.915in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 2.25in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.104in; HEIGHT: 0.191in" tabIndex=1 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label3 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 1; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.333in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.104in; HEIGHT: 0.191in" MsoTextAlign="General">Nom </SPAN><TEXTAREA class="MsoTextbox Style6" id=Prenom style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 4; LEFT: 4.045in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 1.433in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.104in; HEIGHT: 0.191in" tabIndex=2 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label4 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 3; LEFT: 3.437in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.525in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.104in; HEIGHT: 0.191in" MsoTextAlign="General">Pr�nom </SPAN><TEXTAREA class="MsoTextbox Style6" id=Adresse style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 6; LEFT: 0.915in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 3.666in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.375in; HEIGHT: 0.191in" tabIndex=3 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label5 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 5; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.558in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.375in; HEIGHT: 0.191in" MsoTextAlign="General">Adresse </SPAN><TEXTAREA class="MsoTextbox Style6" id=Ville style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 8; LEFT: 0.915in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 2.25in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.645in; HEIGHT: 0.191in" tabIndex=4 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label6 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 7; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.308in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.645in; HEIGHT: 0.191in" MsoTextAlign="General">Ville </SPAN><TEXTAREA class="MsoTextbox Style6" id=Province style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 10; LEFT: 0.915in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 2.25in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.916in; HEIGHT: 0.191in" tabIndex=6 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label7 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 9; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.583in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.916in; HEIGHT: 0.191in" MsoTextAlign="General">Province </SPAN><TEXTAREA class="MsoTextbox Style6" id=CodePostal style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 12; LEFT: 4.854in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.625in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.645in; HEIGHT: 0.191in" tabIndex=5 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label8 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 11; LEFT: 3.979in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.775in; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.645in; HEIGHT: 0.191in" MsoTextAlign="General">Code postal </SPAN><TEXTAREA class="MsoTextbox Style6" id=TelBureau style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 14; LEFT: 0.915in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 1in; PADDING-TOP: 1px; POSITION: absolute; TOP: 1.187in; HEIGHT: 0.191in" tabIndex=7 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label9 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 13; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.725in; PADDING-TOP: 1px; POSITION: absolute; TOP: 1.187in; HEIGHT: 0.191in" MsoTextAlign="General">T�l. bureau </SPAN><TEXTAREA class="MsoTextbox Style6" id=ExtBureau style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 16; LEFT: 2.625in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.375in; PADDING-TOP: 1px; POSITION: absolute; TOP: 1.187in; HEIGHT: 0.191in" tabIndex=8 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label10 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 15; LEFT: 2.145in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.4in; PADDING-TOP: 1px; POSITION: absolute; TOP: 1.187in; HEIGHT: 0.191in" MsoTextAlign="General">Poste </SPAN><TEXTAREA class="MsoTextbox Style6" id=TelMaison style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 18; LEFT: 4.479in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 1in; PADDING-TOP: 1px; POSITION: absolute; TOP: 1.187in; HEIGHT: 0.191in" tabIndex=9 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label11 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 17; LEFT: 3.458in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.908in; PADDING-TOP: 1px; POSITION: absolute; TOP: 1.187in; HEIGHT: 0.191in" MsoTextAlign="General">T�l. r�sidence </SPAN><TEXTAREA class="MsoTextbox Style6" id=Courriel style="BORDER-RIGHT: 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: 1px solid; PADDING-LEFT: 1px; Z-INDEX: 20; LEFT: 0.915in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; BORDER-LEFT: 1px solid; WIDTH: 2.25in; PADDING-TOP: 1px; BORDER-BOTTOM: 1px solid; POSITION: absolute; TOP: 1.458in; HEIGHT: 0.191in" tabIndex=10 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label12 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 19; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.533in; PADDING-TOP: 1px; POSITION: absolute; TOP: 1.458in; HEIGHT: 0.191in" MsoTextAlign="General">Courriel </SPAN><TEXTAREA class="MsoTextbox Style6" id=NoOfficiel style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 22; LEFT: 0.915in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.5in; PADDING-TOP: 1px; POSITION: absolute; TOP: 2.291in; HEIGHT: 0.191in" tabIndex=13 MsoTextAlign="General"></TEXTAREA> <SPAN class="MSTheme-Label Style1" id=Label13 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 21; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.658in; PADDING-TOP: 1px; POSITION: absolute; TOP: 2.291in; HEIGHT: 0.191in" MsoTextAlign="General">N� officiel </SPAN><SELECT class=Style2 id=IdDisciplineCombo style="Z-INDEX: 24; LEFT: 0.915in; WIDTH: 1in; POSITION: absolute; TOP: 1.729in; HEIGHT: 0.191in" tabIndex=11 MsoTextAlign="General"></SELECT> <SPAN class="MSTheme-Label Style1" id=Label18 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 23; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.658in; PADDING-TOP: 1px; POSITION: absolute; TOP: 1.729in; HEIGHT: 0.191in" MsoTextAlign="General">Discipline </SPAN><SELECT class=Style2 id=IdLigueCombo style="Z-INDEX: 26; LEFT: 0.915in; WIDTH: 3.5in; POSITION: absolute; TOP: 2.02in; HEIGHT: 0.191in" tabIndex=12 MsoTextAlign="General"></SELECT> <SPAN class="MSTheme-Label Style1" id=Label20 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 25; LEFT: 0.104in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.383in; PADDING-TOP: 1px; POSITION: absolute; TOP: 2.02in; HEIGHT: 0.191in" MsoTextAlign="General">Ligue </SPAN><SPAN class="MSTheme-Label Style8" id=Label22 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 27; LEFT: 2.041in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.666in; PADDING-TOP: 1px; POSITION: absolute; TOP: 1.75in; HEIGHT: 0.158in" MsoTextAlign="General">(facultative) </SPAN><SPAN class="MSTheme-Label Style8" id=Label25 style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; Z-INDEX: 28; LEFT: 4.541in; PADDING-BOTTOM: 1px; OVERFLOW: hidden; WIDTH: 0.666in; PADDING-TOP: 1px; POSITION: absolute; TOP: 2.041in; HEIGHT: 0.158in" MsoTextAlign="General">(facultative) </SPAN><SPAN class=MSTheme-Label id=IdOfficiel_Label style="LEFT: 3.458in; OVERFLOW: hidden; WIDTH: 65px; POSITION: absolute; TOP: 1.708in; HEIGHT: 18px">IdOfficiel:</SPAN><TEXTAREA class=MsoTextbox id=IdOfficiel style="BORDER-RIGHT: red 1px solid; BORDER-TOP: red 1px solid; Z-INDEX: 29; LEFT: 4.25in; OVERFLOW: hidden; BORDER-LEFT: red 1px solid; WIDTH: 0.58in; BORDER-BOTTOM: red 1px solid; POSITION: absolute; TOP: 1.708in; HEIGHT: 0.167in" disabled tabIndex=15 readOnly cols=10 MsoTextAlign="General"></TEXTAREA><SPAN class=MSTheme-Label id=IdOrganisme_Label style="Z-INDEX: 30; LEFT: 3.458in; OVERFLOW: hidden; WIDTH: 85px; POSITION: absolute; TOP: 1.5in; HEIGHT: 18px">IdOrganisme:</SPAN><TEXTAREA class=MsoTextbox id=IdOrganisme style="BORDER-RIGHT: red 1px solid; BORDER-TOP: red 1px solid; Z-INDEX: 31; LEFT: 4.25in; OVERFLOW: hidden; BORDER-LEFT: red 1px solid; WIDTH: 0.587in; BORDER-BOTTOM: red 1px solid; POSITION: absolute; TOP: 1.5in; HEIGHT: 0.167in" disabled tabIndex=22 readOnly cols=9 MsoTextAlign="General"></TEXTAREA><SPAN class=MSTheme-Label id=IdDiscipline_Label style="Z-INDEX: 32; LEFT: 5in; OVERFLOW: hidden; WIDTH: 79px; POSITION: absolute; TOP: 1.5in; HEIGHT: 18px">IdDiscipline:</SPAN><TEXTAREA class=MsoTextbox id=IdDiscipline style="BORDER-RIGHT: red 1px solid; BORDER-TOP: red 1px solid; Z-INDEX: 33; LEFT: 5.75in; OVERFLOW: hidden; BORDER-LEFT: red 1px solid; WIDTH: 0.587in; BORDER-BOTTOM: red 1px solid; POSITION: absolute; TOP: 1.5in; HEIGHT: 0.167in" disabled tabIndex=23 readOnly cols=9 MsoTextAlign="General"></TEXTAREA><SPAN class=MSTheme-Label id=IdLigue_Label style="Z-INDEX: 34; LEFT: 5in; OVERFLOW: hidden; WIDTH: 56px; POSITION: absolute; TOP: 1.708in; HEIGHT: 18px" ACCESS_CLIPBOARD_ATTRIBUTE=" " ACCESS_CLIPBOARD_NOCOPY="YES">IdLigue:</SPAN><TEXTAREA class=MsoTextbox id=IdLigue style="BORDER-RIGHT: red 1px solid; BORDER-TOP: red 1px solid; Z-INDEX: 35; LEFT: 5.75in; OVERFLOW: hidden; BORDER-LEFT: red 1px solid; WIDTH: 0.587in; BORDER-BOTTOM: red 1px solid; POSITION: absolute; TOP: 1.708in; HEIGHT: 0.167in" disabled tabIndex=24 readOnly cols=9 MsoTextAlign="General"></TEXTAREA></DIV> <DIV class=Mso2dSectionBanner id=Navigationqf_OffBanner style="WIDTH: 6.667in" tabIndex=-1><SPAN id=Navigationqf_OffBannerCaption>Navigation: qf_Off</SPAN></DIV> <DIV class=Mso2dSection id=Navigationqf_Off style="VISIBILITY: inherit; WIDTH: 6.667in; POSITION: relative; HEIGHT: 0.458in"> <TABLE class=MsoNavContainer id=qf_OffNavigation style="LEFT: 5px; WIDTH: 6.625in; POSITION: absolute; TOP: 5px" cellSpacing=0 cellPadding=0> <TBODY> <TR> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavFirst id=qf_OffNavFirst tabIndex=1 height=20 src="owc://GIF/#11200" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavPrevious id=qf_OffNavPrevious tabIndex=2 height=20 src="owc://GIF/#11202" width=20></TD> <TD style="VERTICAL-ALIGN: middle; WIDTH: 100%; TEXT-ALIGN: center" noWrap><SPAN class=MsoNavRecordsetLabel id=qf_OffNavLabel style="VISIBILITY: hidden">qf_Off |0-|1 of |2</SPAN></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavNext id=qf_OffNavNext tabIndex=4 height=20 src="owc://GIF/#11204" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavLast id=qf_OffNavLast tabIndex=5 height=20 src="owc://GIF/#11206" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavAddNew id=qf_OffNavNew tabIndex=6 height=20 src="owc://GIF/#11208" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavDelete id=qf_OffNavDelete tabIndex=7 height=20 src="owc://GIF/#11210" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavSave id=qf_OffNavSave tabIndex=8 height=20 src="owc://GIF/#11214" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavUndo id=qf_OffNavUndo tabIndex=9 height=20 src="owc://GIF/#11212" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavSortAsc id=qf_OffNavSortAscending tabIndex=10 height=20 src="owc://GIF/#11216" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavSortDesc id=qf_OffNavSortDescending tabIndex=11 height=20 src="owc://GIF/#11218" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavFilter id=qf_OffNavFilterBySelection tabIndex=12 height=20 src="owc://GIF/#11220" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavToggleFilter id=qf_OffNavFilterToggle tabIndex=13 height=20 src="owc://GIF/#11222" width=20></TD> <TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG class=MsoNavHelp id=qf_OffNavHelp tabIndex=14 height=20 src="owc://GIF/#11224" width=20></TD></TR></TBODY></TABLE></DIV><!-- ---------- BEGIN VBA CODE ---------- Private Sub Form_BeforeInsert(Cancel As Integer) DesactiveControle Me.IdLigue Me.[IdOrganisme] = Me.ComboIdOrganisme End Sub Private Sub Form_AfterInsert() Me.ComboIdOfficiel.Requery End Sub Private Sub Form_AfterUpdate() If (Me.Nom.OldValue <> Me.Nom.Value Or (Me.Prenom.OldValue <> Me.Prenom.Value)) Then Me.ComboIdOfficiel.Requery End If End Sub ----------- END VBA CODE ----------- --></BODY></HTML> My advice: stop trying using DAP if possible as they are too difficult to work with. -- Sylvain Lafontaine, ing. MVP - Windows Live Platform Blog/web site: coding-paparazzi.sylvainlafontaine.com Independent consultant and remote programming for Access and SQL-Server (French) "Agnelo Fernandes" <AgneloFernandes(a)discussions.microsoft.com> wrote in message news:40B51D14-F0B6-4FB8-A477-D41A8A32B17C(a)microsoft.com... > In DAP, can I have 1 control [courses] affect other 2 controls > [course_date_1st_choice] and [course_date_2nd_choice]. > > I usually do this in Form by using Select Case but i need to know how i > can > manage to do it in DAP. > > Any help please?
From: Ken Snell on 21 Nov 2009 22:01 My recommendation is similar to Sylvain's. Don't try to use DAP for this; refreshing a page and changing the data is not easy to do. If you really need to do this, then I'd suggest using cascading pages... first page lets you set the first combobox, then navigate to second page where you use the second combobox, where's its data have been filtered by the value of the combobox on the first page. This can be done using cookies. I have a sample database that shows how to use one page to filter the recordset of a second page. It could serve as an example of how you might do what you seek, but I admit upfront that I've never tried to do what you want to do. Data Access Page: Use DAP to filter a subsequent DAP http://www.accessmvp.com/KDSnell/SampleDBs.htm#FilterDAP -- Ken Snell http://www.accessmvp.com/KDSnell/ "Agnelo Fernandes" <AgneloFernandes(a)discussions.microsoft.com> wrote in message news:35FF4D7D-F14D-4F6F-B418-D5090C7A66E0(a)microsoft.com... > In DAP, can I have 1 control [courses] affect other 2 controls > [course_date_1st_choice] and [course_date_2nd_choice]. > > I usually do this in Form by using Select Case but i need to know how i > can > manage to do it in DAP. > > Any help please?
|
Pages: 1 Prev: How can I make a timecard from Microsoft I need it to print Name a Next: BOILO |