جلب قيمة من جدول من قاعدة بيانات خارجية

[alcasir]

السلام عليكم

كيف لي ان استخدم هذا الكود لجلب قيمة من قاعدة بيانات خارجية

Me!cust_key = Nz(DMax("[cust_key]", "[costumer_tble]"), 0) + 1

اقصد اذا كان جدول costumer_tble موجود في قاعدة خارجية وليكن اسمها A1

وكانت في هذا المسار

C:\A1

ماذا يلزم الكود من تعديل لجب القيمة المطلوبة للحقل [cust_key] من الجدول costumer_tble من قاعدة البيانات A1

مع الشكر الجزيل

اعتقد الموضوع واضح ولا يحتاج الى مرفق

[أبو آدم]

أخي العزيز

المرفق لا يكون دائماّ للتوضيح ن لا بل يكون للتوضيح ... و التعديل ... والتطبيق.

شكراً

.............

[أبو آدم]

أخي العزيز

المسار :

E:\NA_LinkDetach2003.mdb

الجدول:

Symbols_Companies_markets

الحقل:

NoID

اسم مربع النص في النموذج :

vMaxField1

بالتالي يصبح الكود كما يلي:

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim strSQL As String

strSQL = "SELECT Max([Symbols_Companies_markets].[NoID]) AS [MaxOffield1]" _

& "FROM [Symbols_Companies_markets] IN 'E:\NA_LinkDetach2003.mdb';"

Set db = CurrentDb

Set rs = db.OpenRecordset(strSQL)

vMaxField1 = rs!MaxOfField1

rs.Close

Set rs = Nothing

آملاً أن تتحقق لك الفائدة !!

والله من وراء القصد .. وهو حسبي

.........

[alcasir]

الله ينصر دينك استاذي الكريم nart lebzo

فعلا هو عين المطلوب كنت على وشك رفع المرفق بناء على طلبك

يعجز اللسان عن شكرك

بارك الله فيك وجعل الله هذا العمل الذي تقدمه في ميزان حسناتك

أمين

[أبو آدم]

بارك الله بك ولك

الحمدلله الذي بفضله تقضى الحاجات

(تمت الاجابة)