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

اذا وجدت دوال ال api قم باضافة كلمة ptrsafe قبل function وستعمل معاك ان شاء الله ويمكنك استخدام البحث والاستبدال لتسريع العملية بالتوفيق

جرب هذا الملف اسماء عشوائية غير مكررة.rar

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

Sub Test() Dim strPntName As String strPntName = MatchFullNetworkPrinterName("HP LaserJet Professional P1102", True) If strPntName <> "" Then MsgBox "The Active Printer Has Been Changed Successfully!", vbOKOnly, "Tips" End Sub Function MatchFullNetworkPrinterName(ByVal strNetworkPrinterName As String, Optional ByVal blnToChange As Boolean = False) As String Dim strCurrentPrinterName As String Dim strTempPrinterName As String Dim i As Long strCurrentPrinterName = Application.ActivePrinter i = 0 Do While i < 100 strTempPrinterName = strNetworkPrinterName & " on Ne" & Format(i, "00") & ":" On Error Resume Next Application.ActivePrinter = strTempPrinterName On Error GoTo 0 If Application.ActivePrinter = strTempPrinterName Then MatchFullNetworkPrinterName = strTempPrinterName Exit Do End If i = i + 1 Loop If Not blnToChange Then Application.ActivePrinter = strCurrentPrinterName End Function

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

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

بارك الله فيك أخي الغالي طلعت وجزيت خيراً على كلماتك الطيبة ، وما أنا إلا قطرة في المنتدى ، وأتعلم منك الكثير والكثير

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

Sub RandomNames_Salim() Const startRow As Byte = 2 Const endRow As Byte = 31 Dim g(startRow To endRow), c As Integer, r As Integer Do c = Application.RandBetween(startRow, endRow) If Not g(c) Then r = r + 1 Cells(r + 1, "D").Value = Cells(c, "A").Value g(c) = True End If Loop Until r = 30 End Sub

اتفضل OpenForm (1).rar

السلام عليكم شاهد المرفق بالتنسيق الشرطي AutoChange-1.rar

السلام عليكم اخي الكريم اتريد ان تعمل فهرسة بارتباط تشعبي سريع لملفاتك .

السلام عليكم لدي ملفات اكسل مرتبطة بقواعد بيانات ملفات اكسس وكلها موجودة في مجلد واحد، في المستقبل سأحتاج أن أنسخ هذا المجلد عدة مرات ولكن في كل مرة يجب أن أقوم بتغيير روابط الملفات المرتبطة يدويا أكثر من مرة هل يوجد طريقة تجعل ملفات الاكسل تستورد تلقائيا من ملفات الاكسس التي معها في نفس المجلد ؟ وان لم يكن بامكاني هل من طريقة سريعة لتعديل روابط الملفات ؟ ملاحظة: لا يمكنني التعديل على ملفات الـobc

السلام عليكم ورحمة الله يمكنك الآن العودة الى صفحة العمل والتعديل كما شئت PROJET11.rar

تمام .. قيد التنفيذ

مشاركة مع اخي الاستاذ شيفان استخدم دالة trim فقط . واذا المسافات بالوسط يمكن استخدام replace ولو ترفق مثالا او لصق مجموعة من الارقام من الجدول وكما هي بالتوفيق

السلام عليكم اليكم الطريقة كاملة نقوم بانشاء ملفات مثلا كتالي نفتح ملف الاكسل ولنفرض المشتريات ونقوم بعمل الفورم المطلوب للعمل نكر العملية لجميع الملفات المطلوبة نحفظ الملف ونقوم بتفح قاعد ةالبيانات واتبع الصورة / يجب ان يكون هناك جدول واحد على الاقل في القاعدة ليقبل الخيار الاخير كرر العملية نفسها لجميع الملفات اصبح لدينا الان ثلاث جداول اكسل داخل قاعدة البيانات افتح تصميم استعلام واتبع الصورة يجب ان تقوم باضافة جميع الخانات الى الاستعلام لكل جدول استعلام خاص به اخيرا قم باختيار طريقة عرض SQL وانتبه الى جميع الاضافات ان تكون موجودة ثم احفظ كرر العملية نفسها ليصبح لديك 3 استعلامات افتح ملف الاكسل باسم مدير واتبع الصورة حدد الاستعلام المطلوب واتبع الصور تم استيراد البيانات بنجاح الان قم بفتح ملف المشتريات مثلا واكتب به ثم احفظ اذهب الى صفحة المدير واختر بيانات وتحديث الكل وشاهد النتيجة مبروك عليك انتهى الشرح الان فكر بعمق كيف تستطيع ربط جمع الصفخات او المستخدمين ببرنامجك حسب ماتريد انت وشكرا تحميل الصور والملفات والشرح http://www.up-00.com/?rIXR ايضا تستطيع رفع قاعدة البيانات على الشيربونت او موقع مشاركة للعمل على الشبكة او الانترنت مثلا انت في مصر والموظف في السعودية والمراقب في سوريا يستطيعون العمل معا على قاعدة واحدة عبر الشير بونت او موقع مشاركة وشكرا

