يا جماعه نرجو المساعد ما فيش وقت معي

السلام عليكم ورحمة الله...

أخي الكريم لم أفهم بالضبط مرادك...

ولكن بنسبة لربط الفيجول بيسيك بالأكسس فهناك العديد من الطرق... ولكن سأستخدم طريقة السلحف... حيث أنها تؤدي العمل ولن تأخذ وقت في الشرح :)

على كل حال الدالة كان لها تشعبات كثيره وأردت ان أخفض من اتصالها ببعض البرمجيات لدي ... لذا قد تجد متغيرات لا داعي لها... وصلاة الفجر على وشك ..

أخي الكريم ما عليك هو التالي:

Dim oRS
SetObjRS oRs, "Select * from MYTABLE"
'// MYTABLE could be a database view/query or table ... I dont know if you want to pass some parameters to the SQL!

نفتح موديول جديد او في أي موديول عندك وتضع هذه الدالة SetObjRS

قد أعلم ان شرحي ممكن ان يكون مقصور وليس مفصلا فلذا التمس منكم العذر كون وقت الصلاة قد شارف

لا تنسى تغيير اسم وموقع ملف البيانات في الكود

Option Explicit

Public Function SetObjRS(ByRef pRS, ByVal pSQL As String, Optional ByRef pConn = Nothing) As Boolean
    Dim vCaption As String, i As Integer, vStr1 As String
'//     To pass PARAMETERS to SQL use like (SetObjRS oConn, mRecUnits, "myQuery 'ParamValue'")
'//     PARAMETERS xBar Text ( 255 ); SELECT * FROM tblunits WHERE Barcode=xBar Or itmID=clng(xBar);
'//     SetObjRS oConn, mRecUnits, "qGetItem_ByCode '123'"
Dim oConn
oConn = "password=;PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="
oConn = oConn & "C:\mydata\Access.mdb"      '// Change this with the MDB file and path
    SetObjRS = False
    On Error GoTo ErrHandler
    If pSQL > vbNullString Then
        Set pRS = CreateObject("ADODB.RecordSet")
        pRS.CursorLocation = 3 ' adUseClient
        If pConn Is Nothing Then
            pRS.Open pSQL, oConn, 3, 3 ' adOpenDynamic
        Else
            pRS.Open pSQL, pConn, 3, 3
        End If
    End If
    SetObjRS = True
    Exit Function
ErrHandler:
MsgBox "An Error occured" & vbNewLine & "Message:" & Err.Description & vbNewLine & "Code :" & CStr(Err.Number)
Stop '// Check what you going to do then... something wrong happends!
'Resume Next
End Function

أرجو ان يكون فيه الفائدة

مساء الخير

أولاً ألف شكر للأخ meynot لاهتمامك بالموضع ، هذه المشاركة عادت الثقة لي بهذه المنتدى .

وثانياً ألف شكر على هذه الشرح وان كان مقتصر ولكن لك عذرك فلا خير بعمل يقطع الصلاة .

وثالثاً أنا إلي أريد اعرفه هو طريقة بناء الاستعلامات في فجول بيسك لني لسي مبتدى ، كنت أعمل من قبل على الاكسس

وانته عارف في الاكسس كل شي موجود .

أخيراً ألف ألف ألف شكر لك لأنك عدت الثقة بنفسي وبالمنتدى . :rolleyes: :rolleyes:

شــــــــــــــــــــــــكراُ

اخر انذار يا alzanm راجع قواعد المنتدي عنوان موضوع مخالف..

الموضوع يغلق...