[سؤال] سؤال بخصوص ربط قاعده البيانات على الاضافه - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : [سؤال] سؤال بخصوص ربط قاعده البيانات على الاضافه (/showthread.php?tid=11323)

سؤال بخصوص ربط قاعده البيانات على الاضافه - مصطفى مجيد - 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 RE: سؤال بخصوص ربط قاعده البيانات على الاضافه - KamelArab - 08-06-15 الأمر جدا بسيط قم بتغير نوع الخط في الفيجول بيسك والله موفق الجميع