نجوم المشاركات

عاجز عن شكرك ولو كنت بجانبي لقبلت رأسك إحتراما وتقديرا فقط شيء بسيط أنا أود أن يكون الB وال C مرتبطان بالإدخال في ال A أي بمعنى مجرد الكتابة في ال A يضاف التاريخ بالعربي وكذلك ينطبق على ال F وال G مرتبطان بالإدخال في الH نوع القرار يضاف تاريخ التصدير واليوم أتوماتيكياً وشكرا والله والله والله من القلب عاجز عن ما أقول ولكننا في نهار رمضان أسأل الله أن يسخر لكم من يقضي حاجاتكم

:: بعد اذن السيد سلوم ... :: تفضل ... حالة موقف الخدمة متغيرة في السجلات المتكرره فهي التي تسبب التكرار ... بعد حذفها من الاستعلام زال التكرار

في بعض الأحيان يود البعض منا أن يقوم بتكبير حجم الخط في شريط الصيغ حتى تظهر المعادلات بوضوح ممكن عمل ذلك في خطوات بسيطة من قائمة ملف - خيارات اختر عام تجد حجم الخط كما بالصورة بعد ذلك تظهر رسالة موجودة في الصورة الثانية وبها الشرح أتنمى أن تكون وفقت في توصيل هذه المعلومة

بناء على اقتارح الاخ أبو جودي هنا : اضافة خيار - تم الاجابة يرجي التصويت ، بعد قراءة الموضوع التصويت لاستطلاع رأي الاعضاء ، و سيتم مناقشة المزايا و العيوب مع فريق الموقع على التوازي

بعد التحية..... اطلب من حضراتكم حل مشكلة استعلام (تعداد عام)الموجود في قاعدة البيانات المرفقه . حيث ان ذلك الاستعلام يظهر الدوائر مكرره . مع تحياتي وتقديري مسبقا

ما ادري اذا تبيها بالشكل هذا او لا dd.accdb

جرب الطريقة دى Photo.zip

وجدت الحــــــــــــــــــــــل Replace(Replace(Format(Now(), "hh:mm:ss am/pm"), "am", "صباحاً "), "pm", "مساءًا")

السلام عليكم جرب هذا

بعد اذن الأستاذ وجيه تفضل جدول بيانات بلا عنوان.xlsm

الحبيب وجيه تشرفت بك وبحروفك الجميلة طيبةبالنسبه لعدد الأيام منذ دخول القضية للدائرة يحسب عدد الأيام بعد تصديرها يظهر كم يوم جلست في الدائرة أي للموظف بحيث يكون على علم بإنجازة والخليه الأخيرة تعتبر للتنبيه بحيث في وصول ٣ ايام يتغير لون الخلية وفي وصول خمسة ايام يتغير اللون وفي حال وصول ١٠ أيام فأكثر تتحول للون الأحمر الملف المرسل لي من قبل أيها جميل إنما التاريخ متداخل والايم باللغة الانجليزية وأرجو ان تنال الخليتين الأخيرة شيؤ من وقتك لا عدمتك ايها المحترم

جزاكم الله خيرا استاذى الحبيب استاذ محمد حسن على كلماتك الطيبة تجاهى والف شكر على التهنئة

:: تفضل

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

قمت باعاده الموقع الجغرافي

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

دمت بخير وسعاده

الاستعلام مرتبط بشيء اخر على كل شوف الصورة الثانية قيم فريدة اجعلها نعم هيك لا يظهر تكرار

بوركت فكل جهدا له مكافأة وأرجومنكم بعدالله تزيويدي للرقم تواصل معه بوركت أبها الوجيه لكل جهدا طربقة فبارك الله فيك

والله والله والله إنها حاجتي الشخصية وأتمنى منكم أيها العزيز والمحترم علي والاستاذ وجيه المساعدة وكل من له خبرة فليشاركنا بها شكراً من القلب

