كيف يمكن جلب البيانات من قاعدة خارجية باستخدام احد عائلة DLookup

[ابو البشر]

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

الاخوة الافاضل الاعضاء

هل يمكن جلب البيانات من قاعدة خارجية باستخدام احد عائلة DLookup بدون جلب الجدول او الاستعلام الى القاعدة الحالية

n.rar

[ابو البشر]

Up

[Eng.Qassim]

وعليكم السلام اخي ابو البشر ...

وماهو الضرر اذا عملت جدول في القاعدة الاولى لتربطه بالجدول في القاعدة الثانية

حتى يكون بينهم زاد وملح يا أخي ههههه

ثم تستخدم دالتك بهذا الشكل :

MsgBox DCount("[EName]", "tbl_Employ", "[EName] ='محمد'")

بصراحة لم اجرب مثالك...لكن هذا مادار في ذهني القاصر

 

[ابو البشر]

10 دقائق مضت, Eng.Qassim said:

وعليكم السلام اخي ابو البشر ...

وماهو الضرر اذا عملت جدول في القاعدة الاولى لتربطه بالجدول في القاعدة الثانية

حتى يكون بينهم زاد وملح يا أخي ههههه

ثم تستخدم دالتك بهذا الشكل :

MsgBox DCount("[EName]", "tbl_Employ", "[EName] ='محمد'")

بصراحة لم اجرب مثالك...لكن هذا مادار في ذهني القاصر

 

اولا .. مبارك عليك الترقية لانك اهل وتستحق والى الامام

ثانيا ... انا اريد المعلومة من الجدول او الاستعلام فقد لبناء معلومات اخرى في القاعدة الحالية

لذلك اردت او فضلن هذه الطريقة ..

في ذهني تداخلان كثيرة لتنفيذ الطريقة لكن كبر السن ظهر الان بعدم استطاعتى بلورتها بشكل سليم للاسف .. 🤔

[biskra]

مثال فيه فكرة ممكن تساعدك

 

Test_A2003.zip

[ابو البشر]

اولا ... شكرا لردك بارك الله فيك

ثانيا .. مثالك يفتح الفورم ويتجه لرقم السجل ...

ما اريده هو احضار القيمة عن طريق احد عائلة DLookup مباشرة دون فتح القاعدة الخارجية .... لاني اريد استخلاص المطلوب فقط .... جزاكم الله خيرا 

[محمد القدسي]

جرب اخي المرفق اخي

 

جلب البيانات من قاعدة خارجية باستخدام احد عائلة DLookup.rar

[AbuuAhmed]

16 دقائق مضت, محمد القدسي said:

جرب اخي المرفق اخي

ما شاء الله ، هذا المثال به فكرة جديدة تماما بالنسبة لي ، مثال جامد ، شكرا لكم.

[ابو البشر]

11 ساعات مضت, محمد القدسي said:

جرب اخي المرفق اخي

الطريقة ممتازة ... ولكن لا تفي بمطلوبي

بارك الله فيك اخي الكريم

10 ساعات مضت, AbuuAhmed said:

ما شاء الله ، هذا المثال به فكرة جديدة تماما بالنسبة لي ، مثال جامد ، شكرا لكم.

صدقت احي احمد ... استفدت انا من الطريقة ايضا 

[أبو إبراهيم الغامدي]

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

أهلا بك.. @ابو البشر

مشاركة @محمد القدسي تملأ العين! ولكن إن أردت مشاكلة DLookup في الاستخدام فهذه هي الطريقة المناسبة في نظري.. (حقوق الحرفان الأوليان من الدالة محفوظة لـ أ.محمد القدسي)

Public Function MqDLookup(Expr As String, DomainTable As String, DomainPath, Optional Criteria)
On Error GoTo ArrCase
   '--
   Dim DB As DAO.Database
   Dim RS As DAO.Recordset
   Dim W As Variant
   
   '-- test optional veriable
   If IsMissing(Criteria) Then
      W = W & "True=True"
   Else
      W = W & Criteria
   End If
   
   '--
   Set DB = OpenDatabase(DomainPath)
   Set RS = DB.OpenRecordset( _
   "Select " & Expr & " As Expr From " & DomainTable & " Where " & W)
   
   '--
   MqDLookup = RS!Expr

ExitFunction:
   Set DB = Nothing
   Set RS = Nothing
   Exit Function
ArrCase:
   Select Case Err.Number
   
   Case 3061
      MsgBox Err.Number & ":   Expr Parameter Undefined", , "Developer Message"
      GoTo ExitFunction
   Case Else
      MsgBox Err.Number & ":   " & Err.Description
      GoTo ExitFunction
      
   End Select
End Function

المثال التالي يمكن تطبيقه في النافذة السريعة لمحرر الشفرة

?MqDLookup("id_ciity&','&name_city","tbl_city",currentproject.Path & "\Adb_Dat.accdb","id_ciity=2")

 

[ابو البشر]

50 دقائق مضت, أبو إبراهيم الغامدي said:

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

أهلا بك.. @ابو البشر

مشاركة @محمد القدسي تملأ العين! ولكن إن أردت مشاكلة DLookup في الاستخدام فهذه هي الطريقة المناسبة في نظري.. (حقوق الحرفان الأوليان من الدالة محفوظة لـ أ.محمد القدسي)

المثال التالي يمكن تطبيقه في النافذة السريعة لمحرر الشفرة

اهلا بك استاذي الفاضل @أبو إبراهيم الغامدي

بارك الله فيك .... جاري التجربة على برنامجي .... شكرا لتفضلك بالرد ....

[AbuuAhmed]

واجهت مشاكل في استخدام الدالة ، سأرجع لها مرة أخرى وأنا أكثر ارتياحا إن شاء الله .. وعد.

 

تمام ، عملت معي بامتياز الآن.

تم تعديل ديسمبر 4, 2022 بواسطه AbuuAhmed

[محمد القدسي]

20 ساعات مضت, AbuuAhmed said:

ما شاء الله ، هذا المثال به فكرة جديدة تماما بالنسبة لي ، مثال جامد ، شكرا لكم.

اشكرك استاذي @AbuuAhmed

6 ساعات مضت, أبو إبراهيم الغامدي said:

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

أهلا بك.. @ابو البشر

مشاركة @محمد القدسي تملأ العين! ولكن إن أردت مشاكلة DLookup في الاستخدام فهذه هي الطريقة المناسبة في نظري.. (حقوق الحرفان الأوليان من الدالة محفوظة لـ أ.محمد القدسي)

وكذلك اشكر اسناذي القدير @أبو إبراهيم الغامدي

فما ناتي به ليس الا قطرة من بحر ما تفضلتم به -وما زلتم كذلك- من العلم 

فنحن طلابكم

وسنظل كذلك 

وجزاكم الله عنا خيرا