أبو يحيى الجبلاوي

مشكورين

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

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

جزاكم الله خيرا وجدت حل عن طريق دالة =TEXT(D3;"DDDD") شكرا للجميع

السلام عليكم ورحمة الله وبركاته كما هو موضح بالصورة لدي عمود يحتوي على تواريخ معينة ومن تنسيق الخلية اظهر اليوم فقط كما هو معرف ان الاكسيل يتعامل مع التاريخ كرقم المطلوب هل يوجد طريقة حتى اتعامل مع ناتج الخلية كنص بمعنى اريد ان استخدم النص مثلا بدالة if الشرطية على سبيل المثل =IF(P7 = "الثلاثاء";1;0) وضع رقم واحد امام يوم الثلاثاء ورقم 0 عند باقي الايام لذلك انا بحاجة للتعامل مع الخلية كنص ان كان يوجد حل بالمعادلات بعيدا عن VBA ملف مرفق.xlsx

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

السلام عليكم ورحمة الله وبركاته حياكم الله اخواني الافاضل الكرام جميعاً لدي ملف اكيسل فيه ورقتان الورقة الأولى كما هو موضح بالصورة فيها اسماء لموظفين مع بعض المعلومات والراتب الاساسي الراتب موزع على مشاريع كما هو موضح بالصورة المطلوب هو على الشكل التالي عند وضع رقم الموظف في الخانة EMP NO يجلب معلومات الموظف عن طريق دالة VLOOKUP كما هو واضح بالصورة المطلوب الان هو اظهار نتيجة توزيع الراتب في السطر مكان الكتابة بالأحمر نسبة فقط بدون المبلغ + اسم المشروع مثال 100% Project 1 مثال : عندما نضع رقم 1 في الخانة EMP NO يظهر اسم الموظف Abdullah بالرجوع الى الصفحة الاولى نجد ان الراتب موزع 50% Project 1 & الى 50% 4 Project المطلوب اظهار هذه النتيجة بالمكان الاحمر مثال 2 : عندما نضع رقم 2 في الخانة EMP NO يظهر اسم الموظف ibrahim بالرجوع الى الصفحة الأولى نجد ان الراتب موزع 100% Project 5 مثال 3 : عندما نضع رقم 4 في الخانة EMP NO يظهر اسم الموظف Adnan بالرجوع الى الصفحة الأولى نجد ان الراتب موزع Project 1 25% & Project 2 25% & Project 3 & 25% Project4 وهكذا الى نهاية الجدول المفروض ان يحتوي الجدول الأول 1000 موظف ملف الاكسل بالمرفقات HR.xlsx

تمام معناها مافي كود او شي تاني نعمله الا الضبط من صفحة الطباعة

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

السلام عليكم ورحمة الله وبركاته هل يوجد طريقة لطباعة النموذج على صفحة واحدة A4 دون ان اضطر لتصغير حجم البيانات اريد ضبط النموذج فقط على صفحة واحدة

ايضا الشكر الجزيل للأخ @jjafferr يعني بصراحة ماقصر ابدا في الماضي وفي الحاضر 🙃

مشكور مشكور اخي شكرا الك

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

السلام عليكم ورحمة الله وبركاته حياكم الله جميعا لدي استعلام اسمه اليومية مبني على استعلام توحيد لجدولين المطلوب اضافة عمود للترقيم التلقائي بناءا على ترتيب تاريخ تسجيل العملية كما هو موضح بالصورة التالية : ايضا يوجد ملف للمثال بالمرفقات ex.accdb

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

السلام عليكم هلق من أحد للرد على استفساري لو سمحتو اريد انا استطيع تغيير حجم الحقل بالماوس في طريقة عرض النموذج

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

اخي الكريم ممكن تشرحلي هاد السطر <>Nz([Forms]![تحويل العملات]![تحويل من];0)

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

اخي ممكن تطبقلي هاد الأمر على نفس الملف الي ارفقته انا

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

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

اخي الحبيب شكرا لردك اتشكرك من كل قلبي ولكن يبدو انه عندي مشكلة اخرى غير الذي تفضلت بها لانه اساس انا ضابط الاعدادات على اللغة العربية كما هو موضح بالصورة اخي اريد ان اتأكد من حضرتك كونك جربت الملف انا ليس لدي مشكلة بالاسماء باللغة العربية ضمن ملف الاكسيل فهي تظهر بشكل طبيعي ولكن المشكلة بعد التصدير الى ملف vcf الذي يتم تصديره الى المسار التالي كما هو موضح بالكود OutFilePath = "D:\OutputVCF.vcf" يعني باختصار انه ضمن ملف الاكسيل الاسماء تكون صحيحة باللغة العربية اما بعد التصدير الى هذا الملف في هذا الملف الذي هو ناتج الكود هنا تظر مشكلة الاسماء وتظهر على شكل نجوم سواء كان على الكمبيوتر او على الجوال هل في هذا المف تظهر الاسماء لديك صحيحة باللغة العربية ام فقط على الاكسيل واذا كانت تظهر في هذا الملف عندك بالشكل الصحيح فما المشكلة بما اني ضابط اللغة كما طلبت سابقا

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

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم جميعا اخواني الافاضل لدي كود يسمح لي بتصدير الاسماء من ملف اكسيل الى ملف امتداد vcf كي نقوم برفعها على الهاتف كجهات اتصال المشكلة هي على الشكل التالي الكود يعمل اذا كانت الاسماء باللغة الانكليزية اما اذا كانت باللغة العربية بيقوم بتصدير الاسماء على شكل نجمة هل يوجد حل لتصديرها بالشكل الصحيح اذا كانت لغة الاسم عربي الكود هو : Private Sub Create_VCF() 'Open a File in Specific Path in Output or Append mode Dim FileNum As Integer Dim iRow As Double iRow = 2 FileNum = FreeFile OutFilePath = "D:\OutputVCF.vcf" Open OutFilePath For Output As FileNum 'Loop through Excel Sheet each row and write it to VCF File While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> "" LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) FName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 2)) PhNum = VBA.Trim(Sheets("Sheet1").Cells(iRow, 3)) Print #FileNum, "BEGIN:VCARD" Print #FileNum, "VERSION:2.1" Print #FileNum, "N:" & LName & ";" & FName & ";;;" Print #FileNum, "FN:" & LName & " " & FName Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum Print #FileNum, "END:VCARD" iRow = iRow + 1 Wend 'Close The File Close #FileNum MsgBox "Contacts Converted to Saved To: " & OutFilePath & " " End Sub