كود** هل من شرح له ان امكن؟؟؟

مغلق

بدأه sary في 21 يوليو 2003 · 6 رد · 824 مشاهدة · في مراجعة المواضيع

#121 يوليو 2003 في 13:35 صاحب الموضوع

السلام عليكم

اخوتي:

هذا كود:

Dim cnn As ADODB.Connection

    Dim rst As New ADODB.Recordset

    Set cnn = CurrentProject.Connection

    

    rst.Open "mytable", cnn

    With rst

        .Find "criteria"

        If Not (.EOF) Then

            If MsgBox("record already exists" & vbCrLf & "Press 'OK' to return and enter a value." _

            & vbCrLf & "Press 'Cancel' to abort the record.", vbOKCancel, "Name exists") = vbCancel Then

                DoCmd.Close

            End If

        Else

            MsgBox "No match found"

        End If

    End With

    rst.Close

    cnn.Close

    Set rst = Nothing

    Set cnn = Nothing

اريد منكم شرحه والفائده منه

واين يوضع في اي حدث...لامكانية الاستفاده منه

#222 يوليو 2003 في 19:46

أخي ساري

هذا شرح موجز عن ماكتبته في مشارتك أرجو إذا كان هنا استفسار عن أي جزئية أن تكتبه وسوف أجيب عنة

[php]'هذا الكائنات ههي أحد المزيا الجديدة في أكسس
'تسمى هذه الكائنات بـ
'Microsoft ActiveX Data Object
'( ADO )يرمز له اختصاراً بـ
'
'وظيفته الاتصال بمصدر البيانات ADODB.Connection هذه الجملة اعلان عن متغير للكائن
Dim cnn As ADODB.Connection

'وظيفته الاتصال بمصدر السجلات ADODB.Recordset هذه الجملة اعلان عن متغير للكائن
Dim rst As New ADODB.Recordset

'في هذا السطر يتم تهيئية الاتصال بمصدر البيانات
'وهو هنا مشروع البيانات الحالي
Set cnn = CurrentProject.Connection
    'في هذا السطر تم فتح مصدر السجلات
    rst.Open "mytable", cnn
    '
    'هنا استخدمت الوظيفة With مع متغير مصدر السجلات
    With rst
        '"criteria" البحث عن بيانات معينة حسب المتغير
        'لم أجد اعلان عن هذا المتغير ولعله سقط سهواً
        .Find "criteria"     'هذه الوظيفة تختلف عن الموجودة في الكائن  DAO في أسلوب البحث

        If Not (.EOF) Then  'هنا في هذا الشرط يتم التأكد من أن محرك البيانات لم يصل إلى نهاية الملف
                                                  'وهذا يعني أن البيانات التي نبحث عنها موجودة
            'في هذه الرسالة يتم اخبار المستخدم أن البيانات موجود، وعليه إم الضغط على موافق للبحث عن بيانات جديدة
            'أو الضغط على إلغاء لإلغاء عملية البحث وإغلاق النموذج
            If MsgBox("record already exists" & vbCrLf & "Press 'OK' to return and enter a value." _
            & vbCrLf & "Press 'Cancel' to abort the record.", vbOKCancel, "Name exists") = vbCancel Then
                'هنا يتم إغلاق النموذج
                DoCmd.Close
            End If
        ' هذا التفريع معناه إذا لم تكن البيانات موجودة
        'أظهر رسالة بعدم توفر البيانات
        Else
            MsgBox "No match found"
        End If
    End With
    'هنا يتم أغلاق الاتصال بمصدر السجلات أولا ثم مصدر البيانات ثانيا
    'مع بقاءالاتصال في الذاكرة
    rst.Close
    cnn.Close
    'هنا يتم إزالة مصدر السجلات ومصدر البيانات من الذاكرة
    Set rst = Nothing
    Set cnn = Nothing

    ':ملاحظة
    'استخدم هذا الإجراء داخل نموذج في مشروع قاعدة بينات أكسس
    'وقع هذا الحدث عن الضغط على زر بحث في النموذج

    'هذا شرح على عجل ولعل بعض الإخوة يضفي عليه مزيدا من الشرح