<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Ilogic MS Access find next empty record and record new record in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8200065#M87693</link>
    <description>&lt;P&gt;Thanks for the reply but I dont Understand how to use your code.&lt;/P&gt;</description>
    <pubDate>Wed, 15 Aug 2018 02:40:03 GMT</pubDate>
    <dc:creator>j.romo</dc:creator>
    <dc:date>2018-08-15T02:40:03Z</dc:date>
    <item>
      <title>Ilogic MS Access find next empty record and record new record</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8199118#M87670</link>
      <description>&lt;P&gt;Hello&lt;/P&gt;&lt;P&gt;Been using excel Spreadsheets to collect model information and ran into some issues with users trying to open the same Spreadsheet at the same time and giving us some headaches.&lt;/P&gt;&lt;P&gt;Now we are trying to go further and use a database with MS access,&lt;/P&gt;&lt;P&gt;and as far as i vcould find information on this board the only thing I could do is read information from the Database&lt;/P&gt;&lt;P&gt;Now I want to add information from Ilogic to the database, but just cant find the next empty record to record on it the fields I need. Here is the code Im using.&lt;/P&gt;&lt;P&gt;SyntaxEditor Code Snippet&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;()

	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;Table1&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"CAD"&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;query&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"SELECT * FROM "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;Table1&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;MDBConnString_&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DESKTOP-VDT88EI\database\Ingenieria.accdb;Persist Security Info=False;"&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;ds&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;DataSet&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;cnn&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;OleDbConnection&lt;/SPAN&gt; = &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;OleDbConnection&lt;/SPAN&gt;(&lt;SPAN&gt;MDBConnString_&lt;/SPAN&gt;)
	&lt;SPAN&gt;cnn&lt;/SPAN&gt;.&lt;SPAN&gt;Open&lt;/SPAN&gt;()
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;cmd&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;OleDbCommand&lt;/SPAN&gt;(&lt;SPAN&gt;query&lt;/SPAN&gt;, &lt;SPAN&gt;cnn&lt;/SPAN&gt;)
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;da&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;OleDbDataAdapter&lt;/SPAN&gt;(&lt;SPAN&gt;cmd&lt;/SPAN&gt;)
	&lt;SPAN&gt;da&lt;/SPAN&gt;.&lt;SPAN&gt;Fill&lt;/SPAN&gt;(&lt;SPAN&gt;ds&lt;/SPAN&gt;, &lt;SPAN&gt;Table1&lt;/SPAN&gt;)
	&lt;SPAN&gt;cnn&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;t1&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DataTable&lt;/SPAN&gt; = &lt;SPAN&gt;ds&lt;/SPAN&gt;.&lt;SPAN&gt;Tables&lt;/SPAN&gt;(&lt;SPAN&gt;Table1&lt;/SPAN&gt;)
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;row&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DataRow&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;Item&lt;/SPAN&gt;(2) &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
	&lt;SPAN&gt;'Dim oNAME As String&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;OPROJ&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oCREAT&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDAT&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oCOMENT&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oSTATUS&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oNAME&lt;/SPAN&gt; = &lt;SPAN&gt;MT_NAMING&lt;/SPAN&gt;
&lt;SPAN&gt;OPROJ&lt;/SPAN&gt; = &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Project"&lt;/SPAN&gt;)
&lt;SPAN&gt;oDAT&lt;/SPAN&gt; = &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Creation Date"&lt;/SPAN&gt;)
&lt;SPAN&gt;oCREAT&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;GeneralOptions&lt;/SPAN&gt;.&lt;SPAN&gt;UserName&lt;/SPAN&gt;
&lt;SPAN&gt;oCOMENT&lt;/SPAN&gt; = &lt;SPAN&gt;DESCRIPCION&lt;/SPAN&gt;
&lt;SPAN&gt;oSTATUS&lt;/SPAN&gt; = &lt;SPAN&gt;STATUS_MASTER&lt;/SPAN&gt;	


	&lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;row&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;t1&lt;/SPAN&gt;.&lt;SPAN&gt;Rows&lt;/SPAN&gt;
		&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;row&lt;/SPAN&gt;(1) = &lt;SPAN&gt;oNAME&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
		&lt;SPAN&gt;i&lt;/SPAN&gt; = &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"This part Number is allready recorded"&lt;/SPAN&gt;, &lt;SPAN&gt;"CAD"&lt;/SPAN&gt;, &lt;SPAN&gt;MessageBoxButtons&lt;/SPAN&gt;.&lt;SPAN&gt;OK&lt;/SPAN&gt;, &lt;SPAN&gt;MessageBoxIcon&lt;/SPAN&gt;.&lt;SPAN&gt;Asterisk&lt;/SPAN&gt;, &lt;SPAN&gt;MessageBoxDefaultButton&lt;/SPAN&gt;.&lt;SPAN&gt;Button1&lt;/SPAN&gt;)
