طيب هل فى طريقة اعدلها
واسف على الأزعاج
أريد ضبط (أستكمال) بعض العمليات الأساسية فى قواعد البيانات ADODC
مغلقرائج
اكيد :
بص هيتم مقارنة ناتج عدد سجلات البحث فا اذا كانت = 0 هذا معناه انه لا يوجد نتائج للبحث , يظهر له رساله تفيد بأنه لا يوجد نتائج للبحث وارجاع مصدر البيانات للوضع الاصلي :
استبدل هذا الكود بالكود الحالي الموجود في زر البحث :
Private Sub Command5_Click()
Dim x As String
x = InputBox("من فضلك ادخل الأسم")
If x = Cancel Then Exit Sub
Data1.RecordSource = "select * from scol2000 where name like '*" & x & "*'"
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then
MsgBox "لايوجد نتائج للبحث"
Data1.RecordSource = "scol2000"
Data1.Refresh
End If
End Subلاحظ :
If Data1.Recordset.RecordCount = 0 Then MsgBox "لايوجد نتائج للبحث" Data1.RecordSource = "scol2000" Data1.Refresh End If
ملحوظه يجب وضع زر لإلغاء ناتج البحث وارجاع مصدر البيانات للوضع الاصلي .
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
ماشي ياباشا
انا هعدل على الكود
لكن ازاى اضيف
زر لألغاء ناتج البحث وارجاع مصدر البيانات؟
تم تعديل هذه المشاركة بواسطة الجماجم في 27 مايو 2007 في 17:37
طلعت من مشكلة ياغالى جت مشكلة تانية
دلوقتى البحث بالأسم شغال تمام
لكن لما اعمل التالى يجيبلى خطأ فية end
و
deubge
فى الأنتظار
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
طيب ياغالى سؤال
هل الملف المرفق هذا هو بعد التعديل يعنى اسلمة على كدة؟
ماشاء الله شغال حلو ياغالى
وشكرا
اقتباسطيب ياغالى سؤالهل الملف المرفق هذا هو بعد التعديل يعنى اسلمة على كدة؟
العفو ,,,,
عيوني ,,,,,, :)
اقتباسطيب ياغالى سؤالهل الملف المرفق هذا هو بعد التعديل يعنى اسلمة على كدة؟
أت شايف ايه هو مطلوب مني انا ولا منك انت ,
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
لا منى انا ياباشا
ربنا يخليك
والف شكر ليك
وممكن طلب
ياريت لو تجيب ايميلك عشان نتعرف اكتر يعنى
ومتخافش مش هسألك اى سؤال فى الفيدوال لما اعوز اسأل هسأل هنا
وعندى استفسار فى المشروع تانى
لما بيكون فى حاجات فاضية
فى البيانات
وبدوس مسح
بيجيبلى ايرور
هل لو حطيت الكود بتاع
On Error Resume Next
هيأثر على البرنامج؟
وفى انتظار ردك
انا استعملت هذا الكود ياغالى
On Error Resume Next
واشتغل تمام
وتسلم ايدك
اقتباسOn Error Resume Next
ممكن ولكني أفضل اولا التأكد من ان عدد السجلات أكبر من الـ 0 فأذا تحقق الامر يتم الحذف وان لم يتحقق يعطي له رساله تفيد بان مثلا لا يوجد بيانات ليتم مسحها .
وإيميلي في ملفي الشخصي ,,,
ومتشكر على كلامك !!!! وأنا بحب الاصدقاء جدا
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
A7med_prof كتب:ممكن ولكني أفضل اولا التأكد من ان عدد السجلات أكبر من الـ 0 فأذا تحقق الامر يتم الحذف وان لم يتحقق يعطي له رساله تفيد بان مثلا لا يوجد بيانات ليتم مسحها .وإيميلي في ملفي الشخصي ,,,
ومتشكر على كلامك !!!! وأنا بحب الاصدقاء جدا
الف شكر ليك ياريس
لكن انا مش فاهم نقطة
أفضل اولا التأكد من ان عدد السجلات أكبر من الـ 0 فأذا تحقق الامر يتم الحذف وان لم يتحقق يعطي له رساله تفيد بان مثلا لا يوجد بيانات ليتم مسحها
وانا ضفتك ومستنى قبول الأضافة
تم تعديل هذه المشاركة بواسطة الجماجم في 27 مايو 2007 في 20:06
مستنيك ياريس
مستنيك ياباشا
هتضع هذا السطر في بداية الاجراء :
If Data1.Recordset.RecordCount = 0 Then MsgBox "xxx" : Exit Sub
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
طب معلش احطها فى انهى اجرائات
معلش والله انا عارف انى تعبتك
لكن بيتهيألى ان دى اخر حاجة
احطها فى انهى اجرائات
اقتباسطب معلش احطها فى انهى اجرائاتمعلش والله انا عارف انى تعبتك
لكن بيتهيألى ان دى اخر حاجة
احطها فى انهى اجرائات
لا عيوني , في إجراء زر الحذف أكيد !
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
ربنا يخليك ياباشا
الف الف شكر ليك ياريس
هحطها دلوقت
يعنى احط دى
If Data1.Recordset.RecordCount = 0 Then MsgBox "xxx" : Exit Sub
بدال دى
on error resume
???
ومستنيك ياباشا
ـــــــــــــــــ
عندى استفسار
انتة قبلت الأضافة ولا اديتنى بلوك :D
بهزر ياريس
بس شكلك مش بتدخل على الميل كتير
المهم انا اشكرك على مساعدتك ليا
تم تعديل هذه المشاركة بواسطة الجماجم في 28 مايو 2007 في 10:24
العفو يا باشا .
:D :D :D
هههههههه
ليه كده انا وافقت , انا اون لين دلوقتي ولكني الظهور اوف لاين !
ابعتلي اي حاجه وانا هرد عليك .
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
A7med_prof كتب:العفو يا باشا .:D :D :D
هههههههه
ليه كده انا وافقت , انا اون لين دلوقتي ولكني الظهور اوف لاين !
ابعتلي اي حاجه وانا هرد عليك .
ماشي ياباشا
بس انتة اوف لاين عندى
ومش عارف اكلمك
حاول بقى تدخل اون لاين
بس فى حاجة اياريت تشوف دى
اقتباسربنا يخليك ياباشاالف الف شكر ليك ياريس
هحطها دلوقت
يعنى احط دى
If Data1.Recordset.RecordCount = 0 Then MsgBox "xxx" : Exit Sub
بدال دى
on error resume
???
ومستنيك ياباشا
ومستنيك على الميل :D
مستنيك ياباشا
اقتباسربنا يخليك ياباشاالف الف شكر ليك ياريس
هحطها دلوقت
يعنى احط دى
If Data1.Recordset.RecordCount = 0 Then MsgBox "xxx" : Exit Sub
بدال دى
on error resume
???
ومستنيك ياباشا
عشان كان المفروض يتسلم امبارح :D
بس الحمد لله كنت نايم :D
فهاسلمة النهاردة
تم تعديل هذه المشاركة بواسطة الجماجم في 28 مايو 2007 في 11:02
ايوه والله ;)
تم تعديل هذه المشاركة بواسطة A7med_prof في 28 مايو 2007 في 11:19
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
ماشي ياباشا
الف شكر ليك
والا ايه صحيح حكاية معندكش نت دى :D :D
فى حاجة ياباشا
النا لما كنت باجى اعمل اضافة
بيتغير اضافة الى حف
دلوقتى مبقاش ييجى
ايه المشكلة دى؟
هذا الموضوع مغلق.