السيد الجوهرى قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 (معدل) ما هو الخطأ فى هذا الكود Private Sub Command37_Click() Command20.Enabled = True ''''ßæÏ ÇáÈÍË If IsNull(Me![Txtserch]) = True Then MsgBox " ÃÏÎá ÑÞã ÇáÍÓÇÈ" & " [ " & " !!! " & " ] " & "ÝÇÑÛ", vbCritical, "ÊäÈíå" Txtserch.SetFocus Exit Sub End If If IsNull(Txtserch) Then Exit Sub Dim db As Database, rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("accountsub") rs.Index = "PrimaryKey" rs.Seek "=", Txtserch.Value If rs.NoMatch Then Beep MsgBox " åÐÇ ÇáÍÓÇÈ ÛíÑ ãæÌæÏ ÈÏáíá ÇáÍÓÇÈÇÊ", , "ÇáãÈÑãÌ" ElseIf Not rs.NoMatch Then txt1 = rs!no_subaccount txt2 = rs!name_subaccount Txt3 = rs!no_account Txt4 = rs!name_account Text103 = rs!noacc Text102 = rs!accname Text49 = rs!emil Text41 = rs!telno Text42 = rs!adresse Text45 = rs!fax Chaa = rs!acc text5 = rs!nama_account End If Txtserch.SetFocus Txtserch = "" End Sub [attachment=93944:U8888ntitled.jpg] تم تعديل مايو 11, 2015 بواسطه السيد الجوهرى رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 اخى الكريم هو ايه نوع الكائن دا accountsub جدول ولا استعلام ولا جدول مربوط SQL ارجو التوضيح رابط هذا التعليق شارك More sharing options...
السيد الجوهرى قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 اخى الكريم هو ايه نوع الكائن دا accountsub جدول ولا استعلام ولا جدول مربوط SQL ارجو التوضيح جدول اخى الكريم رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 جدول مربوط بسكول ولا مش مربوط ؟؟ رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 (معدل) اخي السيد هذا الكود شغل قديم !! هذه الطريقة تستخدم زمان في الفيجول بيسك 4 !! عندما كانت مكتبات برمجة قواعد البيانات DAO محدودة ! والسطر If IsNull(Txtserch) Then Exit Sub زائد وبدون فائدة ! مارايك ان نغير لك الكود بأفضل وبنفس النتيجة ! احتاج رسالة الخطأ ! رجعتنا لبرمجة زمان اخ الجوهري !! ارفق قاعدة البيانات !! فقط جدول الحسابات الفرعي ونموذجه ! هذا ويحتمل الخطا في : 1. ادخال الدالة val على قيمة مربع البحث rs.Seek "=", val(Txtserch.Value) 2. تركيبة الجداول !! فلابد من رؤيتها ! تحياتي تم تعديل مايو 11, 2015 بواسطه رمهان رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 وبعد ما اكتشفت انى برد على الموضوع دا فى موضوع تانى ههههههههههه زهامر وكدا اتمنى من الاخ السيد رقم رسالة الخطأ او صورة ليها يكون احسن وشكرا لك رابط هذا التعليق شارك More sharing options...
السيد الجوهرى قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 (معدل) وبعد ما اكتشفت انى برد على الموضوع دا فى موضوع تانى ههههههههههه زهامر وكدا اتمنى من الاخ السيد رقم رسالة الخطأ او صورة ليها يكون احسن وشكرا لك تم تعديل مايو 11, 2015 بواسطه السيد الجوهرى رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 ارسل ملف به جدول ال accountsub فقط وبدون بيانات !! موافق ؟؟ رابط هذا التعليق شارك More sharing options...
السيد الجوهرى قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 ارسل ملف به جدول ال accountsub فقط وبدون بيانات !! موافق ؟؟ Database6.rar رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 الان اخي السيد : ماهو اسم العمود في الجدول الذي تريد البحث بواسطته؟ اي الذي يستقبل القيمة من مربع البحث ؟ رابط هذا التعليق شارك More sharing options...
السيد الجوهرى قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 الان اخي السيد : ماهو اسم العمود في الجدول الذي تريد البحث بواسطته؟ اي الذي يستقبل القيمة من مربع البحث ؟ شكرا على جهدك الطيب استاذ رمهان no_subaccount رقم الحساب الفرعي رابط هذا التعليق شارك More sharing options...
السيد الجوهرى قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 (معدل) اعتقد ان المشكلة فى الاعمدة accno accname عند حذف تلك الاعمدة يعمل البحث بشكل صحيح تم تعديل مايو 11, 2015 بواسطه السيد الجوهرى رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 (معدل) اوك ! لحظات ! تحياتي تم تعديل مايو 11, 2015 بواسطه رمهان رابط هذا التعليق شارك More sharing options...
السيد الجوهرى قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 (معدل) فغلا تم تغيير نوع حقل المتاح الاساسي دون حذف اى اعمدة وبناء علية اشتغل الاستعلام بطريقة جيدة تم تعديل مايو 11, 2015 بواسطه السيد الجوهرى رابط هذا التعليق شارك More sharing options...
أفضل إجابة رمهان قام بنشر مايو 11, 2015 أفضل إجابة مشاركة قام بنشر مايو 11, 2015 (معدل) عزيزي واخونا السيد ظهر لي انه لابد من تحويل نوع البيانات الى عدد صحيح طويل او نص ! افضل نص . قم بالخطوات التالية: 1. احذف المفتاح الاساسي 2. غير نوع البيانات لنص 3.احذف السجلات التي تحتوي قيما خالية لان المفتاح الاساسي لايقبل ذلك 4.اعد وضعه مفتاح اساسي تحياتي اسف رفعتها قبل قراءة ردك !! والحمدلله ان الخطأ لم يخرج من ما توقع رمهان وفي اول رد ! وفي الاحتمال رقم 2 بالتحديد !! حياكم الله الاستاذ السيد الجوهري .. المبرمج والمحاسب .. جمعتم المجد من اطرافه ..... تم تعديل مايو 11, 2015 بواسطه رمهان رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.