<div>
You can use: DoCmd.OpenQuery or &nbsp;CurrentDB.Execute The later is preferable because you can use the optional argument dbFailOnError and have error handling. There is also: DoCmd.RunSQL &nbsp; which let's you execute a SQL statement directly.
</div>

<div>
is it currentDB.execute &quot;queryName&quot;, vbdvfailonerror?
</div>

<div>
this is because I am getting an error: &quot;object does not support this type of method&quot; 
 
<a href="https://filedb.experts-exchange.com/incoming/2020/05_w20/1454813/Screenshot-2020-05-11-at-08.14.00.png" target="_blank" title="Screenshot-2020-05-11-at-08.14.00.png (129 KB)"><img alt="Screenshot-2020-05-11-at-08.14.00.png" class="file-block lazyload" style="max-width: 800px;" data-src="https://filedb.experts-exchange.com/incoming/2020/05_w20/800_1454813/Screenshot-2020-05-11-at-08.14.00.png" /></a> 
...
</div>

Screenshot-2020-05-11-at-08.14.00.png

<div>
the related source code is: 
 

<pre><code class="code-10 nolinks" id="code-20-43083419-1"> CurrentDb.Execute &quot;DELETE FROM zAlertas&quot;, dbFailOnError
 
 Me.progressBar_92 = &quot; Passo 1 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p01&quot; ', dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 1
 
 Me.progressBar_92 = &quot; Passo 2 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p02&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 2
 
 Me.progressBar_92 = &quot; Passo 3 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p03&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 3
 
 Me.progressBar_92 = &quot; Passo 4 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p04&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 4
 
 Me.progressBar_92 = &quot; Passo 5 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p05&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 5
 
 Me.progressBar_92 = &quot; Passo 6 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p06&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 6
 
 Me.progressBar_92 = &quot; Passo 7 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p07&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 7
 
 Me.progressBar_92 = &quot; Passo 8 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p07&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 8
</code></pre>
</div>

<div>
all queries have the adequate name. You'll notice that I commented &quot;dbfailonerror for the 1st query, just to check. The weird part is that the final table look alright...
</div>

<div>
Sorry should have given you some examples, but your syntax is correct. This: CurrentDb.Execute "DELETE FROM zAlertas", dbFailOnError Should be: CurrentDb.Execute "DELETE * FROM zAlertas", dbFailOnError The queries you are trying to run, do they execute on their own? &nbsp; Do they have references to form controls in them or other parameters? &nbsp;Please post the SQL here for the first query q32_zAlertas_p01 Jim. 
</div>

<div>
Hi Jum, 
 
1. The queries run OK by themselves but yield the usual warnings asking permission to modify table.&quot; 
 
1. the SQL 
INSERT INTO zAlertas ( pk_patron_id, user_type, email, full_name, cellphone, userCreated, tipoAlerta ) 
SELECT q32_01_alertas_01_RegistoUtente_02.pk_patron_id, q32_01_alertas_01_RegistoUtente_02.user_type, q32_01_alertas_01_RegistoUtente_02.email, q32_01_alertas_01_RegistoUtente_02.full_name, q32_01_alertas_01_RegistoUtente_02.cellphone, q32_01_alertas_01_RegistoUtente_02.userCreated, q32_01_alertas_01_RegistoUtente_02.tipoAlerta 
FROM q32_01_alertas_01_RegistoUtente_02; 
 
 
3. The Table 
 
<a href="https://filedb.experts-exchange.com/incoming/2020/05_w20/1454887/Screenshot-2020-05-11-at-12.00.58.png" target="_blank" title="Screenshot-2020-05-11-at-12.00.58.png (49 KB)"><img alt="Screenshot-2020-05-11-at-12.00.58.png" class="file-block lazyload" style="max-width: 800px;" data-src="https://filedb.experts-exchange.com/incoming/2020/05_w20/800_1454887/Screenshot-2020-05-11-at-12.00.58.png" /></a> 
 
