تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال حول كود الاضافه
#1
مرحبا لدي مشكله ف هذا الكود الخاص  بالاضافه فارجو المساعده فيهPrivate Sub Combo6_Change()
Combo6.Text = Data1.Recordset![ÇáÍÇáå ÇáÇÌÊãÇÚíå]
If Combo6.Text = "ãÊÒæÌ" Or Combo6.Text = "ãØáÞ" Or Combo6.Text = "ÇÚÒÈ" Or Combo6.Text = "ÇÑãá" Then
Exit Sub
Else
Combo6.Text = ""
End If
End Sub

Private Sub Command1_Click()
On Error GoTo 1:
If (Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "") Or (Text4.Text = "") Or (Text5.Text = "") Or (Combo1.Text = "") Or (Combo2.Text = "") Or (Combo3.Text = "") Or (Combo5.Text = "") Or (Text10.Text = "") Or (Combo6.Text = "") Then
MsgBox "íÑÌÆ ãáÆ ÇáÍÞæá ÇáÝÇÑÛå"
Else
Data1.Recordset.AddNew
Data1.Recordset![ÇáÇÓã] = Text1.Text
Data1.Recordset![ÇáÚãÑ] = Text2.Text
Data1.Recordset![ÇáæÒä] = Text3.Text
Data1.Recordset![ÇáÚäæÇä] = Text4.Text
Data1.Recordset![ÊÇÑíÎ ÇÎÑ ÒíÇÑå] = Text5.Text
Data1.Recordset![ÍÇáå ÇáÇÈ ] = Combo1.Text
Data1.Recordset![ÍÇáå ÇáÇã] = Combo2.Text
Data1.Recordset![ÝÕíáå ÇáÏã] = Combo3.Text
Data1.Recordset![ÇáÌäÓ] = Combo5.Text
Data1.Recordset![ÇáåÇÊÝ] = Text10.Text
Data1.Recordset![ÇáÍÇáÉ ÇáÇÌÊãÇÚíå] = Combo6.Text
Data1.Recordset.Update
Data2.Recordset.Edit
Data2.Recordset![ÇáÇÓã] = Text1.Text
Data2.Recordset.updata
Form4.Hide
Form5.Show
End If
1:
Exit Sub
End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] سؤال هدى العامري 1 65 25-04-17, 02:25 PM
آخر رد: khodor1985
  سؤال حول استخراج معلومات كارت الشاشة بواسطة مكتبة WMI ahmed althalgy 0 51 05-04-17, 01:25 AM
آخر رد: ahmed althalgy
Smile [VB.NET] [سؤال] كل ما يخص elementhtml في الفيجوال بيسك muhnnad002016 1 158 15-01-17, 10:36 PM
آخر رد: Basil Abdallah
  [سؤال] سؤال لو سمحتو فكر مبدع 1 152 01-01-17, 07:11 AM
آخر رد: عبد الكريم كنعان
  سؤال عن عمل فلترة باستخدام تكست بوكس last_warrior 0 167 10-12-16, 12:44 AM
آخر رد: last_warrior
  [سؤال] السي شارب ؟ أم الفيجوال ؟ سؤال متكرر abomariamelmasry 18 3,136 01-08-16, 03:54 PM
آخر رد: أبوبكر سويدان
  [VB.NET] سؤال عن تحريك البرنامج من اي مكان ؟ mezri59 2 321 16-06-16, 02:09 AM
آخر رد: نور الدين وليد
  سؤال عن Splash Screen memo.5ader 2 329 25-04-16, 09:02 PM
آخر رد: memo.5ader
  سؤال بخصوص ازاى اكتب نص فى text box .. واخليه يسمع فى label amir edward 3 423 30-03-16, 10:25 PM
آخر رد: ahmedabdelaliem
  سؤال asp م.أحمد الدسوقى 0 239 18-01-16, 01:56 PM
آخر رد: م.أحمد الدسوقى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم