تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:
#2
الأمر جدا بسيط قم بتغير نوع الخط في الفيجول بيسك
والله موفق الجميع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo حفظ البيانات فى قاعدة البيانات كل تكس فى سجل المبرمج العتيق 1 70 16-10-17, 11:38 AM
آخر رد: Mohamad Anan
  [ تمّ الحل ] : إعادة عرض البيانات داخل الفليكس جريد عبد العزيز البسكري 3 128 05-10-17, 04:31 PM
آخر رد: عبد العزيز البسكري
  التّعامل مع قواعد البيانات SQlite عبد العزيز البسكري 2 80 28-09-17, 12:50 PM
آخر رد: عبد العزيز البسكري
  سؤال فى قواعد البيانات مبرمج مصرى 2 48 28-09-17, 11:24 AM
آخر رد: مبرمج مصرى
  [سؤال] سؤال عن المنازل العشرية يونس بروكرامر 1 57 22-09-17, 02:26 AM
آخر رد: Amir_alzubidy
  من لديه طريقه او باتش خاص بضغط ملف ال بي دي اف قبل تخزينه بقاعده البيانات يلغه فجوال scsi7000 4 92 18-09-17, 09:33 PM
آخر رد: scsi7000
  من لديه طريقه اذا امتلئت قاعده البيانات اكسس يقوم البرنامج بتصنيع قاعده بيانات من نفس scsi7000 7 189 18-09-17, 01:41 PM
آخر رد: عبد العزيز البسكري
  طباعة سجل بقاعدة البيانات dr.mostashar 1 95 05-09-17, 05:52 PM
آخر رد: sher
  سؤال فى الاداة داتا جريد والأداة داتا ريبورت المبرمج العتيق 4 142 29-08-17, 06:48 PM
آخر رد: المبرمج العتيق
  سؤال فى الاداة داتا جريد المبرمج العتيق 2 84 25-08-17, 02:18 AM
آخر رد: المبرمج العتيق

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


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