بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
كل الانشطه
- الساعة الأخيرة
-
وعليكم السلام ورحمة الله وبركاته ,, في النموذج ، وبعد ان تحدد مربع النص الذي يتم عرض الروابط فيه ، من تبويب Format - تنسيق ، فعل الخيار التالي :- لتحصل على النتيجة :- إضافة الى ما سبق ، تستطيع إضافة الكود التالي لمربع النص في حدث عند النقر :- Dim link As String link = Me.Emails.Value If link <> "" Then Application.FollowHyperlink link End If حيث في مثال ، اسم مربع النص هنا = Emails
-
السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل الـــ Data type في sql server للروابط (link) هو text أما Data type في الاكسس للروابط فهي ارتباط تشعبي (hyperlink ) ، فعندما قمت بربط الاكسس بــ sql server وأحد الجداول في sql server فيها واحد من الحقول هو رابط موقع معين لذلك اخذ نوع البيانات كما اسلفت text وأيضا في الاكسس اخذ نفس النوع من البيانات أيضا text وتم جلب الرابط كما هو sql server لكن المفروض انه الروابط في الاكسس هي hyperlink لكي عندما نريد فتح الرابط في نموذج الاكسس فقط نضغط على الرابط اما الان بعد الربط مع sql server لا استطيع فتح الرابط عند الضغط عليه وانما لكي افتح الرابط لازم اعمل نسخ للرابط ثم اضعه في المتصفح . الفكرة التي تراودني هي ان اضع رز فتح الرابط في نفس النموذج وهو يقوم بفتح الروابط حسب السجلات لكن كيف ابدأ بصناعة هذا الكود ؟؟؟ او اذا كان هناك حل اخر . افيدوني وجزاكم الله خيراً
- Today
-
هل يمكن دمج عنوان مشترك لعمودين مختلفين ؟
Foksh replied to الشربيني 123's topic in قسم الأكسيس Access
لا تحتاج لشرح ، تفقد مرفق الأستاذ @ابو جودي ،والمرفق التالي وستعرف الحل البسيط 1.accdb -
هل يمكن دمج عنوان مشترك لعمودين مختلفين ؟
الشربيني 123 replied to الشربيني 123's topic in قسم الأكسيس Access
ممكن شرح كيف عملته ؟؟ -
شكرا أبوعيد بجرب الملف بس هو الفكره في الارشفة ان الكود يقوم بارشفة بطاقة عمل الموظفين طيب لو انا حابب اضيف في الملف نفسه وليس الملف الخارجي
-
منع ادخال الوقت اذا كان هناك حجز مسبق
Foksh replied to عبد اللطيف سلوم's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته .. الأمر يسير أخي @عبد اللطيف سلوم ان شاء الله انشئ نموذج وفي زر التسجيل استخدم الكود التالي Private Sub Command7_Click() Dim rs As DAO.Recordset Dim sql As String sql = "SELECT 1 FROM Tbl_Party WHERE DATE_PARTY = #" & Me.DATE_PARTY & "# " & _ "AND ((#" & Me.TIME_PARTY_START & "# BETWEEN TIME_PARTY_START AND TIME_PARTY_END) " & _ "OR (#" & Me.TIME_PARTY_END & "# BETWEEN TIME_PARTY_START AND TIME_PARTY_END) " & _ "OR (TIME_PARTY_START BETWEEN #" & Me.TIME_PARTY_START & "# AND #" & Me.TIME_PARTY_END & "#))" Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot) If Not rs.EOF Then MsgBox "يوجد حجز مسبق لهذه الفترة!", vbExclamation, "تنبيه" Else CurrentDb.Execute "INSERT INTO Tbl_Party (DATE_PARTY, TIME_PARTY_START, TIME_PARTY_END) " & _ "VALUES (#" & Me.DATE_PARTY & "#, #" & Me.TIME_PARTY_START & "#, #" & Me.TIME_PARTY_END & "#)", dbFailOnError MsgBox "تم حفظ الحجز بنجاح!", vbInformation, "تأكيد" End If rs.Close: Set rs = Nothing End Sub WEEDING HALLS.accdb -
الحمدلله افتح الملفين هذا البرنامج + البرنامج الخارجي ادخل في البرنامج الخارجي ثم عرض ثم وحدات الماكرو ستجد ماكرو (هو الماكرو الوحيد) اسمه aboeed اضغط تشغيل اختر مسح البيانات وكل شيء سيكون أمامك في ورقة أرشفة بطاقة العمل في انتظار ملاحظاتك تفضل برنامج بطاقة عمل 2025.xlsb
-
السلام عليكم أساتذتنا الأفاضل.. منضم جديد للموقع. حاولت البحث تكرارا عن كود vba لعمل قائمة منسدلة مع خاصية البحث تكون مشابهة للموجودة في Excel 365 (جهازي اكسل 2010) ...وجميع ماوجدته لا يفي بالمطلوب وما ابحث عنه هو: *قائمة منسدلة مكررة في عدة صفوف والكتابة تكون في الخلية وليس في صندوق منفصل . * تكون فيها خاصية البحث... فعند بدء الكتابة في الخلية بالاحرف الاولى من الكلمة تظهر الخيارات المطابقة مباشرة وتلقائيا في القائمة والتي تتقلص كلما زدت حرفا فيها (وليس ان تكتب الكلمة.. ثم "تضغط كليك" على سهم القائمة لتظهر الخيارات). *يفضل أن لايشمل البحث جلب الخيارات المطابقة للاحرف الموجودة في وسط الكلمة او في جزئها الثاني ان وجد لو أمكن. فمثلا في قائمة مكونة من عدة دول.. موجودة في العمود C عند وضع المؤشر في خلية القائمة المنسدلة في العمود A ونقوم بكتابة الحرف a (لايهم capital/small) تظهر مباشرة في القائمة المنسدلة الدول فقط التي تبدأ بنفس الحرف مثل: Algeria, Albania , Austria, Australia,… ولا تظهر الدول التي في وسطها الحرف a مثل Mali أو الدول الموجود في بداية جزئها الثاني مثل South Africa ... وهكذا. وشكرا قائمة منسدلة مع البحث والاكمال التلقائي.xlsx
-
هل يمكن دمج عنوان مشترك لعمودين مختلفين ؟
الشربيني 123 replied to الشربيني 123's topic in قسم الأكسيس Access
صح ربنا يبارك في عمرك يا أبو جودي -
لا تقلق سيستمر مع اضافة بيانات جرب التعديل الأعلى
-
هل يمكن دمج عنوان مشترك لعمودين مختلفين ؟
Foksh replied to الشربيني 123's topic in قسم الأكسيس Access
-
ابو جودي started following هل يمكن دمج عنوان مشترك لعمودين مختلفين ؟
-
هل يمكن دمج عنوان مشترك لعمودين مختلفين ؟
ابو جودي replied to الشربيني 123's topic in قسم الأكسيس Access
اتفضل 1.accdb -
عندي انا يعمل 100% في شيت الاول لا تعمل اي شيء البرنامج يعمل تسطير من تلقاء نفسه مع بدء كتابة في صف جديد عملت لك فلاتر اذا حبيت تصدير بين تاريخين ، اكتب تاريخين " من الى" ثم اضغط على زر فلتر ما فهمت قصك بضبط ، حاليا كيو آركود موجو في عمود M و نص كيوآركود من عمود I في نفس صف، و يعمل كماهو على كل حال انت جرب المرفق و شوف نتيجة أنشطة 2025 (A).xlsb
-
هل يمكن دمج عنوان مشترك لعمودين مختلفين ؟
الشربيني 123 replied to الشربيني 123's topic in قسم الأكسيس Access
تم الارفاق -
التعديل الاخير لكود الاقتطاع لم يلبي الرغبات 100%
طاهر اوفيسنا replied to طاهر اوفيسنا's topic in قسم الأكسيس Access
لقد وقفت الاولى فظهر الميساجMsgBox بدون مبلغ مالي استاذ ممكن اعرف كيف اختصرت الكود وهل يعمل بشكل عادي عند بقية الشهور وخاصة عند دفع مبلغ الانخراط بعد مارس -
عبد اللطيف سلوم started following منع ادخال الوقت اذا كان هناك حجز مسبق
-
السلام عليكم ورحمة الله وبركاته مرفق صورة وقاعدة البيانات للتطبيق عليها حجز حفلة حسب التاريخ والوقت لاحظوا الحجز الثالث باسم HASSAN يتعارض مع الحجز الاول المطلوب -- يمنع ادخل حجز فيه تعارض بالوقت لبدء الحفلة حتى نهايتها مع رسالة تخبرنا ان هناك حجز يتعارض مع هذا التوقيت قاعدة البيانات WEEDING HALLS.accdb اتمنى منكم المساعدة وجزاكم الله خيرا
-
هل يمكن دمج عنوان مشترك لعمودين مختلفين ؟
Foksh replied to الشربيني 123's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته ،، حبذا لو ترفق ملف لتطبيق الفكرة لتلافي الوقوع في تجارب غير منتجة وفي نهاية المطاف مع التجارب التي ستقدم كحلول لا تتماشى مع طلبك وطبيعة تصميمك للتقرير .... -
التعديل الاخير لكود الاقتطاع لم يلبي الرغبات 100%
Barna replied to طاهر اوفيسنا's topic in قسم الأكسيس Access
هذه بارك الله فيك نتيجة التجارب العديدة .... امسح المسج الاخير .... -
السلام عليكم الاخوة الافاضل ....ممكن اعمل دمج في (تقرير) كما في الصورة مثل الاكسل ؟؟ مع الشكر 1.accdb
-
التعديل الاخير لكود الاقتطاع لم يلبي الرغبات 100%
طاهر اوفيسنا replied to طاهر اوفيسنا's topic in قسم الأكسيس Access
استاذ لماذا وظفت زوج MsgBox The_Sum = Format(The_Sum, "#,##0.00") MsgBox "تم توزيع الإقتطاعات" & vbCrLf & vbCrLf & "مجموع الإقتطاعات = " & The_Sum, , "إقتطاعات شهر " & FrenchMonth(Month(Now())) & SelectedYear End If The_Sum = Format(The_Sum, "#,##0.00") MsgBox " " & "تم توزيع الإقتطاعات" & vbLf & vbLf & "مجموع الإقتطاعات = " & The_Sum, , "إقتطاعات شهر" & FrenchMonth(Month(Date)) & Year(Date) -
جزانا الله واياكم خير الجزاء لازم سؤال لولبى ... ليه الإحراج ده شوف يا سيدى انا لم استخدم المكتبه المدمجه باضافتها كـ References فى القاعده بناء على ذلك لم اقم بتعريف المتغيرات بهذا الشكل : Dim db As Databaseوالذى يعتمد على المكتبه السابقة فى الاصدارات القديمه بل قمت بتعريف المتغيرات بالشكل التالى : Dim db As DAO.Database وهذا يقلل من احتمالية الأخطاء إذا كانت المكتبة مفقودة اعرف ان الاصدرات الحديثه بدأ من 2013 وما بعده تستخدم DAO المدمج مع محرك ACE (Access Connectivity Engine) وتستبدل محرك Jet القديم حاولت جاهد وكذلك فى موضوع انشاء هيكل المجلدات ان لا اعتمد على المكتبات الداخليه بشكل صريح حاولت استخدام Late Binding بدلا من استخدام Early Binding حيث لا يتم ربط الكائنات بالمكتبة حتى وقت التشغيل ولكن بصراحة الامر يستوجب التجربه للتأكد
-
شكرا جزيلا أخي الفاضل وبارك الله فيك وزادك الله من علمه بحق هذه الأيام المباركة
-
شكرا جزيلا استاذ @Foksh تمت الإضافة