asked on

VBA (MsAccess) to HTML - Help!!!

Hi,

I hope this is the place to ask this question.

I used MsAccess to creat an HTML file (data access page)
I have a table (Account) and 2 forms (Account & Login) that I saved as "Data access pages" (HTML files).

On opening the forms they are "going" to a "new record" but the html page are not.
I could do it and I don't know how to do it.
There is the code for a page named Login.htm:
==========================
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML XMLNS:o="urn:schemas-microsoft-com:office:office"
XMLNS:x="urn:schemas-microsoft-com:office:excel"
XMLNS:a="urn:schemas-microsoft-com:office:access"
XMLNS:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"
xmlns="http://www.w3.org/TR/REC-html40" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:a =
"urn:schemas-microsoft-com:office:access"><HEAD>
<META content="HTML 4.0" name=vs_targetSchema><LINK
href="Login_files/filelist.xml" rel=File-List
type=text/xml><TITLE>LoginPage</TITLE>
<META content=Access.Application name=ProgId>
<META name=VBSForEventHandlers value="true">
<META content=text/html;charset=UTF-8 http-equiv=Content-Type>
<META content=10.00.2225 name=DesignerVersion>
<OBJECT classid=CLSID:0002E553-0000-0000-C000-000000000046 id=MSODSC
tabIndex=-1><PARAM NAME="XMLData" VALUE="<xml xmlns:a="urn:schemas-microsoft-com:office:access">
 <a:DataSourceControl>
 <a:OWCVersion>10.0.0.2621 </a:OWCVersion>
 <a:ConnectionString>Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\My Documents\db1.mdb;Mode=Share Deny None;Extended Properties=&quot;&quot;;Persist Security Info=False;Jet OLEDB:System database=&quot;&quot;;Jet OLEDB:Registry Path=&quot;&quot;;Jet OLEDB:Database Password=&quot;&quot;;Jet OLEDB:Engine Type=0;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=&quot;&quot;;Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False</a:ConnectionString>
 <a:MaxRecords>10000</a:MaxRecords>
 <a:GridX>24</a:GridX>
 <a:GridY>24</a:GridY>
 <a:OfflineType>2</a:OfflineType>
 <a:XMLLocation>0</a:XMLLocation>
 <a:XMLDataTarget></a:XMLDataTarget>
 <a:ConnectionFile></a:ConnectionFile>
 <a:ElementExtension>
 <a:ElementID>AccountPassword</a:ElementID>
 <a:ControlSource>AccountPassword</a:ControlSource>
 <a:ChildLabel>Label3</a:ChildLabel>
 </a:ElementExtension>
 <a:ElementExtension>
 <a:ElementID>AccountName</a:ElementID>
 <a:ControlSource>AccountName</a:ControlSource>
 <a:ChildLabel>Label5</a:ChildLabel>
 </a:ElementExtension>
 <a:GroupLevel>
 <a:RecordSource>Accounts</a:RecordSource>
 <a:DefaultSort></a:DefaultSort>
 <a:HeaderElementId>HeaderAccounts</a:HeaderElementId>
 <a:FooterElementId></a:FooterElementId>
 <a:CaptionElementId></a:CaptionElementId>
 <a:RecordNavigationElementId></a:RecordNavigationElementId>
 <a:DataPageSize>1</a:DataPageSize>
 <a:GroupFilterControl></a:GroupFilterControl>
 </a:GroupLevel>
 <a:Datamodel a:version="0816">
 <a:SchemaRowsource a:id="Accounts" a:type="dscTable">
 <a:SchemaField a:id="AccountID" a:datatype="3" a:size="0" a:iskey="1"/>
 <a:SchemaField a:id="AccountName" a:datatype="130" a:size="50"/>
 <a:SchemaField a:id="AccountPassword" a:datatype="130" a:size="50"/>
 <a:SchemaField a:id="e-mailAddress" a:datatype="130" a:size="50"/>
 <a:SchemaField a:id="City" a:datatype="130" a:size="50"/>
 <a:SchemaField a:id="Country" a:datatype="130" a:size="255"/>
 <a:SchemaField a:id="Notes" a:datatype="203" a:size="0"/>
 </a:SchemaRowsource>
 <a:RecordsetDef a:id="Accounts">
 <a:PageField a:id="AccountID"/>
 <a:PageField a:id="AccountName"/>
 <a:PageField a:id="AccountPassword"/>
 <a:PageField a:id="e-mailAddress"/>
 <a:PageField a:id="City"/>
 <a:PageField a:id="Country"/>
 <a:PageField a:id="Notes"/>
 </a:RecordsetDef>
 </a:Datamodel>
 </a:DataSourceControl>