سبحان من خلقك وصورك أسأل في هذا اليوم أن يبارك فبك وفي إهلك ومالك وعيالك أيها العزيز بالنسبة للجدول أتمنى منك كرما أن يعدل التاريخ حيث أنه متداخل وأيضا أتمنى أن يكون ثابتاً بحيث لا يتحدث كل يوم بتاريخ جديد وأيضا عدد الأيام أتمنى أن تكون مفعله بحيث أعلم كم يوم حنى تنجز القضية أما الخليه الأخيره فيفترص أنها تحسب عدد الأيام بين تاريخين وهم تاريخ الإستلام وتاريخ اليوم وإذا تعد الأمر عشرة أيام تتحول الخليه للون الأحمر حتى أنتبه عن القضايا المتأخرة وفي حال صدرت المعاملة يتحول للون الأخضر ويكتب داخله صدرت ويتوقف عن الحساب مع جزيل الشكر والتقدير و لا أعلم والله مايسعدك إنما أسأل الله أن يحقق أمانيكم وجيه شرف الدين لن أنسى هذا الإسم شكراً لك وللحبيب علي وأتمنى يا أخوة إن شرحي كان بسيط بحيث تفهم الفكرة أرجوا منكم أن تساعدوني فيه والله والله والله إنه بإذن الله إن نفذت الأفكار سيساعدني في عملي

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

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

بعد اذن استاذى واخى الحبيب الاستاذ على اتفضل الملف لعله يفى بالغرض جدول بيانات بلا عنوان.xlsm

فهمت عنك فعلا في 2003 السجل لا يدعم الصور في النموذج المستمر

السلام عليكم انا ارى ان الصورة الاخيرة هي الصح اما ما عرضته في الاعلى فهي ليست صورة فالصورة في 2003 ليس لها مصدر عنصر تحكم هل مصدر الصور مضمن ام ارتباط بملف خارجي ؟ ارفق مثالك ووضح موضع الخلل

نعم هذا صحيح.. في أكسس 2003 فما دون.. نعم هذا صحيح أيضا لكن في أكسس 2007 فأعلى.. فما الحل؟ الحل في تعديل إعدادات الربط الافتراضية.. الخصيصة IMEX في أكسس 2003 تأخذ القيمة (0): IMEX=0 في أكسس 2007 تأخذ القيمة (2): IMEX=2 يمكن الاطلاع على إعدادات الربط والقيم الافتراضية في الحقل CONNECT من جدول النظام MSysObjects يمكن تعديل قيمة الخصيصة IMEX عن طريق الشفرة على النحو التالي Sub CHANGE_EXCEL_LINK_MODE() Dim DB As DAO.Database Dim TD As DAO.TableDef Set DB = CurrentDb Set TD = DB.TableDefs("tblPage1") Debug.Print TD.Connect TD.Connect = Replace(TD.Connect, "IMEX=2", "IMEX=0") TD.RefreshLink Debug.Print TD.Connect End Sub يمكن ربط ملفات أكسل والملفات الأخرى عن طريق الاستعلام.. وفي نظري هذه الطريقة أسهل في التعامل SELECT * FROM [ورقة1$] IN 'C:\Users\LENOVO\Desktop\AccsAcsl\Book1.xls'[Excel 5.0;HDR=NO;IMEX=0;]; هناك بعض الأمور المتعلقة بالدليل الافتراضي للربط أتركه للسؤال..

وعليكم السلام اخى الكريم -نورت المنتدى لابد من رفع الملف داخل المنتدى وليس برابط خارجى كما عليك جعل عنوان المشاركة دال على ما تطلب وتريد حتى يسهل البحث بعد ذلك

