http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FAccess%2FAutonumber 2026-04-06T20:02:18Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Access/Autonumber&diff=1270&oldid=prev 2010-05-26T16:33:00Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr style="vertical-align: top;" lang="ru"> <td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td> <td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td> </tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div> </td></tr></table>

http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Access/Autonumber&diff=1271&oldid=prev 2010-05-26T12:46:43Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==Controlling Autonumber Fields==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub CreateAutonumber()<br /> Dim cmd As ADODB.rumand<br /> Set cmd = New ADODB.rumand<br /> cmd.ActiveConnection = CurrentProject.Connection<br /> cmd.rumandText = &quot;CREATE TABLE Customers2 &quot; &amp; _<br /> &quot;(CustomerID AUTOINCREMENT (100000,1), &quot; &amp; _<br /> &quot;CompanyName TEXT (50), IntroDate DATETIME, &quot; &amp; _<br /> &quot;CreditLimit CURRENCY DEFAULT 5000)&quot;<br /> cmd.Execute<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Retrieve the last-assigned autonumber value==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub LastAutonumber()<br /> Dim cmd As ADODB.rumand<br /> Dim rst As ADODB.Recordset<br /> Set cmd = New ADODB.rumand<br /> Set rst = New ADODB.Recordset<br /> cmd.ActiveConnection = CurrentProject.Connection<br /> cmd.rumandText = &quot;INSERT INTO Customers2 &quot; &amp; _<br /> &quot;(CompanyName, IntroDate, CreditLimit) &quot; &amp; _<br /> &quot;VALUES (&quot;Test Company&quot;, #1/1/2007#, 100) &quot;<br /> cmd.Execute<br /> rst.ActiveConnection = CurrentProject.Connection<br /> rst.Open (&quot;SELECT @@Identity as LastCustomer FROM tblCustomers&quot;)<br /> End Sub<br /> &lt;/source&gt;</div>

Admin