Populate textbox form access from a query
<p>I want to populate a textbox based on a query which queries another query based on values from a form.</p>

<p>The structure is: </p>

<pre><code>form -&gt; query1 -&gt; query2 -&gt; textbox
</code></pre>

<p>For now I've succeeded to write in vba <code>me.textbox.requery</code> but I have 20 textboxes with requery. It takes almost 1 minute to requery the form. I've tried to find something on google but no success. For example something like </p>

<pre><code>textbox1.value = queryname.fieldvalue
</code></pre>

<p>The queries for textboxes have only 1 row because they have sum or count syntax. 
Please help</p>

<p><strong>EDIT</strong></p>

<p>1st query is ("preemptiune_zone_query"):</p>

<pre><code>SELECT original2.[Numar Tranzactie]
  , original2.[Familie Tranzactie]
  , original2.[NUME 1]
  , original2.zona
  , original2.JUDET
  , original2.[LOCALITATE REALA]
  , IIf([numar_cadastral]&lt;&gt;"" 
    Or [carte_funciara]&lt;&gt;"","Da","Nu") AS Intabulat
  , original2.Numar_Cadastral
  , original2.Carte_Funciara
  , original2.TARLA
  , original2.PARCELA
  , original2.[SUP PARCELA]
  , IIf([sup parcela]&gt;=10000,"Peste 1ha","Sub 1ha") AS [Tip suprafata]
  , original2.[AUTENTIC P]
  , original2.Data_P
  , forma_intelegere.forma_intelegere
  , original2.SOCIETATEA
  , original2.litigiu_status
  , original2.litigiu_probleme
  , maintable_preemptiune.data_contract_arenda_agri
  , IIf(IsNull([data_contract_arenda_agri]),"Nu","Da") AS [Ctr arenda semnat]
  , maintable_preemptiune.nr_inreg_arenda_agri
  , maintable_preemptiune.data_inreg_primarie_arenda_agri
  , IIf(IsNull([data_inreg_primarie_arenda_agri]),"Nu","Da") AS [Ctr arenda inregistrat primarie]
  , maintable_preemptiune.nr_inreg_primarie
  , maintable_preemptiune.data_depunere_oferta_primarie
  , IIf(IsNull([data_depunere_oferta_primarie]),"Nu","Da") AS [Oferta depusa primarie]
  , maintable_preemptiune.termen_ridicare_aviz
  , maintable_preemptiune.aviz_final
  , maintable_preemptiune.nr_aviz
  , maintable_preemptiune.data_aviz
  , maintable_preemptiune.data_expirare_aviz
  , maintable_preemptiune.pvc_reinnoit
FROM forma_intelegere 
INNER JOIN ((original2 
  LEFT JOIN maintable_preemptiune 
  ON original2.[Numar Tranzactie] = maintable_preemptiune.ID_tranzactie) 
 INNER JOIN forma_intelegere_ok 
 ON original2.[Numar Tranzactie] = forma_intelegere_ok.[Numar Tranzactie]) 
ON forma_intelegere.sursa = forma_intelegere_ok.[forma ok]
WHERE (((original2.[Numar Tranzactie]) Like Forms!Preemptiune!id_tranz &amp; "*") 
And ((original2.[Familie Tranzactie]) Like Forms!Preemptiune!familie &amp; "*") 
And ((original2.zona) Like Forms!Preemptiune!zona &amp; "*") 
And ((original2.JUDET) Like Forms!Preemptiune!judet &amp; "*") 
And ((original2.[LOCALITATE REALA]) Like forms!Preemptiune!uat &amp; "*") 
And ((IIf([numar_cadastral]&lt;&gt;"" 
  Or [carte_funciara]&lt;&gt;"","Da","Nu")) Like Forms!Preemptiune!intabulat &amp; "*") 
And ((IIf([sup parcela]&gt;=10000,"Peste 1ha","Sub 1ha")) Like forms!Preemptiune!tip_suprafata &amp; "*") 
And ((forma_intelegere.forma_intelegere) Like forms!Preemptiune!forma_intelegere &amp; "*") 
And ((original2.factor_parcela)=1));
</code></pre>

<p>This query is updating a subform from a form. In the same form I want to insert textboxes (or labels) which are updated from some queries which query <code>Query1</code>.</p>

<p>For example query2: </p>

<pre><code>SELECT Sum(preemptiune_zone_query.[SUP PARCELA]) AS Suma_totala
  , Count(preemptiune_zone_query.[SUP PARCELA]) AS nr_parcele_total
FROM preemptiune_zone_query;
</code></pre>

<p>In the textbox - in Data - Row Source I've inserted the SQL syntax:</p>

<pre><code>SELECT Round([Suma_totala]/10000,2) AS Expr1 
FROM sum_suprafata_preemptiune_query; 
</code></pre>

<p>In vba I have: </p>

<pre><code>Me.TextBoxName.Requery
</code></pre>

<p>There are ~20 textboxes, each one queries something. </p>