هل استطيع تغيير مصدر البيانات للنموذج بالكود البرمجي

اخي الفاضل

تستطيع عمل ذلك من خلال التالي :

1. انشاء زر امر وضع في حدث عند النقر هذا الكود

Private Sub CmdUpdate_Click()
Me.RecordSource = "MyTable"
Me.Requery
End Sub

أختي الفاضلة أم العهود جزاك الله كل خير

هل تصح هذه الطريقة إن كان مصدر البيانات استعلام داخل النموذج وليس استعلام محفوظ أي ممكن أن يكون داخل الكود مثلا

ebraheem-w كتب:

أختي الفاضلة أم العهود جزاك الله كل خير

هل تصح هذه الطريقة إن كان مصدر البيانات استعلام داخل النموذج وليس استعلام محفوظ أي ممكن أن يكون داخل الكود مثلا

نعم اخي الكريم

تصلح هذه الطريقة ةلا يوجد بها مشكلة مثل هذا الكود

Private Sub Form_Current()
Me.RecordSource = "SELECT Table.ID, Table.NumberID, Table.day,  Table.note FROM Table;"
End Sub

اشكرك اخت زهرة وكل اجاباتك قيمة وفي مكانها

لكن واجهتني مشكلة عند وضع select اي الاستعلام لانه طويل بعض الشيء ولم يتسع لسطر واحد في الكود كيف يعمل الاستعلام على اكثر من سطر في الفيجيول بيزك

هذا استعلامي

SELECT Sum(Auto.inn) AS Suminn, Sum(Auto.out) AS Sumout, nz([suminn])-nz([sumout]) AS Expr1, Auto.cuss, Auto.ID_klfan, Custmer.ArAccDes, [cuss] & "_" & [ArAccDes] AS Expr5, IIf([iD_klfan] Is Null,0,[id_klfan]) AS Expr2, inv.crn, inv.T_lir, [expr1]*[t_lir] AS syp, IIf([crn]=[forms]![aat].[crn],[syp]/[t_lir],[syp]/DLookUp("[T_lir]","currency","forms!aat.crn=ne_dur")) AS forinC, [suminn]*[t_lir] AS sypinn, [sumout]*[t_lir] AS sypout, IIf([crn]=[forms]![aat].[crn],[sypinn]/[t_lir],[sypinn]/DLookUp("[T_lir]","currency","forms!aat.crn=ne_dur")) AS forininn, IIf([crn]=[forms]![aat].[crn],[sypout]/[t_lir],[sypout]/DLookUp("[T_lir]","currency","forms!aat.crn=ne_dur")) AS forinout, IIf([forinc]>0,[forinc],0) AS Expr6, IIf([Expr4]>0,[Expr4],0) AS Expr3, nz([forinout])-nz([forininn]) AS Expr4, IIf([Expr4]<>0,1,2) AS sfr3

FROM (Auto INNER JOIN inv ON Auto.no_invice = inv.idd) INNER JOIN Custmer ON Auto.cuss = Custmer.AccID

WHERE (((inv.edat) Between [forms]![aat]![w] And [forms]![aat]![ww]))

GROUP BY Auto.cuss, Auto.ID_klfan, Custmer.ArAccDes, [cuss] & "_" & [ArAccDes], IIf([iD_klfan] Is Null,0,[id_klfan]), inv.crn, inv.T_lir

HAVING (((IIf([iD_klfan] Is Null,0,[id_klfan])) Like "*" & [forms]![aat].[klf] & "*"))

ORDER BY Sum(Auto.inn) DESC;

السلام عليكم 

يوجد العديد من الطرق وهذا رابط 

من هنا

وهذا مرفق برنامج للاستاذذة زهرة

za_Convert_SqlToVba.rar

عبدالله المجرب كتب:

السلام عليكم 

يوجد العديد من الطرق وهذا رابط 

 

من هنا

 

وهذا مرفق برنامج للاستاذذة زهرة

جزاكم الله كل خير   جميع المشاركات كانت مفيدة بالنسبة لي

لكن واجهة مشكلة التحويل من vba الى sql

هل المطلوب تحويل كود VBA الى  SQL

بعد تحويل كود sqlالىvba ‎

المطلوب أرجاع الكود المحول منvba ‎ألى sql ‎كي استخدمه في استعلام واستطيع التعديل فيه