اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

ما هو الخطأ فى هذا الكود

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]

post-110849-0-49877200-1431348070_thumb.

تم تعديل بواسطه السيد الجوهرى
قام بنشر (معدل)

اخي السيد

هذا الكود شغل قديم !! هذه الطريقة تستخدم زمان في الفيجول بيسك 4 !! عندما كانت مكتبات برمجة قواعد البيانات DAO  محدودة !

والسطر

If IsNull(Txtserch) Then Exit Sub

زائد وبدون فائدة !

 

مارايك ان نغير لك الكود بأفضل وبنفس النتيجة !

 

احتاج رسالة الخطأ !  رجعتنا لبرمجة زمان اخ الجوهري !!

 

ارفق قاعدة البيانات !! فقط جدول الحسابات الفرعي ونموذجه !

 

هذا ويحتمل الخطا في :

1. ادخال الدالة val  على قيمة مربع البحث

rs.Seek "=", val(Txtserch.Value)

2. تركيبة الجداول !! فلابد من رؤيتها !

 

 

تحياتي

تم تعديل بواسطه رمهان
قام بنشر

وبعد ما اكتشفت انى برد على الموضوع دا فى موضوع تانى ههههههههههه زهامر وكدا

 

اتمنى من الاخ السيد رقم رسالة الخطأ او صورة ليها يكون احسن

 

 

وشكرا لك

قام بنشر (معدل)

post-110849-0-98666500-1431377561_thumb.

وبعد ما اكتشفت انى برد على الموضوع دا فى موضوع تانى ههههههههههه زهامر وكدا

 

اتمنى من الاخ السيد رقم رسالة الخطأ او صورة ليها يكون احسن

 

 

وشكرا لك

post-110849-0-11795600-1431377697_thumb.

تم تعديل بواسطه السيد الجوهرى
قام بنشر

ارسل ملف به جدول ال accountsub   فقط وبدون بيانات !! موافق ؟؟

قام بنشر

الان اخي السيد : ماهو اسم العمود في الجدول الذي تريد البحث بواسطته؟  اي الذي يستقبل القيمة من مربع البحث ؟ 

قام بنشر

الان اخي السيد : ماهو اسم العمود في الجدول الذي تريد البحث بواسطته؟  اي الذي يستقبل القيمة من مربع البحث ؟ 

شكرا على جهدك الطيب استاذ رمهان

no_subaccount

 

رقم الحساب الفرعي

قام بنشر (معدل)

اوك ! لحظات !

تحياتي

تم تعديل بواسطه رمهان
  • أفضل إجابة
قام بنشر (معدل)

عزيزي واخونا السيد

ظهر لي انه لابد من تحويل نوع البيانات الى عدد صحيح طويل او نص ! افضل نص . قم بالخطوات التالية:

1. احذف المفتاح الاساسي

2. غير نوع البيانات لنص

3.احذف السجلات التي تحتوي قيما خالية لان المفتاح الاساسي لايقبل ذلك

4.اعد وضعه مفتاح اساسي

 

تحياتي

 

 

اسف رفعتها قبل قراءة ردك !!

والحمدلله ان الخطأ لم يخرج من ما توقع رمهان وفي اول رد ! وفي الاحتمال رقم 2 بالتحديد !!

 

حياكم الله الاستاذ السيد الجوهري .. المبرمج والمحاسب ..  جمعتم المجد من اطرافه .....

تم تعديل بواسطه رمهان

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information