ارجو التعديل على كود اضافة سجلات الى جدول اخر

[alcasir]

مساء الخير / ارجو التعديل على الكود الخاص بالحاق سجل الى جدول اخر,,

بحيث يتيح لي الحاق جميع السجلات التي تحمل علامة صح

في الكود الحالي يلحق فقط سجل واحد

مع جزيل الشكر والتقدير

 

append.rar

[يوسف أحمد]

السلام عليكم

 

تفضل اخي العزيز 

 

ارجو ان يكون هو المطلوب

 

بالتوفيق

append.rar

[alcasir]

بارك الله فيك اخي الكريم على التعديل

ولكن ماذا عن بقيه الحقول الموجوده في النموذج الغير منتظمه

ارغب ايضا بادراجهن بالجدول

يوجد حقل مثلا التكلفه ونوع العمليه..الخ

ارغب باضافتهن بالتزامن مع اضافه السجلات الاخرى

مع خالص شكري

تم تعديل نوفمبر 8, 2017 بواسطه alcasir

[يوسف أحمد]

و فيك بارك اخي العزيز

 

ارجو التوضيح اكثر و ذلك بتحديد اسماء الجداول  و ايضاً اسماء الحقول ( بمعنى من جدول كذا الى جدول كذا و من حقل كذا الى حقل كذا و كذلك فيما يخص مربعات النصوص الغير منضمة الى اي حقول تريد ادراجها بالتحديد)

النموذج الذي به اكثر من سجل تريد نقله ....   فكيف تريد نقل القيم الغير منضمة  مع هذه السجلات ؟  

 

تم تعديل نوفمبر 8, 2017 بواسطه يوسف أحمد

[alcasir]

اخي الكريم استخدم هذا الكود

لاضافة سجلات جديه

لكن عند الحقل المسمى plantingID 

ارغب باضافه اكثر من سجل بحيث يكون شكل الجدول بعد اللحاق بهذا الشكل

laborCosttble

pricee	typpe	PlantingID
ر.ع.‏483.33	تسميد	1
ر.ع.‏483.33	تسميد	2
ر.ع.‏483.33	تسميد	3

المشكلة في الحقل plantingId

عند تنفيذ الكود يلتحق فقط اول سجل ,,ارغب بالخاق جميع السجلات التي بهن علامه صح,,,طبعا بالاضافة الى الحقول الغير منطمة ايضا
 

Dim RecADO As New ADODB.Recordset
RecADO.Open "otherOpeartionTbe", CurrentProject.Connection, adOpenStatic, adLockOptimistic, acTable
RecADO.AddNew
RecADO!OperationID = Nz(DMax("[operationID]", "otherOpeartionTbe"), 0) + 1
RecADO!PlantingID = Me!PlantingID
RecADO!Type = Me.Type
RecADO!Datte = Me.plntDate
RecADO!pricee = Me.pricee
RecADO.Update
RecADO.Close
Set RecADO = Nothing

[يوسف أحمد]

شكراً لك على التوضيح

 

تفضل الكود التالي :

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO costtble ( PlantingID, laborCost, typpe )" & _
"SELECT plantingTble.PlantingID, [forms]![costFrm]![cost] , [forms]![costFrm]![typpe] " & _
"FROM plantingTble WHERE (((plantingTble.Active)=Yes));"
DoCmd.SetWarnings True

تفضل ملفك بعد التعديل

 

بالتوفيق

 

append.rar

تم تعديل نوفمبر 9, 2017 بواسطه يوسف أحمد

[alcasir]

نعم اخي هو عين المطلوب

بارك الله فيك