مرفق لكم مثال ارجو تصحيح الخطأ
وشكرا
خطأ في كود البرنامج
السلام عليكم ورحمة الله وبركاته
Abboodd كتب:عفواً يا أخي، ولكن على الأقل هل يمكن تحديد موقع الخطأ....
يرجى مراعات ذلك في المرة القادمة
عندك خطأ في جملة التالية
tbInput.Open "select * From sick WHERE FILE_NO LiKE '%" & Trim(Text1.Text) & "%'" And date_user = " & t & "", DB"
والخطأ عندك عبارة عن إستخدام خاطئ لعلامات التنصيص
والجملة الصحيحة كالتالي
tbInput.Open "select * From sick WHERE FILE_NO LiKE '%" & Trim(Text1.Text) & "%' And date_user = #" & Format(t, "YYYY/MM/DD") & "#", DB
وضع في إعتبارك انه لا يوجد حقل يحمل إسم date_user
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
السلام عليكم
اخي الكريم اشمرم على الرد وفعلا انا كتبت اسم الجدول خطأ والصحيح invoic وسوف اجرب الكود وارد عليك
على العموم جزاك الله خيرا واشكرك
اخي الكريم
جربت الكود والحمد لله لم يعطيني خطأ .... ولكن بالبحث يتجاهل رقم الملف عندما ابحث يأتي بفواتير اليوم فقط دون اعتبار لرقم املف....واذا لم يكن هناك اي تاريخ مطابق يعطيني رسالة خطأ في هذا السطر tbInput.MoveFirst
yms12 كتب:اخي الكريمجربت الكود والحمد لله لم يعطيني خطأ .... ولكن بالبحث يتجاهل رقم الملف عندما ابحث يأتي بفواتير اليوم فقط دون اعتبار لرقم املف....واذا لم يكن هناك اي تاريخ مطابق يعطيني رسالة خطأ في هذا السطر tbInput.MoveFirst
اخي يجب ان تقو بفحص السجلات المرتجعه قبل ان تقوم بهذه الخطوة . فاذا كان الناتج = صفر اذا لا تقم بها.
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------