احضار خلايا فارغة من الجدول

يا شباب

هو السؤال مش واضح ولا انا بقيت عبقرى ؟ ههه

لعل المانع خير

تقبلوا تحياتى

وجزاكم الله خير

السبب :

هناك حقل يحمل قيمه null اي فارغ

الجواب :

If Rss.Fields("DISCRAPTION").Value <> Null Then Form3.Text3 = Rss.Fields("DISCRAPTION").Value

## ملاحظه ##

يمكن استبدال هذا

Rss.Fields("DISCRAPTION").Value

بهذا

Rss!DISCRAPTION

عادي لن يؤثر على العمل

للاسف اخى الكريم لا يصلح الاجراء

ما اريدة هو

عند فتح فورم رقم 3 والضغط على F3 للنداء على بيانات الموردين

عند اختيار مورد معين " نستدعى جميع بياناته " حتى لو كانت الخلايا فارغة

مرفق التطبيق مرة اخرى

store.7z

فورم 4

كوماند سيليكت

الكود الموجود لديك كالتالي :

Form3.Text1 = Rss.Fields("SupplierID").Value

Form3.Text2 = Rss.Fields("SupplierName").Value

Form3.Text3 = Rss.Fields("DISCRAPTION").Value

Unload Me

Form3.Command7.Enabled = True

اسمحه كامل ، وألصق الكود التالي محله :

If Rss.Fields("SupplierID").Value <> Null Then Form3.Text1 = Rss.Fields("SupplierID").Value

If Rss.Fields("SupplierName").Value <> Null Then Form3.Text1 = Rss.Fields("SupplierName").Value

If Rss.Fields("DISCRAPTION").Value <> Null Then Form3.Text1 = Rss.Fields("DISCRAPTION").Value

Unload Me

Form3.Command7.Enabled = True

اخى الكريم اسف على تعبك معايا

بس للاسف الكود لا يعمل معى

ارجوا ان تنظر الى المرفق مرة اخرى بعد اضافة الكود

store.7z

مرحبا جربتها الآن وهي شغالة تمام

اكتب الكود التالي :


If Not IsNull(RS!SupplierID) Then Form3.Text1 = RS!SupplierID Else Form3.Text1 = ""
If Not IsNull(RS!SupplierName) Then Form3.Text2 = RS!SupplierName Else Form3.Text2 = ""
If Not IsNull(RS!discraption) Then Form3.Text3 = RS!discraption Else Form3.Text3 = ""

## ملاحظه ##

لديك مشكلة كود الحفظ في فورم 1

في الاجراء UpdateFiledsunit

الحقل الثاني والثالث يخزن في قيمة واحده من تكست2 مكرره يعني

ماشاء الله

تمام التمام

تسلم ايدك اخى العزيز codenew

وجزاك الله عنى كل خير

تقبل تحياتى

السلام عليكم ورحمه الله وبركاته

ممكن سؤال تانى فى نفس الفورم (3)

هناك مشكلة فى كود التعديل

ارجوا الاطلاع

store.7z

وعليكم السلام ورحمة الله وبركاته

اكيد اخي ممكن احنا هنا نتعاون

شوف اخوي كود Save

الموجود في فورم 3

امسح الكود الموجود فيه وألصق الكود التالي :

If Text1 = "" Then
MsgBox " Sorry,Add All Data ", vbCritical = vbMsgBoxleft, "Cheque Printing System "
Text1.SetFocus
Exit Sub
End If

SQLs = " Select * From Suppliers where SupplierID =  " & Text1 & " "
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

If Modify_Type = "Add" And RS.EOF Then      ' في حال كانت عملية إضافة

        RS.AddNew       ' نهيأ الجدول لعملية الإضافة
        UpdateFiledsSup    ' نستدعي امر نقل البيانات من التكستات لحقول قاعدة البيانات
Else

    UpdateFiledsSup    'نستدعي امر نقل البيانات من التكستات لحقول قاعدة البيانات

End If

Unload Me
Form3.Show

نعم اخى الكريم

ولكن اين رسالة ان الرقم المدخل لكود المورد مكرر ؟

حالة الاضافة الجديدة للمورد .

الكود كامل هنا انسخه والصقه

If Text1 = "" Then
MsgBox " Sorry,Add All Data ", vbCritical = vbMsgBoxleft, "Cheque Printing System "
Text1.SetFocus
Exit Sub
End If

SQLs = " Select * From Suppliers where SupplierID =  " & Text1 & " "
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

If Modify_Type = "Add" Then      ' في حال كانت عملية إضافة

If RS.EOF = False Then MsgBox "عفواً الرقم مكرر": Exit Sub

        RS.AddNew       ' نهيأ الجدول لعملية الإضافة
        UpdateFiledsSup    ' نستدعي امر نقل البيانات من التكستات لحقول قاعدة البيانات
Else

    UpdateFiledsSup    'نستدعي امر نقل البيانات من التكستات لحقول قاعدة البيانات

End If

Unload Me
Form3.Show

تمام التمام استاذى العزيز

تسلم ايدك

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

تقبل تحياتى اخى الكريم

banciana كتب:

تمام التمام استاذى العزيز

تسلم ايدك

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

تقبل تحياتى اخى الكريم

تسلم اخوي ، بالتوفيق