[حسن الجلب]

السلام عليكم ورحمه الله وبركاته أنا عندي فيجوال بيسك 2019 وكان عندي اوفيس 2007 وكان شغال تمام الربط كان شغال يعني  وجربت 2010 و 2013 أما 2019 مش عايز يربط نهائي ايه الحل بعد اذنكم

[رضوان الجماعي]

Dim conn As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\database.accdb")

---

هذا كود الاتصال بين الفجوال2019 وبين الاكسس ولكني افضل ان الاكسس يكون فوق 2010 جربت هذا الكود بين 2010 اكسس وبين الفجوال2019

[حسن الجلب]

هو حضرتك الكود ده شغال لحد اصدار2013 من الاوفيس فقط اما 2019 مش شغال

[Taha Okla]

الكود التالي شغال مع كل اصدارات اوفيس :

كود :

       Dim cn As New OleDb.OleDbConnection
       cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\UsersData.mdb;Jet OLEDB:Database Password=,"
       cn.Open()

والكود التالي شغال مع الاصدارات 2016 - 2019 :

كود :

       Dim cn As New OleDb.OleDbConnection
       cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=" & Application.StartupPath & "\UsersData.mdb;Jet OLEDB:Database Password=,"
       cn.Open()

واذا ما اشتغل معاك -
عيد تثبيت الفيجول استديو من جديد..
.