</xml>"></OBJECT>
<STYLE id=MSODAPDEFAULTS type=text/css>.MSTheme-Label {
      BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px; FONT-FAMILY: Tahoma; FONT-SIZE: 8pt; HEIGHT: 0.156in; OVERFLOW: visible; PADDING-LEFT: 3px; PADDING-RIGHT: 3px; TEXT-ALIGN: left; WIDTH: 1in
}
.MsoTextbox {
      FONT-FAMILY: Tahoma; FONT-SIZE: 8pt; HEIGHT: 0.197in; OVERFLOW: hidden; PADDING-LEFT: 3px; PADDING-RIGHT: 3px; WIDTH: 1in
}
.MsoBoundSpan {
      BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px; FONT-FAMILY: Tahoma; FONT-SIZE: 8pt; OVERFLOW: hidden; PADDING-LEFT: 3px; PADDING-RIGHT: 3px; TEXT-ALIGN: left
}
.MsoHyperlinkDisplayText {
      BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px; CURSOR: hand; FONT-FAMILY: Tahoma; FONT-SIZE: 8pt; OVERFLOW: hidden; PADDING-LEFT: 3px; PADDING-RIGHT: 3px; TEXT-ALIGN: left
}
.Mso2dSection {
      BACKGROUND-COLOR: transparent; BEHAVIOR: url(#DEFAULT#Mso2dSection); LEFT: 0px; OVERFLOW: hidden; POSITION: relative; TOP: 0px
}
.Mso2dSectionBanner {
      BACKGROUND-COLOR: buttonface; BEHAVIOR: url(#DEFAULT#Mso2dSectionBanner); DISPLAY: none; FONT-FAMILY: Tahoma; FONT-SIZE: 8pt; FONT-WEIGHT: normal; HEIGHT: 0.2in; LEFT: 0px; PADDING-LEFT: 4px; PADDING-RIGHT: 4px; PADDING-TOP: 2px; TOP: 0px
}
.MsoRectangle {
      BORDER-BOTTOM: black 1px solid; BORDER-LEFT: black 1px solid; BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; OVERFLOW: hidden
}
.MsoTitle {
      COLOR: inactivecaptiontext; DISPLAY: none; FONT-WEIGHT: normal
}
.MsoExpandCollapse {
      CURSOR: hand
}
.MsoNavContainer {
      BACKGROUND-COLOR: gainsboro; BORDER-BOTTOM: gainsboro 1px solid; BORDER-LEFT: gainsboro 1px solid; BORDER-RIGHT: gainsboro 1px solid; BORDER-TOP: gainsboro 1px solid; CURSOR: hand; HEIGHT: 25px; POSITION: absolute; Z-INDEX: -1
}
.MsoNavButton {
      BACKGROUND-REPEAT: no-repeat; BORDER-BOTTOM: gainsboro 1px solid; BORDER-LEFT: gainsboro 1px solid; BORDER-RIGHT: gainsboro 1px solid; BORDER-TOP: gainsboro 1px solid; CURSOR: auto
}
.MsoNavButtonMouseOver {
      BACKGROUND-COLOR: buttonhighlight; BORDER-BOTTOM: highlight 1px solid; BORDER-LEFT: highlight 1px solid; BORDER-RIGHT: highlight 1px solid; BORDER-TOP: highlight 1px solid
}
.MsoNavToggleButtonMouseOver {
      BACKGROUND-COLOR: buttonhighlight; BACKGROUND-REPEAT: no-repeat; BORDER-BOTTOM: highlight 1px solid; BORDER-LEFT: highlight 1px solid; BORDER-RIGHT: highlight 1px solid; BORDER-TOP: highlight 1px solid
}
.MsoNavButtonMouseDown {
      BACKGROUND-COLOR: buttonshadow; BORDER-BOTTOM: buttonshadow 1px solid; BORDER-LEFT: buttonshadow 1px solid; BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; CURSOR: hand
}
.MsoNavRecordsetLabel {
      BORDER-BOTTOM: gainsboro 1px solid; BORDER-LEFT: gainsboro 1px solid; BORDER-RIGHT: gainsboro 1px solid; BORDER-TOP: gainsboro 1px solid; CURSOR: default; FONT-FAMILY: Tahoma; FONT-SIZE: 8pt; OVERFLOW: hidden; PADDING-LEFT: 0px; PADDING-TOP: 0px; WIDTH: 100%
}
.MsoRecordSelector {
      BACKGROUND-COLOR: gainsboro; BORDER-BOTTOM: buttonshadow 1px solid; BORDER-LEFT: buttonshadow 1px solid; BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; HEIGHT: 100%; OVERFLOW: hidden; WIDTH: 0.17in
}
.MsoRecordSelectorCurrent {
      BACKGROUND-IMAGE: url(owc://GIF/#11240); BACKGROUND-POSITION: 1px 0px; BACKGROUND-REPEAT: no-repeat
}
.MsoRecordSelectorSelectedImage {
      BACKGROUND-IMAGE: url(owc://GIF/#11241); BACKGROUND-POSITION: 1px 0px; BACKGROUND-REPEAT: no-repeat
}
.MsoRecordSelectorSelected {
      BACKGROUND-COLOR: buttonshadow; BORDER-BOTTOM: buttonshadow 1px solid; BORDER-LEFT: buttonshadow 1px solid; BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; HEIGHT: 100%; LEFT: 0px; OVERFLOW: hidden; TOP: 0px; WIDTH: 0.17in; POSTION: relative
}
.MsoRecordSelectorDirty {
      BACKGROUND-IMAGE: url(owc://GIF/#11242); BACKGROUND-POSITION: -1px 0px; BACKGROUND-REPEAT: no-repeat
}
.MsoRecordSelectorTransparent {
      LEFT: 0px; OVERFLOW: hidden; TOP: 0px; WIDTH: 0.17in; POSTION: relative
}
HR {
      COLOR: black
}
SELECT {
      FONT-FAMILY: Tahoma; FONT-SIZE: 8pt
}
INPUT {
      FONT-FAMILY: Tahoma; FONT-SIZE: 8pt
}
BODY {
      FONT-FAMILY: Tahoma; FONT-SIZE: 10pt
}
MARQUEE {
      FONT-FAMILY: Tahoma; FONT-SIZE: 8pt
}
LEGEND {
      FONT-FAMILY: Tahoma; FONT-SIZE: 8pt
}
BUTTON {
      FONT-FAMILY: Tahoma; FONT-SIZE: 8pt
}
TEXTAREA {
      FONT-FAMILY: Tahoma; FONT-SIZE: 8pt
}
.Style0 {
      BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: transparent 2px inset; BORDER-LEFT: transparent 2px inset; BORDER-RIGHT: transparent 2px inset; BORDER-TOP: transparent 2px inset; COLOR: #000000; FONT-FAMILY: Tahoma; FONT-SIZE: 8pt; FONT-STYLE: normal; FONT-WEIGHT: 400; VISIBILITY: visible; WRITING-MODE: lr-tb
}
.Style1 {
      BACKGROUND-COLOR: transparent; BORDER-BOTTOM: #000000 1px; BORDER-LEFT: #000000 1px; BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; COLOR: #000000; FONT-FAMILY: Tahoma; FONT-SIZE: 8pt; FONT-STYLE: normal; FONT-WEIGHT: 400; VISIBILITY: visible; WRITING-MODE: lr-tb
}
.Style2 {
      COLOR: #000000; FONT-FAMILY: Tahoma; FONT-SIZE: 8pt; FONT-STYLE: normal; FONT-WEIGHT: 400; VISIBILITY: visible
}
.Style3 {
      BACKGROUND-COLOR: #ffff80; BORDER-BOTTOM: transparent 2px outset; BORDER-LEFT: transparent 2px outset; BORDER-RIGHT: transparent 2px outset; BORDER-TOP: transparent 2px outset; COLOR: #800040; FONT-FAMILY: Tahoma; FONT-SIZE: 36pt; FONT-STYLE: normal; FONT-WEIGHT: 400; TEXT-ALIGN: justify; VISIBILITY: visible; WRITING-MODE: lr-tb
}
.Style4 {
      BACKGROUND-COLOR: transparent; BORDER-BOTTOM: #000000 1px; BORDER-LEFT: #000000 1px; BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; VISIBILITY: visible
}
.Style5 {
      BACKGROUND-COLOR: transparent; BORDER-BOTTOM: #000000 1px; BORDER-LEFT: #000000 1px; BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; FONT-FAMILY: Tahoma; FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-WEIGHT: 400; TEXT-ALIGN: center; VISIBILITY: visible; WRITING-MODE: lr-tb
}
</STYLE>

<META content="MSHTML 5.00.2919.6307" name=GENERATOR>
<SCRIPT id=MSODSC_Validation language=Javascript>
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>
</HEAD>
<BODY link=#0000ff style="OVERFLOW: auto" vLink=#800080>
<DIV class=Mso2dSectionBanner id=HeaderAccountsBanner style="WIDTH: 9.833in"
tabIndex=-1><SPAN id=HeaderAccountsBannerCaption>Header: Accounts</SPAN></DIV>
<DIV class=Mso2dSection id=HeaderAccounts
style="BACKGROUND-COLOR: #bfc0c1; BORDER-BOTTOM-STYLE: inset; BORDER-LEFT-STYLE: inset; BORDER-RIGHT-STYLE: inset; BORDER-TOP-STYLE: inset; HEIGHT: 6.166in; WIDTH: 9.833in"><TEXTAREA class="MsoTextbox Style0" id=AccountPassword style="HEIGHT: 0.187in; LEFT: 7.114in; OVERFLOW: hidden; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; POSITION: absolute; TOP: 4.489in; WIDTH: 1.75in; Z-INDEX: 2" tabIndex=1 title="Your Password" MsoTextAlign="General"></TEXTAREA>
<SPAN class="MSTheme-Label Style1" id=Label3
style="HEIGHT: 0.166in; LEFT: 5.875in; OVERFLOW: hidden; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; POSITION: absolute; TOP: 4.5in; WIDTH: 0.968in; Z-INDEX: 1"
MsoTextAlign="General">Account Password </SPAN><TEXTAREA class="MsoTextbox Style0" id=AccountName style="HEIGHT: 0.187in; LEFT: 7.114in; OVERFLOW: hidden; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; POSITION: absolute; TOP: 4.239in; WIDTH: 1.75in; Z-INDEX: 4" tabIndex=0 title="Your Login Name" MsoTextAlign="General"></TEXTAREA>
<SPAN class="MSTheme-Label Style1" id=Label5
style="HEIGHT: 0.166in; LEFT: 5.875in; OVERFLOW: hidden; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; POSITION: absolute; TOP: 4.25in; WIDTH: 0.958in; Z-INDEX: 3"
MsoTextAlign="General">Account Name </SPAN><BUTTON class=Style2 id=Submit
style="HEIGHT: 0.4in; LEFT: 7.125in; POSITION: absolute; TOP: 4.791in; WIDTH: 1.712in; Z-INDEX: 5"
tabIndex=2 title=Enter><IMG src="Images\Submit.bmp"></BUTTON> <SPAN
class="MSTheme-Label Style3" id=Welcome
style="HEIGHT: 0.812in; LEFT: 0.406in; OVERFLOW: hidden; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; POSITION: absolute; TOP: 0.322in; WIDTH: 8.895in; Z-INDEX: 6">PAPA
FORUM </SPAN><IMG class=Style4 id=Image16 src="Images\Image16.bmp"
style="HEIGHT: 3.625in; LEFT: 2.5in; POSITION: absolute; TOP: 1.416in; WIDTH: 2.291in; Z-INDEX: 7">
<A href="Registration.htm" id=Label19_Anchor><SPAN
class="MsoHyperlinkDisplayText Style5" id=Label19
style="HEIGHT: 0.208in; LEFT: 7.166in; OVERFLOW: hidden; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; POSITION: absolute; TOP: 5.291in; WIDTH: 1.625in; Z-INDEX: 8">Inquiries
by non members </SPAN></A></DIV></BODY></HTML>

=====================================

I want that: when I load (open) this page the record will not show the first record (as it is now) it will show a blank new record.

For any help - thanks!

ASKER CERTIFIED SOLUTION

centax

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

2Angel

ASKER

Thank you for your comment - although I've found the answere my self I'll give the points just for your eforts and pointed the nice software...

Have a nice day!