منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الرجاء المساعدة( تحديد نوع الادخال بقاعدة البيانات) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : الرجاء المساعدة( تحديد نوع الادخال بقاعدة البيانات) (/showthread.php?tid=14750)

الصفحات: 1 2


RE: الرجاء المساعدة( تحديد نوع الادخال بقاعدة البيانات) - haniblack - 01-03-16

(29-02-16, 10:49 PM)ahmedabdelaliem كتب : اخي حقل التاريخ لا يقبل ان يكون خالي يجب اسناد قيمة له ولكن اذا ضروري يمكنك تعديل الكود هكذا

PHP كود :
Private Sub Command1_Click()
On Error Resume Next
Dim Response 
As String
Dim uname 
As String


uname 
Text1.Text

Response 
MsgBox("Update this record?"vbYesNo vbQuestion"Confirmation")

If 
Response vbNo Then
Adodc1
.Refresh
Adodc1
.Recordset.CancelUpdate
Adodc1
.Refresh

MsgBox 
"Save Cancelled!"

ElseIf Text1.Text "" Then
MsgBox 
"Please fill the Employee ID !"vbCriticalTime
ElseIf Response vbYes Then

 Adodc1
.Recordset.Fields("name") = IIf(IsNull(Text1.Text), ""Text1.Text)
 
Adodc1.Recordset.Fields("pass") = IIf(IsNull(Text2.Text), ""CDate(Text2.Text))
 
Adodc1.Recordset.Fields("eqama") = IIf(IsNull(Text4.Text), ""CDate(Text4.Text))
 
Adodc1.Recordset.Fields("startdate") = IIf(IsNull(Text4.Text), ""CDate(Text4.Text))
 
Adodc1.Recordset.Update
MsgBox 
"Record Saved!"vbInformationTime
End 
If
End Sub 


بالتوفيق

شكراً لك استاذ احمد ولك الذين شاركوا بالرد

لقد تم حل المشكلة
هل يمكن ان تشرح لي الكود
PHP كود :
On Error Resume Next 


لانه هو الذي حل مشكلتي
اريد ان افهم عمل هذا الكود واين يمكن وضعه ايضاً
وشكرا لتعاونكم


RE: الرجاء المساعدة( تحديد نوع الادخال بقاعدة البيانات) - ahmedabdelaliem - 01-03-16

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

بالتوفيق