adnan gharbi قام بنشر مارس 28, 2022 مشاركة قام بنشر مارس 28, 2022 السلام عليكم كيف يمكن إظهار مسار قاعدة البيانات في تيكست بوكس؟ بمعنى أنا عندي تطبيق متصل بقاعدة بيانات مايكروسوفت أكسس وأريد إظهار مسار قاعدة البيانات في الشاشة الرئيسية للتطبيق، كيف يمكن ذلك؟ مع الشكر رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر مارس 28, 2022 مشاركة قام بنشر مارس 28, 2022 وعليكم السلام ورحمة الله وبركاته .. 🙂 ضع هذا الكود في موديول : Public Function BECurrentPath() On Error GoTo ErrHandler Dim FullLinkedPath As String Dim LinkedDBPath As String FullLinkedPath = Nz(DFirst("database", "msysobjects", "[Database]<> '""'"), "") LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1) If FullLinkedPath <> "" Then BECurrentPath = LinkedDBPath & "\" Else BECurrentPath = CurrentProject.Path & "\" End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End Function ثم أكتب في مصدر بيانات مربع النص : =BECurrentPath() رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 28, 2022 مشاركة قام بنشر مارس 28, 2022 طيب ممكن سؤال اخى الحبيب واستاذى الجليل باش مهندس @Moosak لماذا لم تستحدم الكود الاتى فى مصدر بيانات مربع النص مباشرة بدون استخدام الكود فى الموديول لتوفير استخدام حجم كائن =[CurrentProject].[Path] رابط هذا التعليق شارك More sharing options...
adnan gharbi قام بنشر مارس 28, 2022 الكاتب مشاركة قام بنشر مارس 28, 2022 منذ ساعه, Moosak said: وعليكم السلام ورحمة الله وبركاته .. 🙂 ضع هذا الكود في موديول : Public Function BECurrentPath() On Error GoTo ErrHandler Dim FullLinkedPath As String Dim LinkedDBPath As String FullLinkedPath = Nz(DFirst("database", "msysobjects", "[Database]<> '""'"), "") LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1) If FullLinkedPath <> "" Then BECurrentPath = LinkedDBPath & "\" Else BECurrentPath = CurrentProject.Path & "\" End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End Function ثم أكتب في مصدر بيانات مربع النص : =BECurrentPath() شكرا لك اخي الكريم هو الكود شغال تمام لكن لا يظهر اسم قاعدة البيانات يظهر المسار فقط فإن أمكن إظهار الاسم ايضا لو تكرمت 12 دقائق مضت, ابو جودي said: طيب ممكن سؤال اخى الحبيب واستاذى الجليل باش مهندس @Moosak لماذا لم تستحدم الكود الاتى فى مصدر بيانات مربع النص مباشرة بدون استخدام الكود فى الموديول لتوفير استخدام حجم كائن =[CurrentProject].[Path] هذا الكود يظهر اسم الفرونت اند وليس الباك اند اخي رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مارس 28, 2022 مشاركة قام بنشر مارس 28, 2022 (معدل) تم تعديل .... لاني فهمت الموضوع خطأ تم تعديل مارس 28, 2022 بواسطه Barna رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو جودي قام بنشر مارس 28, 2022 أفضل إجابة مشاركة قام بنشر مارس 28, 2022 14 دقائق مضت, adnan gharbi said: هذا الكود يظهر اسم الفرونت اند وليس الباك اند اخي بسيطة للقاعدة الخلفية =DLookUp("Database","MSysObjects","Type=6 ") 1 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مارس 28, 2022 مشاركة قام بنشر مارس 28, 2022 4 دقائق مضت, ابو جودي said: بسيطة للقاعدة الخلفية =DLookUp("Database","MSysObjects","Type=6 ") ايضا اضافة لما ذكر استاذي الحبيب .... = DFirst("Database", "MSysObjects", "[Type] = 6") 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 28, 2022 مشاركة قام بنشر مارس 28, 2022 ولو اردت اسم القاعدة فقط بدون المسار الكامل استخدم =Right(DLookUp("Database","MSysObjects","Type=6 "),Len(DLookUp("Database","MSysObjects","Type=6 "))-InStrRev(DLookUp("Database","MSysObjects","Type=6 "),"\")) 1 رابط هذا التعليق شارك More sharing options...
adnan gharbi قام بنشر مارس 28, 2022 الكاتب مشاركة قام بنشر مارس 28, 2022 28 دقائق مضت, ابو جودي said: بسيطة للقاعدة الخلفية =DLookUp("Database","MSysObjects","Type=6 ") أحسنت اخي الكريم ابو جودي طريقة مختصرة ومفيدة رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 29, 2022 مشاركة قام بنشر مارس 29, 2022 اضاقة بسيطة للعمل على الطريقتين الطريقة الاول قاعدة البيانات كاملة بدون تقسيم الطريقة الثانية قاعدة البيانات منقسمة الى قاعدتين امامية وخلفية فى مصدر بيانات مربع النص مباشرة ضع الكود الاتى =IIf(IsNull(DLookUp("Database","MSysObjects","Type=6 ")),[CurrentProject].[Path] & "\" & [CurrentProject].[Name],DLookUp("Database","MSysObjects","Type=6 ")) رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر مارس 29, 2022 مشاركة قام بنشر مارس 29, 2022 6 ساعات مضت, ابو جودي said: بسيطة للقاعدة الخلفية =DLookUp("Database","MSysObjects","Type=6 ") (وفوق كل ذي علم عليم) 😅✋🏻 ومنك نتعلم حبيبنا 😄 6 ساعات مضت, ابو جودي said: طيب ممكن سؤال اخى الحبيب واستاذى الجليل باش مهندس @Moosak لماذا لم تستحدم الكود الاتى فى مصدر بيانات مربع النص مباشرة بدون استخدام الكود فى الموديول لتوفير استخدام حجم كائن =[CurrentProject].[Path] عملت الموديول هذا من زمان بهدف أنه لما يكون عندي مرفقات مثلا أو ملفات مصاحبة للبرنامج تروح على طول جنب قاعدة البيانات سواء مقسمة ولا لا .. بدون ما أغير كل مرة في الكود 🙂 لكن شكلي هحدثه بالكود بتاعك شكله رشيق ودلع 😁 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 29, 2022 مشاركة قام بنشر مارس 29, 2022 15 دقائق مضت, Moosak said: شكله رشيق ودلع 😁 اعشق تعليقاتك بخفة ظلك استاذى الجليل اسال الله تعالى ان يديم عليكم البهجة والسعادة فى ظل طاعته ورضاه عنكم 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر مارس 29, 2022 مشاركة قام بنشر مارس 29, 2022 4 دقائق مضت, ابو جودي said: اعشق تعليقاتك بخفة ظلك استاذى الجليل اسال الله تعالى ان يديم عليكم البهجة والسعادة فى ظل طاعته ورضاه عنكم اللهم آمين وإياك يا زعيم الأغلبية 😊🤲🏻 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان