[سؤال] سؤال حول كود الاضافه - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175) +--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176) +--- الموضوع : [سؤال] سؤال حول كود الاضافه (/showthread.php?tid=11322)

سؤال حول كود الاضافه - مصطفى مجيد - 04-02-15 مرحبا لدي مشكله ف هذا الكود الخاص  بالاضافه فارجو المساعده فيه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