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

اخي الحبيب شكرا لردك اتشكرك من كل قلبي ولكن يبدو انه عندي مشكلة اخرى غير الذي تفضلت بها لانه اساس انا ضابط الاعدادات على اللغة العربية كما هو موضح بالصورة اخي اريد ان اتأكد من حضرتك كونك جربت الملف انا ليس لدي مشكلة بالاسماء باللغة العربية ضمن ملف الاكسيل فهي تظهر بشكل طبيعي ولكن المشكلة بعد التصدير الى ملف 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

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

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

جزاك الله خيرا وبارك الله فيك انا اريد كتابة بغض النظر عن ال id المهم انه السطر الاول هو العملة الرئيسية والباقي يكون العملة رقم 2 العملة رقم 3 وهكذا حتى لو كان id 100 وهو سطر 3 تكون العملة رقم 3 بكل الاحوال اجدت وشرحك واضح شكرا الك اخي الفاضل وتحياتي لفريق العمل في هذا المنتدى واتمنى ان اكون عنصر فاعل في منتداكم الرائع

اتمنى منك اخي جعفر تطبقلي الحل على المثال سواءاً بالكود او بكود آخر وجزاك الله خيرا

ربي يكرمك انا اسف كان لازم حط شرح واضح للمطلوب من الاول تفضل اخي هذا ما اريده بالضبط صورة + ملف مرفق test 2.accdb

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

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

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

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

انا يتغير تلقائياً في حقل no2 جدول msaref

هي الملف اخي بعد تعديل الاسماء test.rar

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

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

اما اذا كان قصدك حساب المكرر مرة واحدة وحساب غير المكرر واحد يوجد طريقة ولكن لا اعلم ممكن يكون في اسهل منها ولكن هذا ما اعلمه كوني مبتدئ بالاكسس وهي على الشكل التالي أولا نعمل نفس الخطوات السابق ولكن نضع بدل >1 اشارة 1=< وبعدها تظهر النتائج على الشكل التالي : ثم نقوم بعدها بإعادة انشاء جدول استعلام للتكرار ولكن على الشكل التالي : الخطوة 1 الخطوة 2 الخطوة 3 واخيرا تظهر النتائج على الشكل التالي : اسف على الاطالة على الاكيد يوجد طريقة بكود بسيط ولكن هذا ما اعلمه كما اسلفت سابقا كوني مبتدئ بالاكسس تقبل مروري

.

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

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

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

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