[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

VBA (MsAccess) to HTML - Help!!!

Posted on 2005-04-27
2
Medium Priority
?
523 Views
Last Modified: 2012-06-21
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=&quot;urn:schemas-microsoft-com:office:access&quot;>&#13;&#10; <a:DataSourceControl>&#13;&#10;  <a:OWCVersion>10.0.0.2621         </a:OWCVersion>&#13;&#10;  <a:ConnectionString>Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\My Documents\db1.mdb;Mode=Share Deny None;Extended Properties=&amp;quot;&amp;quot;;Persist Security Info=False;Jet OLEDB:System database=&amp;quot;&amp;quot;;Jet OLEDB:Registry Path=&amp;quot;&amp;quot;;Jet OLEDB:Database Password=&amp;quot;&amp;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=&amp;quot;&amp;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>&#13;&#10;  <a:MaxRecords>10000</a:MaxRecords>&#13;&#10;  <a:GridX>24</a:GridX>&#13;&#10;  <a:GridY>24</a:GridY>&#13;&#10;  <a:OfflineType>2</a:OfflineType>&#13;&#10;  <a:XMLLocation>0</a:XMLLocation>&#13;&#10;  <a:XMLDataTarget></a:XMLDataTarget>&#13;&#10;  <a:ConnectionFile></a:ConnectionFile>&#13;&#10;  <a:ElementExtension>&#13;&#10;   <a:ElementID>AccountPassword</a:ElementID>&#13;&#10;   <a:ControlSource>AccountPassword</a:ControlSource>&#13;&#10;   <a:ChildLabel>Label3</a:ChildLabel>&#13;&#10;  </a:ElementExtension>&#13;&#10;  <a:ElementExtension>&#13;&#10;   <a:ElementID>AccountName</a:ElementID>&#13;&#10;   <a:ControlSource>AccountName</a:ControlSource>&#13;&#10;   <a:ChildLabel>Label5</a:ChildLabel>&#13;&#10;  </a:ElementExtension>&#13;&#10;  <a:GroupLevel>&#13;&#10;   <a:RecordSource>Accounts</a:RecordSource>&#13;&#10;   <a:DefaultSort></a:DefaultSort>&#13;&#10;   <a:HeaderElementId>HeaderAccounts</a:HeaderElementId>&#13;&#10;   <a:FooterElementId></a:FooterElementId>&#13;&#10;   <a:CaptionElementId></a:CaptionElementId>&#13;&#10;   <a:RecordNavigationElementId></a:RecordNavigationElementId>&#13;&#10;   <a:DataPageSize>1</a:DataPageSize>&#13;&#10;   <a:GroupFilterControl></a:GroupFilterControl>&#13;&#10;  </a:GroupLevel>&#13;&#10;  <a:Datamodel a:version=&quot;0816&quot;>&#13;&#10;   <a:SchemaRowsource a:id=&quot;Accounts&quot; a:type=&quot;dscTable&quot;>&#13;&#10;    <a:SchemaField a:id=&quot;AccountID&quot; a:datatype=&quot;3&quot; a:size=&quot;0&quot; a:iskey=&quot;1&quot;/>&#13;&#10;    <a:SchemaField a:id=&quot;AccountName&quot; a:datatype=&quot;130&quot; a:size=&quot;50&quot;/>&#13;&#10;    <a:SchemaField a:id=&quot;AccountPassword&quot; a:datatype=&quot;130&quot; a:size=&quot;50&quot;/>&#13;&#10;    <a:SchemaField a:id=&quot;e-mailAddress&quot; a:datatype=&quot;130&quot; a:size=&quot;50&quot;/>&#13;&#10;    <a:SchemaField a:id=&quot;City&quot; a:datatype=&quot;130&quot; a:size=&quot;50&quot;/>&#13;&#10;    <a:SchemaField a:id=&quot;Country&quot; a:datatype=&quot;130&quot; a:size=&quot;255&quot;/>&#13;&#10;    <a:SchemaField a:id=&quot;Notes&quot; a:datatype=&quot;203&quot; a:size=&quot;0&quot;/>&#13;&#10;   </a:SchemaRowsource>&#13;&#10;   <a:RecordsetDef a:id=&quot;Accounts&quot;>&#13;&#10;    <a:PageField a:id=&quot;AccountID&quot;/>&#13;&#10;    <a:PageField a:id=&quot;AccountName&quot;/>&#13;&#10;    <a:PageField a:id=&quot;AccountPassword&quot;/>&#13;&#10;    <a:PageField a:id=&quot;e-mailAddress&quot;/>&#13;&#10;    <a:PageField a:id=&quot;City&quot;/>&#13;&#10;    <a:PageField a:id=&quot;Country&quot;/>&#13;&#10;    <a:PageField a:id=&quot;Notes&quot;/>&#13;&#10;   </a:RecordsetDef>&#13;&#10;  </a:Datamodel>&#13;&#10; </a:DataSourceControl>&#13;&#10;</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>&nbsp;</TD><TD bgColor='#666666' width=500px><FONT face=Tahoma "
            strMsgGetIE+="size=4 color=white><b>&nbsp;Data Access Page Notification</B></FONT></TD></TR>"
            strMsgGetIE+="<TR><TD bgColor='#cccccc' width=15>&nbsp;</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>&nbsp;</TD><TD bgColor='#666666' width=500px>"
            strMsgGetOWC+="<FONT face=Tahoma color=white size=4><B>&nbsp;&nbsp;"
            strMsgGetOWC+="Data Access Page Notification</B></FONT></TD></TR><TR><TD bgColor='#cccccc' width=15>&nbsp;</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>
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:LastAuthor>James</o:LastAuthor>
  <o:Revision>1</o:Revision>
  <o:TotalTime>0</o:TotalTime>
  <o:LastSaved>2005-04-27T20:09:00Z</o:LastSaved>
  <o:Version>10.2625</o:Version>
 </o:DocumentProperties>
 <o:OfficeDocumentSettings>
  <o:DownloadComponents/>
  <o:LocationOfComponents HRef="file:///E:\"/>
 </o:OfficeDocumentSettings>
</xml><![endif]--></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><!--
---------- BEGIN VBA CODE ----------
Option Compare Database

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Command17_Click


    DoCmd.GoToRecord , , acNewRec

Exit_Command17_Click:
    Exit Sub

Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click

End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Err_Submit_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Submit_Click:
    Exit Sub

Err_Submit_Click:
    MsgBox Err.Description
    Resume Exit_Submit_Click

End Sub

Private Sub Submit_Click()
On Error GoTo Err_Submit_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Submit_Click:
    Exit Sub

Err_Submit_Click:
    MsgBox Err.Description
    Resume Exit_Submit_Click
   
End Sub
Private Sub Register_Click()
On Error GoTo Err_Register_Click

    Dim stDocName As String

    stDocName = "Accounts"
    DoCmd.OpenDataAccessPage stDocName, acDataAccessPageBrowse

Exit_Register_Click:
    Exit Sub

Err_Register_Click:
    MsgBox Err.Description
    Resume Exit_Register_Click
   
End Sub
----------- END VBA CODE -----------
--></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!
0
Comment
Question by:2Angel
2 Comments
 
LVL 1

Accepted Solution

by:
centax earned 200 total points
ID: 13883325
it may be slightly offtopic, but have you tried a generator?

asprunner converts the ms access database into asp/html files instantly with add/edit/delete/search functions.
http://www.xlinesoft.com/asprunner/

although the html created is a bit sloppy, it isn't too hard to tidy up
0
 
LVL 2

Author Comment

by:2Angel
ID: 13883406
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!
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Building a website can seem like a daunting task to the uninitiated but it really only requires knowledge of two basic languages: HTML and CSS.
This article explains how to prepare an HTML email signature template file containing dynamic placeholders for users' Azure AD data. Furthermore, it explains how to use this file to remotely set up a department-wide email signature policy in Office …
The viewer will the learn the benefit of plain text editors and code an HTML5 based template for use in further tutorials.
Learn how to create flexible layouts using relative units in CSS.  New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).
Suggested Courses

829 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question