تم معالجة الامر Option Explicit 'Created by Salim Hasbaya 2/5/2019 Sub New_tarhil() Application.ScreenUpdating = False Dim arr_s(1 To 11) Dim arr_t(1 To 11) Dim i%, RO_Num%, Final_Row% Dim RO_s% Dim RGS As Range Dim source_sh As Worksheet Set source_sh = Sheets("أدخال") 'from Dim target_sh As Worksheet Set target_sh = Sheets("اليومية") 'to '================================= RO_s = source_sh.Cells(Rows.Count, "A").End(3).Row + 1 If RO_s = 6 Then MsgBox "No Data To Transfer": GoTo LEAVE_ME_OUT RO_Num = source_sh.Range("a5"). _ CurrentRegion.Rows.Count Set RGS = source_sh.Range("a5"). _ CurrentRegion.Offset(1).Resize(RO_Num - 1) RO_Num = RGS.Rows.Count Final_Row = target_sh.Cells(Rows.Count, "D").End(3).Row + 1 '========================= For i = 1 To 11: arr_s(i) = i: Next For i = 1 To 3: arr_t(i) = i + 3: Next arr_t(4) = 9: arr_t(5) = 10 For i = 6 To 11: arr_t(i) = i + 8: Next For i = 1 To UBound(arr_s) target_sh.Rows(Final_Row). _ Cells(arr_t(i)).Resize(RO_Num).Value = _ RGS.Cells(1, arr_s(i)).Resize(RO_Num).Value Next Erase arr_t: Erase arr_s LEAVE_ME_OUT: Application.ScreenUpdating = True End Sub File Unclouded SAlim_ Prog_new1.xlsm

جزاك الله خيراً أستاذ محمد صلاح مشكور على مجهودك

السلام عليكم تفضل أدخل الاحداثيات التي تريد الصورة أن تنتقل إليها ثم أضغط على الصور move_img.rar

طيب بغض النظر عن ان ممكن تحقيق ده بالكود والحسابات والارقام لتحديد المكان من غير تعقيد وببساطه شوف المرفق ده اتفضل تغيير مكان الصورة.mdb

السلام عليكم تفضل إليك هذا المثال به ما تريد إن شاء الله منع تعديل تاريخ الجهاز.rar

بارك الله فيك استاذنا الكريم وجزاك الله كل خير

مشكور , و شهر مبارك و خواتم مباركة ان شاء الله .

اخي وجيه شرف الدين مشكور مرورك اخي Ali Mohamed Ali مشكور مرورك واشكرك علي السؤال عني اخي محمود_الشريف بارك الله فيك عمل ممتاز واعذرني لم اراه تحياتي اخي حراثي تواتي لابد من تحديد اسم الملف طبعا وحسب الكود لابج وان يكون في نفس مكان الملف v2 ومرفق ملف بطريقو اخري تمكنك من اختيار امتداد الملف سواء كان xlsm او xls وكذلك تحديد المدي في كلا الملفين trans_2.rar

تفضل رصد الدرجات1.xlsm

قارن النتائج مع هذه نسبة مئوية salim 1.xlsx

اخي الكريم الدهشوري 1- يتم استخراج ربح كل جنيه وهذا يكون بتقسيم 1000000 / 3310000 فيظهر ربح كل جنيه وهي 0.302114804 2- نضرب مجموع اسهم كل شريك بربح كل جنيه فيظهر مجموع ربح هذا الشريك شاهد المرفق حساب نسبة1.rar

استاذي الكريم @ابوخليل اعتقد ان المرفق الذي وضعته بالخطأ هو القديم لانه يحتوي على نفس الكود السابق لكن وبعد الاطلاع على كود الأخ شيفان قمت بالتعديل بنجاح والحمد لله بفضله ومن ثم فضلكم علينا استطعنا الوصول الى الحل النهائي فبارك الله فيك وبأخي شيفات وهذا هو التكامل الفعلي بين المواضيع حيث التناغم بين الاكواد والافكار .. الآن اصبح الحل 100% تحياتي الهارد والمعالج واللوحة الأم4.zip