12-07-19, 10:18 PM
13-07-19, 04:12 AM
السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل الكود ... سيتحقق من الحقل اذا كان فارغا سيقوم بالتعديل
وان كان مملوءا سيرفض التعديل
كود :
' اذا كان حقل المغادرة للسجل الذي بحمل رقم مربع النص للايدي-1
If (dt.Rows(CInt(Txt_ID.Text) - 1)("حقل المغادرة")) = "" Then
' كود التعدبل
Else
MsgBox("لايمكن تعديل هذا السجل")
Exit sub
End If13-07-19, 08:49 AM
(13-07-19, 04:12 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل الكود ... سيتحقق من الحقل اذا كان فارغا سيقوم بالتعديلوان كان مملوءا سيرفض التعديلكود :
' اذا كان حقل المغادرة للسجل الذي بحمل رقم مربع النص للايدي-1
If (dt.Rows(CInt(Txt_ID.Text) - 1)("حقل المغادرة")) = "" Then
' كود التعدبل
Else
MsgBox("لايمكن تعديل هذا السجل")
Exit sub
End If
الرجاء التوضيح وفي اي حدث على داتا جريد فيو وشكرا
13-07-19, 10:24 AM
الكود واضح وضوح الشمس
ضعه في زر التعديل
وان احببت تفاديا لاي مشكلة مع حقل المغادرة استبدل "" دبل كوتيشن بكلمة nothing