hosslom

جربت الكود اخي الكريم ولكن مربع النص يظهر  ويختفي بطريقه عشوائيه غير منتظمه

مرفق المثال

mouse move.accdb mouse move.rar

السلام عليكم اخوتي الكرام

هل يوجد كود اظهار مربع نص عند مرور مؤشر الماوس فوق زر أمر

وعند ابتعاد مؤشر الماوس عن زر الامر يختفي مربع النص

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

شكرا اخي علي اهتمامك

ارفقت لك مثال للتوضيح اكثر

لماذا عند الضغط علي الزر يعطي رساله خطا

المفروض يعطي الناتج رقم 3

error.accdb

السلام عليكم اخوتي الكرام

عندي مشكله في كود داله dlookup ومرفق مثال علي المشكله

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

عند الضغط علي الزر يعطي الناتج في المربع النصي

المشكله اني اذا وضعت كود الزر نص المعادله مباشره يعطي ناتج رقمي

اما اذا وضعت كود للبحث اولا عن نص المعادله ثم اظهار الناتج في المربع النصي لايعطي ناتج

مرفق المثال

وشكرا جزيلا لكم اخوتي واسف علي الاطاله

error.accdb

شكرا علي ردك واهتمامك اخي الكريم

يبدو ان فكرتي لم تصلك

انا احتاج نفس الكود بالظبط بدون تغيير في الكود لان القيم متغيره وليست ثابته

هل متاح ؟؟

السلام عليكم اخوتي

أين الخطأ في كود عند التركير في خانه   نتيجه المقابله ل  AST/ALT ratio

مرفق قاعده البيانات

شكرا جزيلا

New Microsoft Access Database.accdb

جزاك الله خيرا اخي الكريم FOKSH

فعلا كودك اتم المطلوب علي اكمل وجه

شكرا جزيلا وجزاك الله خيرا علي تعبك

السلام عليكم اخوتي الكرام طلب بسيط

محتاج عند الضغط علي زر يظهر هذا الكود" كنص" في المربع تماما كما هو

مرفق مثال

 DLookup("result", "test_order_tbl", "[test] =  ' & T & '   And [ID] = [Forms]![visit_frm]![ID]")

شكرا جزيلا

New Microsoft Access Database.accdb

شكرا علي الرد اخي الكريم

جزاكم الله خيرا

هل يوجد طريقه بالكود من داخل الاكسس اخي الكريم ؟؟

انا اقصد هذه مثل الصوره المرفقه هلي يوجد كود لمنع ظهورها

السلام عليكم اخوتي الكرام

كل عام وانتم بخير

اثناء اعطاء امر طباعه او تصدير PDF يظهر صندوق رساله printing

هل يمكن الغاء الرساله ويتم الامر صامت بدون هذه الرساله

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

31 دقائق مضت, Foksh said:

PrintAllPDFsInFolder

شكرا جزيلا اخي الكريم علي اهتمامك

الكود شغال تمام

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

السلام عليكم اخوتي

هل يوجد كود لطباعه جميع ملفات PDF في مجلد محدد بضغطه زر واحده بدون فتح هذه الملفات ؟؟

وشكرا جزيلا

السلام عليكم اخوتي الكرام

محتاج اعمل بار متحرك بين نتيجتين  حسب القيمه الناتجه مرفق صوره للتوضيح

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

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

4 ساعات مضت, Moosak said:

    SetForegroundWindow oWMP.hwnd  'windows media player

    SetForegroundWindow Application.hwnd  'Access

شكرا اخي الكريم علي الاستجابه والاهتمام

انا جربت الكود ولكن لايعمل معي

جربته علي برنامج الواتساب لسطح المكتب ولكن لايعمل يظهر رساله object required

معلش ممكن مثال صغير للكود جزاكم الله كل خير جعله الله في ميزان حسناتك

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

أخوتي الكرام 

عندي برنامج تم عمل minimize له في ال taskbar وليكن برنامج windows media player 

محتاج كود اكسس لتكبير البرنامج maximize وإظهاره 

هل يوجد طريقه؟؟

شكرا جزيلا أعضاء المنتدي الكرام

2 ساعات مضت, kanory said:

Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate "whatsapp://send?phone=" & "mobile no" & "&text=" & "hello"
    Sleep 3000
    Call SendKeys("~", True)
    Sleep 1000
    SendKeys "+{TAB}"
    Call SendKeys("~", True)
    Sleep 1000
    SendKeys "{UP}"
    SendKeys "{UP}"
    SendKeys "{UP}"
    SendKeys "{UP}"
    Call SendKeys("~", True)
    Sleep 2000
    SendKeys [CurrentProject].[Path] & "\PDF"
    Call SendKeys("{Enter}", True)
    Sleep 2000
    SendKeys "+{TAB}"
    SendKeys "^a"
    Sleep 2000
    Call SendKeys("{Enter}", True)
    Call SendKeys("{Enter}", True)
    Sleep 5000
    Call SendKeys("{Enter}", True)
    Set IE = Nothing

جزاك الله كل خير اخي الكريم الكود شغال تمام جعله الله في ميزان حساناتك شكرا جزيلا

برجاء المساعده 

14 دقائق مضت, almersat said:

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

الرابط لا يعمل لدي

الرابط يعمل اخي الكريم جرب مره اخري

هل من مساعد جزاكم الله خيرا ؟

هل يمكن ارسال اكثر من ملف دفعه واحده تلقائي 

السلام عليكم اخوتي الكرام

يوجد كود لاحد الاعضاء المميزين يقوم بارسال رساله تلقائي لرقم واتس ويقوم بارفاق ملف مساره محدد في الكود تلقائي اعتمادا علي sendkeys 

الكود يعمل بدون مشكله في حاله ملف واحد 

المشكله حينما اريد ارسال جميع الملفات جميعا في فولدر معين كيف اجعله يختار جميع الملفات تلقائي ويقوم بالارسال 

ملحوظه يجب فتح برنامج الواتساب علي الجهاز 

مرفق الملف بالكود 

شكرا جزيلا اخوتي الكرام

whatsapp.rar

3 دقائق مضت, ناقل said:

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

ارفق لنا مثال مبسط وابشر بالتطبيق والشرح على المثال ...

تفضل اخي مرفق مثال

اريد عند الضغط علي الزر التاكد من وجود stone_tbl في القاعده المرتبطه

New folder.rar

29 دقائق مضت, ناقل said:

DoCmd.TransferDatabase acLink, "Microsoft Access", Me.txtPath, acTable, "MSysObjects", "oo", False

    If DCount("[Name]", "oo", "[Name] = '" & Me.ObjName & "'") = 1 Then
        MsgBox "الجدول موجود مسبقا"
    Else
        MsgBox "الجدول غير موجود"
    End If

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

هل من الممكن اخي توضيح "OO" و "Name"

<زاك الله كل خير

السلام عليكم اخوتي الكرام

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

شكرا وجزاكم الله كل خير

السلام عليكم اخوتي الكرام 

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

جزاكم الله كل خير