alcasir قام بنشر نوفمبر 7, 2017 قام بنشر نوفمبر 7, 2017 مساء الخير / ارجو التعديل على الكود الخاص بالحاق سجل الى جدول اخر,, بحيث يتيح لي الحاق جميع السجلات التي تحمل علامة صح في الكود الحالي يلحق فقط سجل واحد مع جزيل الشكر والتقدير append.rar
يوسف أحمد قام بنشر نوفمبر 7, 2017 قام بنشر نوفمبر 7, 2017 السلام عليكم تفضل اخي العزيز ارجو ان يكون هو المطلوب بالتوفيق append.rar
alcasir قام بنشر نوفمبر 8, 2017 الكاتب قام بنشر نوفمبر 8, 2017 (معدل) بارك الله فيك اخي الكريم على التعديل ولكن ماذا عن بقيه الحقول الموجوده في النموذج الغير منتظمه ارغب ايضا بادراجهن بالجدول يوجد حقل مثلا التكلفه ونوع العمليه..الخ ارغب باضافتهن بالتزامن مع اضافه السجلات الاخرى مع خالص شكري تم تعديل نوفمبر 8, 2017 بواسطه alcasir
يوسف أحمد قام بنشر نوفمبر 8, 2017 قام بنشر نوفمبر 8, 2017 (معدل) و فيك بارك اخي العزيز ارجو التوضيح اكثر و ذلك بتحديد اسماء الجداول و ايضاً اسماء الحقول ( بمعنى من جدول كذا الى جدول كذا و من حقل كذا الى حقل كذا و كذلك فيما يخص مربعات النصوص الغير منضمة الى اي حقول تريد ادراجها بالتحديد) النموذج الذي به اكثر من سجل تريد نقله .... فكيف تريد نقل القيم الغير منضمة مع هذه السجلات ؟ تم تعديل نوفمبر 8, 2017 بواسطه يوسف أحمد 1
alcasir قام بنشر نوفمبر 9, 2017 الكاتب قام بنشر نوفمبر 9, 2017 اخي الكريم استخدم هذا الكود لاضافة سجلات جديه لكن عند الحقل المسمى 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) + 1RecADO!PlantingID = Me!PlantingID RecADO!Type = Me.Type RecADO!Datte = Me.plntDate RecADO!pricee = Me.pricee RecADO.Update RecADO.Close Set RecADO = Nothing
يوسف أحمد قام بنشر نوفمبر 9, 2017 قام بنشر نوفمبر 9, 2017 (معدل) شكراً لك على التوضيح تفضل الكود التالي : 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 قام بنشر نوفمبر 10, 2017 الكاتب قام بنشر نوفمبر 10, 2017 نعم اخي هو عين المطلوب بارك الله فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.