SQL statment

المعذره شباب انا طول العصر احاول اسويها مو براضيه بس يوم اني طلبت العونه انحلت عموما ابذكر الحل لعل الجميع يستفيد منها

سويتها عن طريق الفجوال بيسك وكانت ممتازه والطريقه مجرد ماتسوي كلك على زرار يشغل التالي:

Private Sub Command54_Click()

Dim strSQL As String

strSQL = "INSERT INTO Expiration ( Emp_ID, Type, Document_No, Exp_Date ,[Value], Assignet_To, Assigned_Date, Transfared ) " _

& "SELECT [Forms]![Expiration]![Text34] , [Forms]![Expiration]![Combo36], [Forms]![Expiration]![Text38] , Forms!Expiration![Text39] ,Forms!Expiration![Combo41], Forms!Expiration![Combo42] , Forms!Expiration![Text43],Forms!Expiration![Check44];"

DoCmd.RunSQL strSQL

End Sub

ودمتم بوافر الصحه

إذا كان الاستعلام إلحاقي فجرب

Docmd.runSql("عبارة SQL")

وحقيقة أنا ما فمهت الموضوع بالضبط لكن هذا اجتهاد مني فإن كان ما قلته صحيح فالحمد لله وإلا وضح المطلوب أكثر واكتب عبارة الـ SQL التي لديك لعمل تجربة عليها أو تقسيهما أو أي شيء آخر .

ولك تحياتي

الاخ ابو حمود كلامك صحيح بس اني سويت زي ماقلت وماضبطت فاضطريت اني اعرف string واجعلها تساوي عبارة sql ومن ثم

docmd.runsql string

وبس ونجحت معي