كيف احذف اخر صف من الفلبكس جريد

السلام عليكم ورحمة الله وبركاته

اخي بما انه آخر سجل فالامر سهل ان شاء الله

جرب الكود التالي(أعتقد أنك تستخدم داتا كنترول):

Data1.RecordSource = "select * from MyTable"
Data1.Recordset.MoveLast
Data1.Recordset.Delete
Data1.Refresh

بالتوفيق

===============

الى اللقاء

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

السلام عليكم ورحمة الله وبركاته

اكتبه تحت حدث الدبل كليك

Private Sub MSFlexGrid1_DblClick()
Data1.RecordSource = "select * from MyTable"
Data1.Recordset.MoveLast
Data1.Recordset.Delete
Data1.Refresh
End Sub

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

بالتوفيق

===========

الى اللقاء

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

السجل الذى حذفته من القاعدة الاولى كاتالى

اسم الصنف الكمية السعر الاجمالى

اقلام 100 2 200

وقاعدة البيانات التالبة هى

اسم الصنف الكمية السعر الاجمالى

اقلام 1000 2 2000

انا اريد هذة القاعدة بعد الحذف كالتالى

اسم الصنف الكمية السعر الاجمالى

اقلام 900 2 1800

فهل هذا ممكن

ارجوا الافادة ان امكن

وشكرا

ارجوا النصيحة

السلام عليكم ورحمة الله وبركاته

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

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

وبعد تقوم بحذف السجل وبهذا يتم انقاص المخزون بكمية الصنف التي سيتم حذفها

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

بالتوفيق

=============

الى اللقاء

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

الاول به سجلات منفردة والثانى به الاجماليات

وشكرا للك

وارجوا ان تقبل تحياتى

ارجوا الافادة

ارجوا الافادة

ارجوا الافادة

ارجوا الافادة