21-11-21, 09:02 PM
سلام عليكم ياسادة
أحياناً نضطر لتسجيل بيانات متكررة داخل قواعد البيانات مثل انوع ( ذكر / أنثى ) بدلاً من ذلك ننشئ جدول من حقلين الأول كود والثاني هي البيان . وباستخدام الكود التالي نحصل على قيمة الحقل الأول بمعرفة الثاني والعكس .
فمثلاً D_RS هو الجدول المستخدم لحفظ الأكواد ، D_Source القيمة المطلوب البحث عنها داخل الجدول ، ترتيب حقل البحث ، D_Result_Col هو الحقل الناتج من الكود
Public Function Decoder(D_RS As Recordset, _
D_Source As String, _
D_Search_Col As Integer, _
D_Result_Col As Integer) As String
On Error Resume Next
D_RS.MoveLast
D_RS.MoveFirst
For Counter = 1 To D_RS.RecordCount
If D_Source = Trim(D_RS.Fields(D_Search_Col)) Then
Decoder = D_RS.Fields(D_Result_Col)
Exit For
Else
D_RS.MoveNext
End If
Next Counter
End Function
أرجو أن يحوز على إعجابكم
أحياناً نضطر لتسجيل بيانات متكررة داخل قواعد البيانات مثل انوع ( ذكر / أنثى ) بدلاً من ذلك ننشئ جدول من حقلين الأول كود والثاني هي البيان . وباستخدام الكود التالي نحصل على قيمة الحقل الأول بمعرفة الثاني والعكس .
فمثلاً D_RS هو الجدول المستخدم لحفظ الأكواد ، D_Source القيمة المطلوب البحث عنها داخل الجدول ، ترتيب حقل البحث ، D_Result_Col هو الحقل الناتج من الكود
Public Function Decoder(D_RS As Recordset, _
D_Source As String, _
D_Search_Col As Integer, _
D_Result_Col As Integer) As String
On Error Resume Next
D_RS.MoveLast
D_RS.MoveFirst
For Counter = 1 To D_RS.RecordCount
If D_Source = Trim(D_RS.Fields(D_Search_Col)) Then
Decoder = D_RS.Fields(D_Result_Col)
Exit For
Else
D_RS.MoveNext
End If
Next Counter
End Function
أرجو أن يحوز على إعجابكم