&lt;SPAN&gt;ElseIf&lt;/SPAN&gt; &lt;SPAN&gt;row&lt;/SPAN&gt;(1) = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;i&lt;/SPAN&gt; = &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Testing empty record"&lt;/SPAN&gt;, &lt;SPAN&gt;"CAD"&lt;/SPAN&gt;, &lt;SPAN&gt;MessageBoxButtons&lt;/SPAN&gt;.&lt;SPAN&gt;OK&lt;/SPAN&gt;, &lt;SPAN&gt;MessageBoxIcon&lt;/SPAN&gt;.&lt;SPAN&gt;Asterisk&lt;/SPAN&gt;, &lt;SPAN&gt;MessageBoxDefaultButton&lt;/SPAN&gt;.&lt;SPAN&gt;Button1&lt;/SPAN&gt;)
	&lt;SPAN&gt;row&lt;/SPAN&gt;(1)=&lt;SPAN&gt;MT_NAMING&lt;/SPAN&gt;

	&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
	
		
	&lt;SPAN&gt;Next&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
&lt;/PRE&gt;</description>
      <pubDate>Tue, 14 Aug 2018 16:51:31 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8199118#M87670</guid>
      <dc:creator>j.romo</dc:creator>
      <dc:date>2018-08-14T16:51:31Z</dc:date>
    </item>
    <item>
      <title>Re: Ilogic MS Access find next empty record and record new record</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8200030#M87691</link>
      <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;I havent done this with ilogic, but i use VBA to do similar..&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;This is the code i usually use to add new rows to the database..&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;rs.CursorType = adOpenDynamic&lt;BR /&gt;rs.LockType = adLockOptimistic&lt;BR /&gt;rs.Open "Tablename", cn, , , adCmdTable&lt;/P&gt;&lt;P&gt;rs.AddNew&lt;/P&gt;&lt;P&gt;rs!FieldName =&amp;nbsp;DataString&lt;/P&gt;&lt;P&gt;rs.Update&lt;BR /&gt;rs.Close&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I hope that helps you.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Dean.&lt;/P&gt;</description>
      <pubDate>Wed, 15 Aug 2018 01:43:14 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8200030#M87691</guid>
      <dc:creator>dean.morrison</dc:creator>
      <dc:date>2018-08-15T01:43:14Z</dc:date>
    </item>
    <item>
      <title>Re: Ilogic MS Access find next empty record and record new record</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8200065#M87693</link>
      <description>&lt;P&gt;Thanks for the reply but I dont Understand how to use your code.&lt;/P&gt;</description>
      <pubDate>Wed, 15 Aug 2018 02:40:03 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8200065#M87693</guid>
      <dc:creator>j.romo</dc:creator>
      <dc:date>2018-08-15T02:40:03Z</dc:date>
    </item>
    <item>
      <title>Re: Ilogic MS Access find next empty record and record new record</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8200088#M87694</link>
      <description>&lt;P&gt;Ahhh ok.. i thought u may be able to adapt it to ilogic..&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;i have no time to look into it for you, maybe someone else can help.&lt;/P&gt;</description>
      <pubDate>Wed, 15 Aug 2018 03:15:41 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8200088#M87694</guid>
      <dc:creator>dean.morrison</dc:creator>
      <dc:date>2018-08-15T03:15:41Z</dc:date>
    </item>
    <item>
      <title>Re: Ilogic MS Access find next empty record and record new record</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8201470#M87708</link>
      <description>&lt;P&gt;Finally did it,&amp;nbsp;&lt;/P&gt;&lt;P&gt;SyntaxEditor Code Snippet&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;AddReference&lt;/SPAN&gt; &lt;SPAN&gt;"System.Data"&lt;/SPAN&gt;
&lt;SPAN&gt;AddReference&lt;/SPAN&gt; &lt;SPAN&gt;"System.Core"&lt;/SPAN&gt;
&lt;SPAN&gt;AddReference&lt;/SPAN&gt; &lt;SPAN&gt;"System.Xml"&lt;/SPAN&gt;
&lt;SPAN&gt;Imports&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;Data&lt;/SPAN&gt;.&lt;SPAN&gt;OleDb&lt;/SPAN&gt;
&lt;SPAN&gt;Imports&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;Data&lt;/SPAN&gt;
&lt;SPAN&gt;Imports&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;Xml&lt;/SPAN&gt;
&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;SyntaxEditor Code Snippet&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;()

