pradyuthal
Board Regular
- Joined
- Jul 13, 2005
- Messages
- 212
<CENTER><TABLE cellSpacing=0 align=center cellpadding=2px width=50% ><TR ><TD CLASS="AccTBMain" border-left=1px solid colSpan= 3 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccTBInner" align=Left ><font color="White">state : Table</font></TD><TD CLASS="AccTBInner" align=right >Access 2000</TD></TR></TABLE></TD></TR><TR ><TD CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccHDRMain" align=left >stateid</TD><TD CLASS="AccHDRMain" align=left >nameofstate</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >1</TD><TD CLASS="AccDataElem" >fkk</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >2</TD><TD CLASS="AccDataElem" >rganj</TD></TR><TR ><TD ID="IE" CLASS="AccIEOnlyMain" colSpan= 3 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccIEOnlyInnerRight" > Record: </TD><TD CLASS="AccButton" >
</TD><TD CLASS="AccIEOnlyData" > 1 </TD><TD CLASS="AccButton" >
</TD><TD CLASS="AccIEOnlyInnerLeft" > of 2</TD></TR></TABLE></TD></TR><TR ><TD CLASS="AccIEOnlyMain" colSpan= 3 ><TABLE cellSpacing=0 cellPadding=0 width="100%" align=left VALIGN="TOP" ><TR ><TD ID="Data995388210" CLASS="AccInfoBarInnerRight" >state</TD><TD ID="Info995388210" CLASS="AccInfoBarData" > Record Count: 2</TD></TR></TABLE></TD></TR><TR ><TD CLASS="tpkrow" colSpan = 3 ><CENTER><font size = 1>Access HTML Add-in provided by theprimarykey.com</font></CENTER></TD></TR></TABLE></CENTER>
<CENTER><TABLE cellSpacing=0 align=center cellpadding=2px width=50% ><TR ><TD CLASS="AccTBMain" border-left=1px solid colSpan= 4 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccTBInner" align=Left ><font color="White">tblzipcode : Table</font></TD><TD CLASS="AccTBInner" align=right >Access 2000</TD></TR></TABLE></TD></TR><TR ><TD CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccHDRMain" align=left >id</TD><TD CLASS="AccHDRMain" align=left >zip</TD><TD CLASS="AccHDRMain" align=left >nameofstate</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >1</TD><TD CLASS="AccDataElem" >742225</TD><TD CLASS="AccDataElem" >rganj</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >2</TD><TD CLASS="AccDataElem" >742212</TD><TD CLASS="AccDataElem" >fkk</TD></TR><TR ><TD ID="IE" CLASS="AccIEOnlyMain" colSpan= 4 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccIEOnlyInnerRight" > Record: </TD><TD CLASS="AccButton" >
</TD><TD CLASS="AccIEOnlyData" > 1 </TD><TD CLASS="AccButton" >
</TD><TD CLASS="AccIEOnlyInnerLeft" > of 2</TD></TR></TABLE></TD></TR><TR ><TD CLASS="AccIEOnlyMain" colSpan= 4 ><TABLE cellSpacing=0 cellPadding=0 width="100%" align=left VALIGN="TOP" ><TR ><TD ID="Data694144845" CLASS="AccInfoBarInnerRight" >tblzipcode</TD><TD ID="Info694144845" CLASS="AccInfoBarData" > Record Count: 2</TD></TR></TABLE></TD></TR><TR ><TD CLASS="tpkrow" colSpan = 4 ><CENTER><font size = 1>Access HTML Add-in provided by theprimarykey.com</font></CENTER></TD></TR></TABLE></CENTER>
<CENTER><TABLE cellSpacing=0 align=center cellpadding=2px width=50% ><TR ><TD CLASS="AccTBMain" border-left=1px solid colSpan= 4 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccTBInner" align=Left ><font color="White">Table1 : Table</font></TD><TD CLASS="AccTBInner" align=right >Access 2000</TD></TR></TABLE></TD></TR><TR ><TD CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccHDRMain" align=left >nameid</TD><TD CLASS="AccHDRMain" align=left >zipcode</TD><TD CLASS="AccHDRMain" align=left >state</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >1</TD><TD CLASS="AccDataElem" >742225</TD><TD CLASS="AccDataElem" >rganj</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >2</TD><TD CLASS="AccDataElem" >742225</TD><TD CLASS="AccDataElem" >rganj</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >3</TD><TD CLASS="AccDataElem" >742212</TD><TD CLASS="AccDataElem" >fkk</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >4</TD><TD CLASS="AccDataElem" >742225</TD><TD CLASS="AccDataElem" >rganj</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >5</TD><TD CLASS="AccDataElem" >742212</TD><TD CLASS="AccDataElem" >fkkk</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >6</TD><TD CLASS="AccDataElem" >742225</TD><TD CLASS="AccDataElem" >
</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >7</TD><TD CLASS="AccDataElem" >742212</TD><TD CLASS="AccDataElem" >
</TD></TR><TR ><TD ID="IE" CLASS="AccIEOnlyMain" colSpan= 4 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccIEOnlyInnerRight" > Record: </TD><TD CLASS="AccButton" >
</TD><TD CLASS="AccIEOnlyData" > 1 </TD><TD CLASS="AccButton" >
</TD><TD CLASS="AccIEOnlyInnerLeft" > of 7</TD></TR></TABLE></TD></TR><TR ><TD CLASS="AccIEOnlyMain" colSpan= 4 ><TABLE cellSpacing=0 cellPadding=0 width="100%" align=left VALIGN="TOP" ><TR ><TD ID="Data380132020" CLASS="AccInfoBarInnerRight" >Table1</TD><TD ID="Info380132020" CLASS="AccInfoBarData" > Record Count: 7</TD></TR></TABLE></TD></TR><TR ><TD CLASS="tpkrow" colSpan = 4 ><CENTER><font size = 1>Access HTML Add-in provided by theprimarykey.com</font></CENTER></TD></TR></TABLE></CENTER>
Please take some toil to modify the following code so that the ‘state’ field be populated automatically when I choose the relevant zipcode in the ‘table1’ form.
Private Sub zipcode_Exit(Cancel As Integer)
Dim varstate As Variant
varstate = DLookup("state", "tblzipcode", "zipCode =[zip] ")
If (Not IsNull(varstate)) Then Me![state] = varstate
End Sub
</TD><TD CLASS="AccHDRMain" align=left >stateid</TD><TD CLASS="AccHDRMain" align=left >nameofstate</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >2</TD><TD CLASS="AccDataElem" >rganj</TD></TR><TR ><TD ID="IE" CLASS="AccIEOnlyMain" colSpan= 3 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccIEOnlyInnerRight" > Record: </TD><TD CLASS="AccButton" >
<CENTER><TABLE cellSpacing=0 align=center cellpadding=2px width=50% ><TR ><TD CLASS="AccTBMain" border-left=1px solid colSpan= 4 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccTBInner" align=Left ><font color="White">tblzipcode : Table</font></TD><TD CLASS="AccTBInner" align=right >Access 2000</TD></TR></TABLE></TD></TR><TR ><TD CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccHDRMain" align=left >id</TD><TD CLASS="AccHDRMain" align=left >zip</TD><TD CLASS="AccHDRMain" align=left >nameofstate</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >2</TD><TD CLASS="AccDataElem" >742212</TD><TD CLASS="AccDataElem" >fkk</TD></TR><TR ><TD ID="IE" CLASS="AccIEOnlyMain" colSpan= 4 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccIEOnlyInnerRight" > Record: </TD><TD CLASS="AccButton" >
<CENTER><TABLE cellSpacing=0 align=center cellpadding=2px width=50% ><TR ><TD CLASS="AccTBMain" border-left=1px solid colSpan= 4 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccTBInner" align=Left ><font color="White">Table1 : Table</font></TD><TD CLASS="AccTBInner" align=right >Access 2000</TD></TR></TABLE></TD></TR><TR ><TD CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccHDRMain" align=left >nameid</TD><TD CLASS="AccHDRMain" align=left >zipcode</TD><TD CLASS="AccHDRMain" align=left >state</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >2</TD><TD CLASS="AccDataElem" >742225</TD><TD CLASS="AccDataElem" >rganj</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >3</TD><TD CLASS="AccDataElem" >742212</TD><TD CLASS="AccDataElem" >fkk</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >4</TD><TD CLASS="AccDataElem" >742225</TD><TD CLASS="AccDataElem" >rganj</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >5</TD><TD CLASS="AccDataElem" >742212</TD><TD CLASS="AccDataElem" >fkkk</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >6</TD><TD CLASS="AccDataElem" >742225</TD><TD CLASS="AccDataElem" >
</TD></TR><TR ><TD ID="currRec" CLASS="AccHDRLeftElem" >
</TD><TD CLASS="AccDataElem" >7</TD><TD CLASS="AccDataElem" >742212</TD><TD CLASS="AccDataElem" >
</TD></TR><TR ><TD ID="IE" CLASS="AccIEOnlyMain" colSpan= 4 ><TABLE width="100%" align=left VALIGN="TOP" ><TR ><TD CLASS="AccIEOnlyInnerRight" > Record: </TD><TD CLASS="AccButton" >
Please take some toil to modify the following code so that the ‘state’ field be populated automatically when I choose the relevant zipcode in the ‘table1’ form.
Private Sub zipcode_Exit(Cancel As Integer)
Dim varstate As Variant
varstate = DLookup("state", "tblzipcode", "zipCode =[zip] ")
If (Not IsNull(varstate)) Then Me![state] = varstate
End Sub