اخي الكريم نفرض ان عندك حقل باسم barcode وبه ارقام بها فراغات بين الارقام مثلا 3 45 وتريد بيصير 453 اعمل استعلام تحديث لذاك الحقل وفي update to اكتب ما يلي Val(Replace(Trim((Mid([barcode];InStr([barcode];"-")+1;10000)));"-";"")) واذا ما عرفت تطبق غدا بالعصر ان شاء الله راح ارع لك ملف على ذلك انا ما اكدر ارفع الان لان بستخدم موبايل هسة

الاستاذ محمد الشابوري أشكرك من الاعماق كفّيت ووفّيت وما قصرت

وعليكم السلام ورحمة الله وبركاته أخي الكريم طلعت محمد حسن سأعرض لك الرابط بالصور وإليك الرابط:

روابط لكنترولات مفيده نسخة التعليم الإبتدائى من الميديا فاير نسخة التعليم الإعدادى من الميديا فاير نسخة التعليم الثانوى العام من الميديافاير نسخة التعليم الصناعى من الميديا فير نسخة التعليم التجارى من الميديا فير نسخة التعليم الفندقى من الميديا فير نسخة التعليم الإبتدائى للأزهر الشريف من الميديا فير البرنامج لا يفتح الا من خلال كلمة مرور (1) يمكن تغييرها كيفما تشاء الانتقال من مستوى صلاحية الى اخر يتم من خلال كلمة مرور اخرى (1) يمكن ايضا تغييرها فى أى وقت فمثلاً يمكن تفعيل قائمة (جلوس وسرى) وقائمة (مطبوعات) باتباع الاتى : اعدادات - تغيير الصلاحية - اختيار رئيس الكنترول - وضع كلمة المرور:1 ثم الضغط على موافق

تخيل الأمر قد يوضح الصورة مع بداية كل عام دراسى تأتيك شهادات ميلاد الرقم القومى للتلاميذ الجدد أنت تنقل الرقم القومى من الشهادة موضوع الفديو استخراج تاريخ الميلاد و ما تفضلت به فى غاية الأهمية فمثلا الرقم الأول يساوى 2 أو 3 فقط الرقمان الثانى و الثالث و يمثلان سنة الميلاد يحصران بين 00 و 90 مثلا و الشهر 01 إلى 12 و اليوم 01 إلى 31 ورقم المحافظة 01 إلى و هذه قيود مفيدة جدا تقلل الأخطاء و هى محل اعتبار و أهمية لكن بالنسبة لعملنا فإن الرقم القومى ينقل بدقة و يتم حساب السن فى أول أكتوبر باليوم و الشهر و السنة فتظهر الأخطاء كما أنه يتم تكليف لجنة خاصة بالمدرسة لمطابقة شهادة الميلاد و ما فيها من معلومات على كشف مطبوع اسمه 12 د لكن مع هذا فا لفكرة عظيمة جدا و أفكر فى آلية تنفيذها مبدئيا بنفس الدالتين Mid Val و معا نسير فى النقاش لنتعلم و نعلم ولا تنس إضافة الفديو للشروح جزاك الله خيرا وزادك صفاء فى الذهن و الفكر

السلام عليكم ورحمة الله وكل عام وانتم بخير استاذ عبدالفتاح هذ الفيديو الثاني فيما يخص الرقم القومي وحين شاهدت عرضك هذا وخاصة ادراج تاريخ الميلاد آليا بمجرد كتابة الرقم القومي قدحت في رأسي فكرة : وهي بما ان الرقم القومي يحمل معلومات محددة تخص صاحبه مثل تاريخ الميلاد والمحافظة والجنس ومعلومات اخرى مثل اول رقم اقول جميل ان يكون التحقق من صحة الرقم عن طريق هذه المعلومات فان كانت صحيحة تظهر البيانات في الحقول والا نطالبه بتصحيح الرقم مثلا الرقم الاول محصور بين الرقمين 2 و 3 وما يخص التاريخ يمكن حصره بين فترتين زمنيتين تقريبيتين ويمكن تخصيص الرقم الاول من الرقم القومي بتواريخ محددة فمثلا الرقم 2 تختلف التواريخ فيه عن ما يخص الرقم 3 ايضا من ضمن الضوابط رقم المحافظة فلا بد ان يكون الرقم المدخل موجودا ضمن قائمة المحافظات علما ان هذا الاجراء لا يمنع من التلاعب المقصود ولكنه يضبط الاخطاء الحاصلة عند الادخال وهي كثيرة ما رأيك أستاذي العزيز ؟

السلام عليكم تفضل ملف الملاحظة لااستاذ / ايسم ابراهيم توزيع الملاحظة.zip