كل الانشطه

يمكنك استخدام الحقل المشترك بين جدول الموظفين وجدول الحوافز لاستدعاء قيم الحوافز والمكافآت عند اختيار وظيفة محددة. يمكنك استخدام حدث "بعد تحديد" لعنصر التحكم المرتبط بحقل الوظيفة في النموذج أو الاستعلام لتنفيذ الكود اللازم. فيما يلي مثال لكود VBA يستدعي قيم الحوافز والمكافآت المتعلقة بالوظيفة المحددة: ```vba Private Sub JobComboBox_AfterUpdate() Dim job As String Dim bonus As Double Dim reward As Double job = Me.JobComboBox.Value ' تعيين اسم الجدول وحقل الحافز وحقل المكافأة حسب اسم الجدول الخاص بك Dim tableName As String Dim bonusField As String Dim rewardField As String tableName = "اسم_الجدول" bonusField = "حقل_الحوافز" rewardField = "حقل_المكافأة" ' استعلام لاسترداد قيم الحافز والمكافأة المتعلقة بالوظيفة المحددة Dim strSQL As String strSQL = "SELECT " & bonusField & ", " & rewardField & " FROM " & tableName & " WHERE وظيفة = '" & job & "'" ' تنفيذ الاستعلام واسترداد القيم Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(strSQL) If Not rs.EOF Then bonus = rs.Fields(bonusField).Value reward = rs.Fields(rewardField).Value Else bonus = 0 reward = 0 End If rs.Close Set rs = Nothing ' تعيين قيم الحافز والمكافأة لحقول المستند Me.BonusTextBox.Value = bonus Me.RewardTextBox.Value = reward End Sub ``` يرجى استبدال "اسم_الجدول" بالاسم الصحيح لجدول الحوافز واستبدال "حقل_الحوافز" و "حقل_المكافأة" بأسماء الحقول الصحيحة في جدول الحوافز

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim s1 As String Dim imagePath As String s1 = Str(Me![رقم الجلوس]) s1 = Right(s1, Len(s1) - 1) imagePath = "D:\صور\" + s1 + ".jpg" If Dir(imagePath) <> "" Then Me![Image_Std].Picture = imagePath Else Me![Image_Std].Picture = "" Me![Image_Std].Caption = "لا توجد صورة مطابقة لرقم الجلوس" End If End Sub ```

السلام عليكم ورحمة الله وبركاته اخواتي الأعزاء عند التصدير الى الوورد في شيتات هذا الملف يظهر التاريخ معكوسا بالمقلوب فهل من طريقة لجعله يحافظ على شكله الطبيعي غير مقلوب وشكرًا جزيلا وهل يمكن إضافة زرار لطباعة الجدول بعد الفلترة في sheet1 والأنشطة بدون الصفوف الفارغة معلش وفي حاجة اخيرة هل يمكن عند اضافة اي صف في الجدول يتكتب الرقم بشكل تلقائي جزاكم الله كل خير يا رب العالمين وزادكم بسطة في العلم والرزق والصحة آمين يا رب العالمين 2024 final.xlsm

عندى جدول للموظفين وجدول للحوافز وهناك حقل مشترك فى الجدولين اللى هو حقل الوظيفة عملت استعلام واضفت فيه كل الحقول محتاج لما اختار الوظيفة يستدعى قيم الحوافز والمكافأت من جدول الحوافز برنامج الحد الادنى.rar

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

تفضل استاذ @jo_2010 المرفق بعد التعديل ...ووافني بالرد. DDAdd&DeletePDF.rar

تفضل استاذ @Zooro1 اليك المرفق الجديد ومتجرب أكثر من مرة . (جرب ) . ووافني بالرد . قبل سفري .... DDCountUsersSendLeters-2.rar

اللي فهمته 1- سيتم عمل اسكان لورقة 2- تريدي قص هذه الصورة لاستبعاد الأجزاء الغير مرغوب بها 3- تغير مقاس هذه الصورة فيما يخص النقطة رقم 2 - إذا أمكن مشاركة صورة للتجربة - حسب تصوري يجب أولاً معرفة جودة هذه الصورة حتي نتمكن من حساب البكسلز ومعرفة كيفية حساب الجزء المستبعد ثم قص الصورة فيما يخص النقطة رقم 3 فهمت من الصور ان المقاس المرغوب هو 8.5 * 11 بوصة(انش) وليس سم *ملحوظة هذا المقاس ليس A4 إنما US Letter Size A4 > 8.3 * 11.7 بوصلة A4 > 21 * 29.7 سم

@Ahmosممكن تطبق على الملف لو سمحت حضرتك

جميل جدا اخي الكريم tiger wanted بارك الله فيك

