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

للاسف ليس لدي سكنر ... جرب واعلمنا .......... Public Function SelectScanner() Dim ComDialog As New WIA.CommonDialog Dim wiaScanner As WIA.Device ' عرض نافذة لاختيار الجهاز Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.ScannerDeviceType, False, True) ' إذا تم اختيار جهاز، فإن DeviceID سيحتوي على معرف الجهاز المحدد If Not wiaScanner Is Nothing Then MsgBox "تم اختيار الجهاز: " & wiaScanner.DeviceID Else MsgBox "لم يتم اختيار أي جهاز." End If End Function يتطلب إضافة مرجع إلى “Microsoft Windows Image Acquisition Library v2.0

بما أن الفكرة هكذا .. أيضاُ إذا كان التعليق أكثر من سطر ، فيمكن تجزئة سطر التعليق بحيث عند اي جزء اترك مسافة بين آخر حرف وضع إشارة _ ثم Enter ليصبح التعليق مقسماً إلى أسطر .. ' لإضافة تعليق يمكن تقسيمه الى عدة أسطر _ نستطيع فعل التالي ليكون بهذا الشكل _ وها أنا في منتدانا الغالي ما زلت أتعلم _ ولله الحمد.

أخي الكريم @عبدالقدوس48 هل تتوقع ان من يجيب هو من يضع الامثلة والمرفق ..... ام السائل هو من يزودنا بالمرفق للتطبيق عليه بعد دراسة طريقته في البرنامج ووضع الحل المناسب لمرفقه .... بارك الله فيك

ومشاركة مع أستاذنا ابو خليل فصل العدد الكسري.accdb

DoCmd.RunCommand acCmdPrint

انظر هنا وهنا

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

السلام عليكم تفضل المرفقالاسم على هويتين - تعديل.xlsx

تفضلي باستبدال قيمة مربع النص في النموذج Form1 الى السطر التالي :- =DCount("[no]", "Table1", "dat_t Between Forms!Form1!d1 And Forms!Form1!d2") سيكون تعداد السجلات بناءً على الشرط في النموذج ( بين التاريخين ) من بيانات الجدول مباشرةً .

تفضل استاذ @طير البحر الشرح لحل مشكلتك .

السلام عليكم كان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك فالمنتدى كنوز -تفضل على الرغم انك لم تقم برفع ملف اكسيل موضح به المطلوب بكل دقة https://www.officena.net/ib/topic/22735-طباعة-الشهادات-المدرسية/ وهذا أيضاً برنامج صانع الشهادات المدرسية https://www.jo-teachers.com/forum/t9644

شكرا لك اخي احمد هذا هو المطلوب ولكن تبقى مشكلة الاسماء المركبة ياريت حد يعمل حل للمشكلة ياريت اخي احمد تضيف الكود التالي الى الكود الموجود الذي عملته من اجل حل مشكلة الاسماء المركبة Function kh_Names(FullName As String, ParamArray iNdex1()) As String Dim i As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String On Error GoTo Err_Kh_Names '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") '====================================== Sn = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== kh_Split = Split(Sn, " ", , vbTextCompare) On Error Resume Next For i = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & kh_Split(iNdex1(i) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") kh_Names = Kh_String Exit Function Err_Kh_Names: kh_Names = "" End Function

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

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

وعليكم السلام ورحمة الله وبركاته الصورة غير واضحة وربما الخطأ بسبب اسماء الشيتات تاكد من كتابة اسماء الشيتات بشكل صحيح Sheet2 Sheet1 كما فى الملف الخاص الخاص بك

هل تريد ان يكود جدول الدفعات فى شيت جديد File.xlsm جرب الملف

على السريع لفصل الرقم الصحيح Expr1: Left([text1],InStr([text1],".")-1) لفصل الكسر Expr2: "0" & "." & Right([text1],InStr([text1],"."))

وعليكم السلام ورحمة الله وبركاته تفضل أخي اختصار معلومات لعميل.xlsx

شكرا جزيلا استاذي العزيز الان يعمل النموذج بشكل جيد

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مكتبة الأكواد الخاصة) :: الإصدار الثالث :: مكتبة عامرة بمئات الأكواد VBA داعمة للمبرمجين وجزء لا يتجزأ من عملهم. تختصر الوقت وتسهل العمل على مصممي البرامج. وهي مكتبة عامة يمكن استخدامها لأي لغات برمجية أخرى . من مميزات المكتبة : - أكثر من 360 كود ودالة في مختلف الفنون والمجالات . - قابلة لحفظ مرفقات مع الكود لدعم التطبيق. - يمكنك إضافة أكوادك الخاصة لتكون مكتبة داعمة لكل مبرمج. - سهلة الاستخدام . تحميل المكتبة : مكتبة الأكواد الخاصة zip.zip ولا تنسوني من صالح دعواتكم 🙂🌹

وعليكم السلام ورحمة الله تفضل أخي هذا الكود If Len(Me.PicFile) And Me.PicFile <> "(none)" Then Shell "C:\Windows\System32\MSPaint.exe " & Chr(34) & Me.PicFile & Chr(34), vbMaximizedFocus End If حيث PicFile هو مربع النص الذي به مسار الصورة