&lt;SPAN&gt;'	Dim Tabla As String = "CAD"&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;query&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"SELECT * FROM CAD WHERE PartNo =  '"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;MT_NAMING&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"'"&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;MDBConnString_&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DESKTOP-VDT88EI\database\Ingenieria.accdb;Persist Security Info=False;"&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;ds&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;DataSet&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;cnn&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;OleDbConnection&lt;/SPAN&gt; = &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;OleDbConnection&lt;/SPAN&gt;(&lt;SPAN&gt;MDBConnString_&lt;/SPAN&gt;)
	&lt;SPAN&gt;cnn&lt;/SPAN&gt;.&lt;SPAN&gt;Open&lt;/SPAN&gt;()
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;cmd&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;OleDbCommand&lt;/SPAN&gt;(&lt;SPAN&gt;query&lt;/SPAN&gt;, &lt;SPAN&gt;cnn&lt;/SPAN&gt;)
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;da&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;OleDbDataAdapter&lt;/SPAN&gt;(&lt;SPAN&gt;cmd&lt;/SPAN&gt;)
	&lt;SPAN&gt;da&lt;/SPAN&gt;.&lt;SPAN&gt;Fill&lt;/SPAN&gt;(&lt;SPAN&gt;ds&lt;/SPAN&gt;, &lt;SPAN&gt;"CAD"&lt;/SPAN&gt;)
	&lt;SPAN&gt;cnn&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;****&lt;/SPAN&gt; = &lt;SPAN&gt;ds&lt;/SPAN&gt;.&lt;SPAN&gt;Tables&lt;/SPAN&gt;(&lt;SPAN&gt;"CAD"&lt;/SPAN&gt;).&lt;SPAN&gt;rows&lt;/SPAN&gt;.&lt;SPAN&gt;count&lt;/SPAN&gt;

