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

مشكورين 

السلام عليكم ورحمة الله وبركاته 
لدي ماكرو على اكسس اريد تحويله الى كود لاستخدامه ضمن البرنامج 

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

اريد هذا الماكرو على شكل كود برمجي استخدمه في 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

2 ساعات مضت, د.كاف يار said:

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

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

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

 

لكن ما هي الفكرة لديك أو ما هو الهدف من هذه الفكرة

شكرا الك اخي الفاضل 

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

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

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

اخي الكريم ممكن تشرحلي هاد السطر 

<>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