لدى قاعدة بيانات بها جدولTable1 يحتوى على عدة حقول منها الحقلان NUM2 و NUM1
وكتبت هذا الكود البسيط للتأكد من أن القيم التى أدخلها المستخدم عند اضافته لسجل جديد غير موجودة فى السجلات القديمة
(ونجح الكود عند التنفيذ)
N1 = txtFields(0).Text
N2 = txtFields(1).Text
Set RS = New ADODB.Recordset
RS.Open "select * from Table1 where NUM1=" & "" & N1 & "" & " and NUM2= " & "" & N2 & "", db, adOpenStatic, adLockReadOnly
If RS.RecordCount > 0 Then
Z = MsgBox("هذا الرقم موجود أصلآ", vbCritical, "ماهذا؟ ")
End Ifفكيف أجعل اسم الحقل NUM2 و NUM1
متغير بحيث أكرر نفس هذه العملية مع باقى الحقول الرقمية لقاعدة البيانات؟
دون اعادة كتابة هذه الجمل مرات ومرات ودون عملها فى FUNC والتوجه اليها مرات ومرات
كتبت هذاالكود ولكن كان خاطئآ وأرجو منكم تصحيحه وتوضيح الخطأ فيه
Dim FELDD1 As Variant
Dim FELDD2 As Variant
FELDD1 = Adodc1.Recordset.Fields(1).Name
FELDD2 = Adodc1.Recordset.Fields(2).Name
N1 = txtFields(0).Text
N2 = txtFields(1).Text
Set RS = New ADODB.Recordset
RS.Open "select * from Table1 where FELDD1=" & "" & N1 & "" & " and FELDD2= " & "" & N2 & "", db, adOpenStatic, adLockReadOnly
If RS.RecordCount > 0 Then
Z = MsgBox("هذا الرقم موجود أصلآ", vbCritical, "ماهذا؟ ")
End Ifولكم ألف شكر