حذف الصف الذي يحتوي على قيم فارغة

[مصطفى العراقي1988]

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

في الملف المرفق جدول

اريد حذف الصف الذي يحتوي على قيم فارغة مع حذف الاسم 

والابقاء على الصفوف التي فيها قيم ( قيم مختلفة الصيغ) . 

شكراً جزيلاً لكم مقدماً 

 

[مصطفى العراقي1988]

مسودة تحذف - Copy.rar

[عبدالجيد]

هو انت مستخدم برنامج الأكسس بنفس طريقة استخدام الإكسيل

الأكسس برنامج لإدارة قواعد البيانات العلائقية وليست قواعد البيانات المسطحة

وبعدين هو انت كتبت الأسماء ليه وانت عايز تحذفها

حل مشكلتك إن انت تتعلم ازاى تستخدم برنامج الأكسس الأول وانت هتعرف إن اللى انت عامله دا مش نظام تسجيل البيانات اللى بنشغل عليه فى الاكسس

اتمنى الرسالة تكون وصلت

[مصطفى العراقي1988]

استاذ @عبدالجيد

لدي اسبابي في العمل بكلا الطريقتين 

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

ارجو ان تساعدني في حل المشكلة الله يرحم اهلك  

[Moosak]

وعليكم السلام ورحمة الله وبركاته أخي @مصطفى العراقي1988 🙂 

3 ساعات مضت, مصطفى العراقي1988 said:

اريد حذف الصف الذي يحتوي على قيم فارغة مع حذف الاسم

هل تقصد الصفوف الفارغة تماما من أية بيانات ؟

طبعا ستحتاج لتنفيذ ذلك إلى استعلام حذف .. بحيث تكتب في معيار جميع الخلايا  ( Is Null ) أو تضع هذه =""

ثم تشغل الاستعلام ..

 

 

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

Day1

Day2

Day3

Day4

...................... وهكذا

وذلك تجنبا للمشاكل البرمجية لاحقا .. 🙂 

[متقاعد]

2 ساعات مضت, مصطفى العراقي1988 said:

ارجو ان تساعدني في حل المشكلة الله يرحم اهلك  

بداية اتفق مع الاستاذ @عبدالجيد في امكانية عمل البرنامج بشكل يتوافق مع تصميم قواعد البيانات

مشاركة مع الاستاذ @Moosak

طريقة بسيطة باستخدام عد الحقول الفارغة

الملف مرفق واعتذر مقدما لعدم مراجعة العمل لانشغالي

 

Database13.accdb

[مصطفى العراقي1988]

@Moosak

هل تقصد الصفوف الفارغة تماما من أية بيانات ؟

 

نعم اخي الكريم اريد حذف الصفوف الخالية تماماً 

 

اخي الكريم انا مبتدء في الاكسس 

 

هل يمكن عمل كود برمجي اقوم بادخاله للوصول الى غايتي ؟

[kkhalifa1960]

تفضل أخي ووافني بالرد .

واذا كان هذا طلبك إضفط على أفضل اجابة .

مسودة تحذف.rar

تم تعديل فبراير 20, 2023 بواسطه kkhalifa1960

[مصطفى العراقي1988]

@kkhalifa1960@متقاعد@Moosak شكراً جزيلاً لكم اساتذتي واخواني الاعزاء للاستجابة الدقيقة والرائعة وحل المشاكل 

تحيتي واحترامي لكم 

[مصطفى العراقي1988]

@kkhalifa1960

 

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

 ارجو من جنابك الكريم وعلى وقت فراغك بتعديل الملف ليقوم بحذف الفراغات لغاية يوم 31 وجزاك الله خير جزاء المحسنين 

قمت باضافة الجداول لكن حصلت مشكلة 

 

حذف الفراغات لغاية 31.rar

[kkhalifa1960]

ممكن توضح لأني مافهمت ماتقصده  لأنه الحين يحذف السطر الغير مسجل به في كل الايام من 1 الى 31 .

[Eng.Qassim]

استاذي العزيز @مصطفى العراقي1988

نعلم بأن البصمة اليومية تخزن بملف اكسل .. المسؤول عن البصمة يقوم بطبع من لديه اجازة او من لديها امومة او من كان غائبا

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

اما طريقتك هذه في توظيف الاكسس ..مع اعتذاري الشديد غير صحيحة

هذا ما افهمه ..وربما انا مخطيء

[مصطفى العراقي1988]

@kkhalifa1960 استاذنا العزيز تم حل المشكلة ولا يهمك وانت صاحب الفضل يا طيب 

[متقاعد]

اذا كان الشهر 30 يوم نفتح الاستعلام ونعدل وياتي بعده شهر 31 ثم 29 ثم 28 ونعود للتعديل وهكذا الى مالا نهاية تلافيا لرسالة ادخال قيمة عندما يختلف عدد الايام مختلف

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

ثم تجمع الدالة الحقول فاذا كان الناتج صفر فهذا يعني ان الحقول فارغة ويكون الصفر هو معيار حذف السجلات

في هذه الطريقة لايهم عدد ايام الشهر ولا يتطلب منا تعديل المعيار عند اختلاف عدد الايام

Public Function sum_fld(num As Long)
Dim rst As DAO.Recordset
Dim fld As Field
Dim x As Byte
Set rst = CurrentDb.OpenRecordset("Select * From [ta1] Where [idd]= " & num)
x = 0
For Each fld In rst.Fields
If fld.Name <> "idd" And fld.Name <> "1" Then
If IsNull(fld.Value) Then
x = x + 0
Else
x = x + 1
End If
End If
Next
sum_fld = x
rst.Close
End Function

ثم نعمل استعلام

DELETE Ta1.*, sum_fld([IDD]) AS Expr2
FROM Ta1
WHERE (((sum_fld([IDD]))=0));

اخيرا توجد طرق اخرى ولكني اكتفي بذلك

الملف مرفق

 

Database13.accdb

[مصطفى العراقي1988]

بارك الله فيك @متقاعدللحلول السهلة والكثيرة التي افدتني فيها 🌹🌹🌹