تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال على منظومة دراسة وامتحانات soad 0 218 29-11-21, 10:20 AM
آخر رد: soad
  [SQL] سؤال بخصوص منع الدخول للسكول عبر Windows Authentication YasserNarf 0 483 01-09-21, 08:31 PM
آخر رد: YasserNarf
  [C#.NET] سؤال بخصوص ادخال البيانات واستدعائها من ال dataset امير رزق 3 560 28-08-21, 07:55 PM
آخر رد: asemshahen5
  [سؤال] سؤال بخصوص الحكم فى مقاس الكريسال ريبور بالكود Mustafa Shaker 0 426 09-07-21, 02:19 AM
آخر رد: Mustafa Shaker
  سؤال كيفية احتساب ايام اجازة mohamed2316 3 864 03-05-21, 06:29 AM
آخر رد: a7med saba
  سؤال عن ما هي التقنيات لانشاء موقع تفاعلي younass 3 1,107 19-01-21, 03:00 PM
آخر رد: zayedzayed
  سؤال عن ربط برنامج Desktop مع Android app maxruined 8 1,340 07-12-20, 12:57 PM
آخر رد: maxruined
  سؤال حول تثبيت كريستال ربورت abozeyd 3 1,157 20-11-20, 07:45 PM
آخر رد: ba2e44ca9a
  [C#.NET] السلام عليكم لدي سؤال بخصوص التقارير في dev express mbou5060 1 643 12-11-20, 02:49 AM
آخر رد: mbou5060
  سؤال لكبار المبرمجين مشكله فى تهنيج البرنامج issamsaidd 5 1,605 27-08-20, 07:56 AM
آخر رد: issamsaidd

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


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