Thanks &nbsp;for caring!!
</div>

Screenshot-2020-05-11-at-12.00.58.png

<div>
It all looks fine. Put a STOP at the top of the procedure, execute it, then step through with F8 and see which statement is actually causing the error. Jim.
</div>

<div>
Hi. Already did it... It's ALL of the currentDB.execute yield the error but, somehow, they are working. The table is cleared and then records are added... It must be something related to the table itself but not to de queries. Anyway, on standalone ther really work!
</div>

<div>
Could you please try and doing it this way: Dim strSQL as string strSQL = "INSERT INTO zAlertas ( pk_patron_id, user_type, email, full_name, cellphone, userCreated, tipoAlerta ) SELECT q32_01_alertas_01_RegistoUtente_02.pk_patron_id, q32_01_alertas_01_RegistoUtente_02.user_type, q32_01_alertas_01_RegistoUtente_02.email, q32_01_alertas_01_RegistoUtente_02.full_name, q32_01_alertas_01_RegistoUtente_02.cellphone, q32_01_alertas_01_RegistoUtente_02.userCreated, q32_01_alertas_01_RegistoUtente_02.tipoAlerta FROM q32_01_alertas_01_RegistoUtente_02; " CurrentDB.Execute strSQL, dbFailOnError If that still fails with the same error, then modify to: Dim db as DAO.Database Set db = CurrentDB() strSQL = "INSERT INTO zAlertas ( pk_patron_id, user_type, email, full_name, cellphone, userCreated, tipoAlerta ) SELECT q32_01_alertas_01_RegistoUtente_02.pk_patron_id, q32_01_alertas_01_RegistoUtente_02.user_type, q32_01_alertas_01_RegistoUtente_02.email, q32_01_alertas_01_RegistoUtente_02.full_name, q32_01_alertas_01_RegistoUtente_02.cellphone, q32_01_alertas_01_RegistoUtente_02.userCreated, q32_01_alertas_01_RegistoUtente_02.tipoAlerta FROM q32_01_alertas_01_RegistoUtente_02; " db.Execute strSQL, dbFailOnError &nbsp;I'm really curious now. Jim.
</div>

<div>
The first option does not yield any error... 
Please let me know what was the modification because I do have 8 queries extremely alike.....
</div>

<div>
back to square 1 - first option does not work any longer... sigh. The problem must be elsewhere as the &quot;&nbsp; &nbsp; CurrentDb.Execute &quot;DELETE * FROM zAlertas&quot;, dbFailOnError&quot; yields exactly the same error
</div>

João serras-pereira

<div>
yeap!!!! well... I have trapped the specific error and pass it through... but I am scratching my head!
</div>

<div>
Yes. When I run directly they run OK. They yield the usual warnings demanding authorization to ass records, but that's it... The strangest thing is that the delete also yields the same error... 
 
the current full code &nbsp;is: 
 

<pre><code class="code-10 nolinks" id="code-20-43084174-1">Private Sub btn_constroiEventos_Click()


 Dim strSQL As String

On Error GoTo errorTrap

 Call logMe(&quot;frm_importarDados btn_constroiEventos_Click&quot;, &quot;start&quot;)
 
 Me.lbl_92.Visible = True
 Me.box_92.Visible = True
 Me.progressBar_92.Visible = True
 Me.progressBar_92.Width = 0
 
' call completaDiarioEventos()

 CurrentDb.Execute &quot;DELETE * FROM zAlertas&quot;, dbFailOnError
 Me.progressBar_92 = &quot; Passo 1 / 8 &quot;
 strSQL = &quot;INSERT INTO zAlertas ( pk_patron_id, user_type, email, full_name, cellphone, userCreated, tipoAlerta )&quot;
 strSQL = strSQL &amp; &quot; SELECT q32_01_alertas_01_RegistoUtente_02.pk_patron_id, q32_01_alertas_01_RegistoUtente_02.user_type, q32_01_alertas_01_RegistoUtente_02.email, &quot;
 strSQL = strSQL &amp; &quot;q32_01_alertas_01_RegistoUtente_02.full_name, q32_01_alertas_01_RegistoUtente_02.cellphone, q32_01_alertas_01_RegistoUtente_02.userCreated, &quot;
 strSQL = strSQL &amp; &quot;q32_01_alertas_01_RegistoUtente_02.tipoAlerta FROM q32_01_alertas_01_RegistoUtente_02; &quot;
 CurrentDb.Execute strSQL, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 1


 

 'CurrentDb.Execute &quot;q32_zAlertas_p01&quot; ', dbFailOnError
 '
 
 Me.progressBar_92 = &quot; Passo 2 / 8 &quot;
 strSQL = &quot;INSERT INTO zAlertas ( pk_patron_id, user_type, email, full_name, cellphone, userCreated, tipoAlerta )&quot;
 strSQL = strSQL &amp; &quot; SELECT q32_01_alertas_02_feedBackCurso_02.pk_patron_id, q32_01_alertas_02_feedBackCurso_02.user_type, q32_01_alertas_02_feedBackCurso_02.email, &quot;
 strSQL = strSQL &amp; &quot; q32_01_alertas_02_feedBackCurso_02.full_name, q32_01_alertas_02_feedBackCurso_02.cellphone, q32_01_alertas_02_feedBackCurso_02.userCreated, &quot;
 strSQL = strSQL &amp; &quot; q32_01_alertas_02_feedBackCurso_02.tipoAlerta FROM q32_01_alertas_02_feedBackCurso_02; &quot;
 CurrentDb.Execute strSQL, dbFailOnError
 'CurrentDb.Execute &quot;q32_zAlertas_p02&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 2
 
 Me.progressBar_92 = &quot; Passo 3 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p03&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 3
 
 Me.progressBar_92 = &quot; Passo 4 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p04&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 4
 
 Me.progressBar_92 = &quot; Passo 5 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p05&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 5
 
 Me.progressBar_92 = &quot; Passo 6 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p06&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 6
 
 Me.progressBar_92 = &quot; Passo 7 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p07&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 7
 
 Me.progressBar_92 = &quot; Passo 8 / 8 &quot;
 CurrentDb.Execute &quot;q32_zAlertas_p08&quot;, dbFailOnError
 Me.progressBar_92.Width = 2268 / 8 * 8
 
 Call logMe(&quot;frm_importarDados btn_constroiEventos_Click&quot;, &quot;end&quot;)
 
 Exit Sub
 
errorTrap:
 If Err.Number &lt;&gt; 2501 And Err.Number &lt;&gt; 438 Then
 MsgBox &quot;[frm_importarDados btn_constroiEventos_Click errorTrap].&quot; &amp; _
 &quot;[&quot; &amp; Err.Number &amp; &quot;].[&quot; &amp; Err.description &amp; &quot;]&quot;
 Call logMe(&quot;frm_importarDados btn_constroiEventos_Click errorTrap&quot;, _
 &quot;btn_constroiEventos_Click].&quot; &amp; &quot;[&quot; &amp; _
 Err.Number &amp; &quot;].[&quot; &amp; Err.description &amp; &quot;]&quot;)
 End If
 Resume Next
 
 
End Sub
</code></pre>
</div>

<div>
well everything id local.... but I'll modify the log a bit to include the error...
</div>

<div>
if you see the lines: such as Me.progressBar_92 = &quot;&nbsp;Passo 2 / 8 &quot; 
 
They were the problem. progressBar_nn are BOXES! I was addressing the wrong field and became the victim of the Wrath of the programmer's God. Thanks for caring 
 
joao
</div>

<div>
<div class="content wysiwyg-content">
How do, in VBA, run a set of predefined append queries?
</div>
</div>

How do, in VBA, run a set of predefined append queries?

run aoppend queries

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.