مطلوووب كود ساعدوني

dim rec
rec = data1.recordset.recordcount
if rec = 0 then
'ضع الحدث الذي تريد هنا و هو إذا كانت القاعدة فارغة
else
'إذا كانت القاعدة مليانة ضع الحدث تبعها هنا
end if

مشكور اخوي عالرد وطبقت الكود اللي عطيتني لكن ضهر خطأ

run-time error'91';

object variable or with block variable not set

مادري ايش السبب

ياليت تكمل معروفك معي

انتظرك

:D تفضل اخي العزيز مثال علي ما طلبت اتمنا انه ينول اعجابك وشكرااااااااااااااااااااااااا :lol:

exmple11.rar

ضع أصفار في الجدول

اقتباس

مشكور اخوي عالرد وطبقت الكود اللي عطيتني لكن ضهر خطأ

run-time error'91';

object variable or with block variable not set

مادري ايش السبب

جرب أن تضع الأمر

data1.refresh

قبل الأمر السابق

اخى الكريم ضاري

من موضوعك قد فهمت ان قاعده البيانات بها جدول واحد

لانك بتقول لو القاعده فاضيه طيب مهى لوفيها اكتر من جدول ممكن واحد يبقى فاضى والتانى مليان

بس دلوقتى احنا بنتكلم على أساس ان جدول واحد بس

انا هكتب مثال على أنك بتستخدم الداتا كنترول فى مشروعك

هنكتب الكود ده

'هنا هيشوف إذا كان الجدول فيه بيانات ولا لا
If data1.recordset.recordCount <> 0  Then
'هنا لو الجدول فيه بيانات هيروح على أخر سجل ول مفيهوش مش هينفذ الشرط وهيكمل عادى
Data1.recordset.MoveLast
End If

وطبعا انت هتكون رابط الجدول والقاعده مع الداتا كنترول ولو عايز الكود على الداو أو الأدو انا ممكن أكتبهولك

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

المشكلة التي تحدث عنها ضاري

في المشاركة الأخيرة له

هي مشكلة في كل قواعد بيانات الـ dao و هي أنه

لا بد من عمل تحديث لها بعد أمر ربطها بالمصدر مباشرة..

و هذا لم أنبهه عليه..

و بالمناسبة كلا الأمرين صحيح:

اقتباس

dim rec

rec = data1.recordset.recordcount

if rec = 0 then

'ضع الحدث الذي تريد هنا و هو إذا كانت القاعدة فارغة

else

'إذا كانت القاعدة مليانة ضع الحدث تبعها هنا

end if

و

اقتباس

'هنا هيشوف إذا كان الجدول فيه بيانات ولا لا

If data1.recordset.recordCount <> 0 Then

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

Data1.recordset.MoveLast

End If

لكن لا بد من وضع أمر التحديث قبلهما..

الف شكر اخواني الله يجازيك خير

يعطيكم العافيه

انا جربت الكود هذا وضبط معي

Private Sub Form_Load()

Data1.Refresh

If Data1.Recordset.RecordCount <> 0 Then

Data1.Recordset.MoveLast

End If

End Sub

يعطيييييييييييييييييييكم الف عافيه ماقصرتوا

وجعله الله في ميزان حسناتكم