&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;****&lt;/SPAN&gt; &amp;gt; 0 &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;****&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"This Part Number is allready added to the database!"&lt;/SPAN&gt;, &lt;SPAN&gt;MT_NAMING&lt;/SPAN&gt; )
&lt;SPAN&gt;Else&lt;/SPAN&gt; 
	

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;OPROJ&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oCREAT&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDAT&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Date&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oCOMENT&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oSTATUS&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oNAME&lt;/SPAN&gt; = &lt;SPAN&gt;MT_NAMING&lt;/SPAN&gt;
&lt;SPAN&gt;OPROJ&lt;/SPAN&gt; = &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Project"&lt;/SPAN&gt;)
&lt;SPAN&gt;oDAT&lt;/SPAN&gt; = &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Creation Date"&lt;/SPAN&gt;)
&lt;SPAN&gt;oCREAT&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;GeneralOptions&lt;/SPAN&gt;.&lt;SPAN&gt;UserName&lt;/SPAN&gt;
&lt;SPAN&gt;oCOMENT&lt;/SPAN&gt; = &lt;SPAN&gt;DESCRIPCION&lt;/SPAN&gt;
&lt;SPAN&gt;oSTATUS&lt;/SPAN&gt; = &lt;SPAN&gt;STATUS_MASTER&lt;/SPAN&gt;	

    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;Table_&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"CAD"&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;query1&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"INSERT INTO "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;Table_&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"(Proyect, PartNo, AutorDePieza, FechaCreacion, DescripcionDePieza,Estado) VALUES ('"&lt;/SPAN&gt;&amp;amp;&lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Project"&lt;/SPAN&gt;)&amp;amp;&lt;SPAN&gt;"','"&lt;/SPAN&gt;&amp;amp; &lt;SPAN&gt;MT_NAMING&lt;/SPAN&gt; &amp;amp;&lt;SPAN&gt;"', '"&lt;/SPAN&gt;&amp;amp; &lt;SPAN&gt;oCREAT&lt;/SPAN&gt; &amp;amp;&lt;SPAN&gt;"', '"&lt;/SPAN&gt;&amp;amp; &lt;SPAN&gt;oDAT&lt;/SPAN&gt; &amp;amp;&lt;SPAN&gt;"', '"&lt;/SPAN&gt;&amp;amp; &lt;SPAN&gt;oCOMENT&lt;/SPAN&gt; &amp;amp;&lt;SPAN&gt;"', '"&lt;/SPAN&gt;&amp;amp; &lt;SPAN&gt;STATUS_MASTER&lt;/SPAN&gt; &amp;amp;&lt;SPAN&gt;"')"&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;MDBConnString_1&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DESKTOP-VDT88EI\database\Ingenieria.accdb;Persist Security Info=False;"&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;ds1&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;DataSet&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;cnn1&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;OleDbConnection&lt;/SPAN&gt; = &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;OleDbConnection&lt;/SPAN&gt;(&lt;SPAN&gt;MDBConnString_1&lt;/SPAN&gt;)
    &lt;SPAN&gt;cnn1&lt;/SPAN&gt;.&lt;SPAN&gt;Open&lt;/SPAN&gt;()
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;cmd1&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;OleDbCommand&lt;/SPAN&gt;
    &lt;SPAN&gt;cmd&lt;/SPAN&gt;.&lt;SPAN&gt;Connection&lt;/SPAN&gt; = &lt;SPAN&gt;cnn1&lt;/SPAN&gt;
    &lt;SPAN&gt;cmd&lt;/SPAN&gt;.&lt;SPAN&gt;CommandText&lt;/SPAN&gt; = &lt;SPAN&gt;query1&lt;/SPAN&gt;
    &lt;SPAN&gt;cmd&lt;/SPAN&gt;.&lt;SPAN&gt;ExecuteNonQuery&lt;/SPAN&gt;()
    &lt;SPAN&gt;cnn1&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;&lt;/PRE&gt;</description>
      <pubDate>Wed, 15 Aug 2018 15:04:41 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8201470#M87708</guid>
      <dc:creator>j.romo</dc:creator>
      <dc:date>2018-08-15T15:04:41Z</dc:date>
    </item>
    <item>
      <title>Re: Ilogic MS Access find next empty record and record new record</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8201604#M87713</link>
      <description>Thanks for sharing!</description>
      <pubDate>Wed, 15 Aug 2018 15:48:19 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/8201604#M87713</guid>
      <dc:creator>AlexFielder</dc:creator>
      <dc:date>2018-08-15T15:48:19Z</dc:date>
    </item>
    <item>
      <title>Re: Ilogic MS Access find next empty record and record new record</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/9601924#M112583</link>
      <description>&lt;P&gt;Just came across this thread while searching for iLogic Access Commands.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I'm working on a tool that will read and write records into an Access Database. The above code was remixed into something that worked for me. Using an access database found on this forum I was able to determine the next available line (or row) to enter employee data in. I found this particularly helpful in being the bases of my code in recording invoices, PO's and quotes.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Below is the line of code I've used... attach you will find the access database (based on another user's database on this forum).&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="general"&gt;AddReference "System.Data"
AddReference "System.Core"
AddReference "System.Xml"
Imports System.Data.OleDb
Imports System.Data
Imports System.Xml
 Sub Main ()
	Dim Table_ As String = "EmployeeInfo"
	Dim query As String = "SELECT * FROM " &amp;amp; Table_
	Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rcantos\Downloads\New folder\EmployeeInfo.accdb;Persist Security Info=False;")
	Dim MDBConnString_ As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rcantos\Downloads\New folder\EmployeeInfo.accdb;Persist Security Info=False;"
	Dim ds As New DataSet
	Dim cnn As OleDbConnection = New OleDbConnection(MDBConnString_)
	con.Open()
	Dim cmd As New OleDbCommand(query, cnn)
	Dim adp As New OleDbDataAdapter(cmd)
    Dim ds12 As DataSet
    ds12 = New DataSet
	adp.Fill(ds12, "EmployeeInfo")
	
		'DETERMINE THE NEXT AVAILABLE ROW IN ACCESS
		If ds12.Tables("EmployeeInfo").Rows.Count = 0 Then
			i = i + 1
      	Else
		   query = "SELECT MAX(EID) from EmployeeInfo"
           cmd = New OleDbCommand(query, con)
           adp = New OleDbDataAdapter(cmd)
           ds12 = New DataSet
           adp.Fill(ds12, "EmployeeInfo")
           i = (ds12.Tables(0).Rows(0).Item(0)) + 1
           con.Close()
       End If
	   
	   'VERIFY THE ABOVE CODE
		MessageBox.Show(i)
		
   End Sub&lt;/LI-CODE&gt;</description>
      <pubDate>Thu, 25 Jun 2020 17:10:09 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/ilogic-ms-access-find-next-empty-record-and-record-new-record/m-p/9601924#M112583</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2020-06-25T17:10:09Z</dc:date>
    </item>
  </channel>
</rss>