السلام عليكم اخي الكريم Zooro1 على قدر فهمي من الطلب فهو عمل ازرار تنقل بسيطة بين الشاشات.. تفضل ازار تنقل بين الشاشات.accdb

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الكود التالي لنسخ البيانات من الجدول D6:K400 ووضعها في العمود M6:M400 في الورقة الحالية:``` Sub CopyData() Dim ws As Worksheet Dim i As Integer Set ws = ThisWorkbook.Sheets("ورقة١") For i = 6 To 400 ws.Range("M" & i).Value = ws.Range("D" & i).Value ws.Range("M" & i + 1 & ":M" & i + 7).Value = Application.Transpose(ws.Range("E" & i & ":K" & i).Value) Next i End Sub يرجى استبدال "ورقة١" باسم الورقة التي تريد نقل البيانات إليها. يمكنك تشغيل الكود عن طريق الذهاب إلى عارض VBA والنقر بزر الماوس الأيمن على اسم الورقة ثم اختيار "Insert" ثم "Module" ولصق الكود في نافذة الكود الجديدة ومن ثم تشغيله. ستقوم هذه العملية بنسخ البيانات من الجدول D6:K400 ووضعها في العمود M6:M400 في الورقة المحددة.

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

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

السلام عليكم أخي محمد هشام @محمد هشام. كل سنة وحضرتك طيب وبخير يارب حضرتك في شيت الأنشطة لما احتاج اعمل فلترة انا بحتاج ايضا نفس الجدول اللي في sheet1 فانا برضه بزود في الجدول في sheet1 مش بزيد في جدول الاشطة - انا محتاج ده يبقى مراية لده أزود في ده يزيد في الآخر وامسح في ده يمسح في الآخر ... وفي فكرة تانية هل ممكن بدل ده كله أدمج وظيفة الشيتين sheet1 وأنشطة في شيت واحد يكون فيه الفلترة بين تاريخين والبحث بالمفتاح التصدير الى pdf وورد ,excel ومعلش يكون التصدير بدون الصفوف الفارغة اللي تحت. ومعلش لما بصدر الجدول الى وورد بيظهر التاريخ معكوس فهل من طريقة لعدله؟ والله انا مزهقك أنا عارف بس والله ربنا يجعله في ميزان حسناتك ويجعل الخير بين إيديك يا رب

كدا حضرتك بردو هيكون فى اختيارين لو [completed] = -1 او [completed] = 0 مش هيكون فى اختيار تالت

اشكرك استاذ @Ahmos على الدالة وتمة التجربة هي تمدد الصوره وحبيت الدالة ❤️😇 اتمنى لو كانت الدالة لاقتصاص الصور بالحجم المطلوب وليس التمدد بالطول والعرض المحدد Cropping an Image With Controll Print v.1.4.part1.rar Cropping an Image With Controll Print v.1.4.part2.rar

الحل في الكود هنا ⬆️

جربت كل الحلول للاسف محدش قادر يوصل للى انا محتاجاه الحلول كلها مبنيه ان جميع حقول result لو فاضىه مفيهاش قيمه (is null) او كلها مش فاضيه (isnot null) ---------------------------------------------------------------- فى مرحله وسط اللى هى بعض الحقول فيها قيمها وبعضها لا ----------------------------------------------- وللاسف محدش اخد باله من النقطه دى---------------------------------------------------------

سادتي الاعزاء لو تكرمتم ماهو سبب ظهور القيم الخاطئة علما ان الملف سليم في حاسبتي الشخصية ولكن عند تحميل الملف الى حاسبة العمل او الموبايل تظهر القيم الخاطئة قيم خاطئة.xlsx

كانت عندي نفس المشكلة لكن كل ملفات الاكسيل علي الجهاز بتجيب read only وواكتشفت السبب اني كنت ضايف دوال اضافية مش موجوده في نسخة الاكسيل عندي من خلال Add ins حذفتهم واشتغل طبيعي مفهوش اي مشاكل

شكرا لكم 🌹

@Saleh Ahmed Rabie @كمال على طارق وفقكما الله ورعاكما شكرا جزيلا لكم ايها الاخوة

السلام عليكم، لدي قاعدة بيانات وفيها شاشتين رئيستين A,B مختلفين لكن نفس الازرار ونفس النماذج، في الشاشة الافتتاحية اذا اختار المستخدم شاشة A بيكمل عادي بس مثلا في النماذج لو في زر رجوع Main للشاشة اللي دخل بيها A وهكذا العكس ولو اختار شاشة B وكمل شغل وفي زر رجوع Main للشاشة اللي دخل بها B .... اتمني تفيدوني واتمني اكون وصلت المعلومة صح.