18-02-16, 09:17 AM
اخواني الكرام السلام عليكم,,,
اريد طريقة تلوين الجدول datagrid بلون محدد عندما يكون فارغ
مثلاً يمكن اضافة هذا الكود عند زر الحفظ
السؤال الثاني انه عندي في قاعدة البيانات سجل من نوع تاريخ / وقت
عندما اكتب في قاعدة البيانات وابقي مربع التاريخ يظهر رسالة خطأ
كيف يمكن انا اتفاداها مع العلم ان قاعدة البيانات مربوطة باداة adodc
وهذا زر الحفظ:
ولكنني من اجل عملية حساب العمر يجب وضع النوع تاريخ وليس نص
شكراً لجهودكم اساتذتنا الاعزاء
اريد طريقة تلوين الجدول datagrid بلون محدد عندما يكون فارغ
مثلاً يمكن اضافة هذا الكود عند زر الحفظ
السؤال الثاني انه عندي في قاعدة البيانات سجل من نوع تاريخ / وقت
عندما اكتب في قاعدة البيانات وابقي مربع التاريخ يظهر رسالة خطأ
كيف يمكن انا اتفاداها مع العلم ان قاعدة البيانات مربوطة باداة adodc
وهذا زر الحفظ:
إقتباس :Dim Response As Stringملاحظة : في قاعدة البيانات اكسس عندما اغير التاريخ الى نص لايظهر اي مشكلة
Dim uname As String
uname = txtName.Text
Response = MsgBox("Update this record?", vbYesNo + vbQuestion, "Confirmation")
If Response = vbNo Then
Adodc1.Recordset.CancelUpdate
Adodc1.Refresh
MsgBox "Save Cancelled!"
ElseIfEmp_Namei.Text = "" Then
MsgBox "Please fill the fields!", vbCritical, Time
ElseIf Response = vbYes Then
Adodc1.Recordset.Fields("Emp_Name") = txtName.Text
Adodc1.Recordset.Fields("ContactNo") = txtcontact.Text
Adodc1.Recordset.Fields("Emp_Sex") = cmbSex.Text
Adodc1.Recordset.Fields("Emp_Salary") = txtSalary.Text
Adodc1.Recordset.Fields("Nationality") = CmbNat.Text
Adodc1.Recordset.Fields("Emp_Birthdate") = txtBdate.Text
Adodc1.Recordset.Update
MsgBox "Record Saved!", vbInformation, Time
End If
End Sub
ولكنني من اجل عملية حساب العمر يجب وضع النوع تاريخ وليس نص
شكراً لجهودكم اساتذتنا الاعزاء