Question

我想根据查询填充文本框，该查询根据表单中的值查询另一个查询。

结构是：

form -> query1 -> query2 -> textbox

现在我已成功写入vba me.textbox.requery，但我有20个带有requery的文本框。重新查询表单大约需要1分钟。我试图在谷歌上找到一些东西，但没有成功。例如

之类的东西

textbox1.value = queryname.fieldvalue

文本框的查询只有一行，因为它们具有sum或count语法。请帮忙

修改

第一个查询是（＆＃34; preemptiune_zone_query＆＃34;）：

SELECT original2.[Numar Tranzactie]
  , original2.[Familie Tranzactie]
  , original2.[NUME 1]
  , original2.zona
  , original2.JUDET
  , original2.[LOCALITATE REALA]
  , IIf([numar_cadastral]<>"" 
    Or [carte_funciara]<>"","Da","Nu") AS Intabulat
  , original2.Numar_Cadastral
  , original2.Carte_Funciara
  , original2.TARLA
  , original2.PARCELA
  , original2.[SUP PARCELA]
  , IIf([sup parcela]>=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 & "*") 
And ((original2.[Familie Tranzactie]) Like Forms!Preemptiune!familie & "*") 
And ((original2.zona) Like Forms!Preemptiune!zona & "*") 
And ((original2.JUDET) Like Forms!Preemptiune!judet & "*") 
And ((original2.[LOCALITATE REALA]) Like forms!Preemptiune!uat & "*") 
And ((IIf([numar_cadastral]<>"" 
  Or [carte_funciara]<>"","Da","Nu")) Like Forms!Preemptiune!intabulat & "*") 
And ((IIf([sup parcela]>=10000,"Peste 1ha","Sub 1ha")) Like forms!Preemptiune!tip_suprafata & "*") 
And ((forma_intelegere.forma_intelegere) Like forms!Preemptiune!forma_intelegere & "*") 
And ((original2.factor_parcela)=1));

此查询正在从表单更新子表单。在相同的表单中，我想插入从查询Query1的某些查询更新的文本框（或标签）。

例如query2：

SELECT Sum(preemptiune_zone_query.[SUP PARCELA]) AS Suma_totala
  , Count(preemptiune_zone_query.[SUP PARCELA]) AS nr_parcele_total
FROM preemptiune_zone_query;

在文本框中 - 在数据中 - 行源我已经插入了SQL语法：

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

在vba中我有：

Me.TextBoxName.Requery

有大约20个文本框，每个文本框都会查询一些内容。

从查询

0 个答案: