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

نعم هذا اللي ظهر عندي ، عند قرأته بأحد برامج الموبايل ، ولكني ارت التأكد 🙂 اصبر على رزقك ، الخير جاي ان شاء الله 🙂 جعفر

السلام عليكم ورحمة الله وبركاته السادة الاعضاء المحترمين .. كل عام وحضرتكم بخير تم تصميم هذا المثال وذلك لتعم الفائدة على الجميع طريقة عمل بطاقات دخول - كارنيهات باستخدام باركود ماتركس ويمكن ان تفيد اي عضو لعمل كارنيهات / بطاقات لاي مؤسسة او شركة او وزارة ولمن لايعلم ما هو باركود الماتركس او الباركود الثنائى هو بهذا الشكل *ويلزم لتشغيل المثال ان تنسخ ملف المرفق QRCodeFont.dll فى مجلد system32 *ونوع الخط المرفق ايضا MW6Matrix.TTF الى مجلد الخطوط المسمى fonts واليكم المثال اتمنى ان تستفيدو منه في عمل أي بطاقات او كارنيهات الحقوق محفوظة لاصحابها (اخي سوبربرو) اخوكم محمد سلامة وجاري التحضير بامثلة اخري باذن الله barcode-Matrix2-5-2019.rar

ممكن هذا الحل باستعمال شيت مساعد (الملف مرفق) الماكرو Option Explicit Sub Pprint_Sames_columns() Dim xRg Dim arr Dim i%, r%, m%: m = 1 r = Sheets("salim").Range("a1").CurrentRegion.Rows.Count Sheets("Print_sheet").Cells.Clear xRg = Application.InputBox(" أكتب أرقام الأعمدة مع فاصلة بين كل رقم والذي يليه", "المطلوب أرقام الأعمدة", Type:=2) arr = Split(xRg, ",") For i = LBound(arr) To UBound(arr) If IsNumeric(arr(i)) Then Sheets("salim").Cells(1, Int(CInt(arr(i)))).Resize(r).Copy _ Sheets("Print_sheet").Cells(1, m) m = m + 1 End If Next Sheets("Print_sheet").PrintPreview End Sub Print Same Colmns.xlsm

السلام عليكم ورحمة الله يمكن ذلك جدا ولكن باستعمال خاصية إخفاء / إظهار الأعمدة، لأنه لا يمكن طباعة أعمدة غير متجاورة، مثلا العمود A والأعمدة المختارة 15-22، في صفحة واحدة إلا باستعمال هذه الخاصية وذلك بإخفاء الأعمدة من 2 إلى 14. مع العلم أنه يمكن القيام بذلك برمجيا (عن طريق كود).... والله أعلم بن علية حاجي

السلام عليكم ورحمة الله تعالى وبركاته الجزء الاول من صلاحيات دخول المستخدمين الى البرنامج فى هذا الجزء - فى حالة عدم وجود مستخدم مسجل اى عند فتح القاعدة للمرة الأولى يتم انشاء المستخدم الأدمن اليا يا سلام يا سلام -البيانات فى الجداول مشفرة << -----------< تلبية ورغبة لطلب احبائى الكرام -تم إخفاء معظم كائنات قاعدة البيانات التى تخص دخول المستخدمين -نموذج الدخول يمكن من خلاله تسجيل مستخدم جديد فى انتظار الادمن للموافقة عليه وتصنيفه تبعا لمجموهة الصلاحيات << -----------< الادمن كده هيستريح الله الله الله -نموذج الدخول يمكن من خلاله استرجاع كلمة المرور فى حالة النسيان ولكن بعد ادخال بيانات التسجيل الصحيحة ( اسم الدخول - الاسم الرباعى - الايميل- سؤال الامان - اجابة السؤال) -امكانية كشف نجوم كلمة المرور ما تيجو نشوف كده قد يكون هناك اخطاء سهوا منى وقد تكون هناك لدى احد اساتذتى الكرام واحبائى فكرة افضل يسعدنى تلقى مقترحاتكم حول المرفق القاعدة مطروحة للتجربة ـــــــــــــــــــــــــــــــــــــــــــــ SecurityLevel group.accdb SecurityLevel group.mdb

السلام عليكم ورحمة الله وبركاته لقد أنشأت برنامج بسيط وجمعت به الأكواد التي نسنتخدمها باستمرار وصممته بحيث تكون الواجهة عبارة عن شاشة يتم تجميع بها الأكواد المراد نسخها الي شاشة الفيجوال بيسك لمشاهدة كيف يعمل البرنامج من هذا الرابط بنك الأكواد - demo-24-4-2019.accdb

صور بداخل الرسم البيانى بالاكسل الفيديو الصور رابط الملف http://www.mediafire.com/file/abefpdt2r7hvg4v/ادراج+صورة+داخل+الرسم+البيانى.rar

فورم كتابة التاريخ مباشر واخفاء بعض الازرار الفيديو الصور الملف http://www.mediafire.com/file/13ar2g9v2mh3zpv/البحث+فى+نادى+الشباب.rar

تفضل الاجابة على طلبك 🙂 . . . جعفر 1056.azhr.accdb.zip

جزيت خيرا استاذ سليم هو المطلوب

اني منتظر ...... على احر من الجمر .... لان هذا الموضوع يهمني كثير في عملي بارك الله فيك ... ننتظر ابداعاتك

السلام عليكم من خلال تجربة لم اجد طريقة لقراءة اللغة العربية عن طريق ماتركس باركود مع الاكسس ..... ولكن هناك برامج مستقلة لعمل هذا الكود ولكن يصعب ربطها مع الاكسس .... والله أعلم .... انظر نتيجة التجربة مع برنامج الاخ @محمد سلامة

بارك الله فيكم استاذ سليم ما شاء الله عمل روعة

السلام عليكم كل عام وانتم بالف خير اعادة الله علينا وعليكم بالخير والبركة ---- المثال عمل معي بدون اخطاء --- تسلم الايادي استاذ محمد بالتوفيق

السلام عليكم احسنت استاذ محمد بالتوفيق

الاستاذ / الفاضل / semo جربت بين جهازين في المنزل لحين عودتي للعمل وصار كل شئ تمام الله يفتح عليك يعجز لساني عن كلمات الشكر والتقدير لحضرتك ولا يسعني الا ان اقول لك زادك الله من علمه ونفعك به

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

اهلاً معلمي الغالي, تلبية لطلبك الكريم قمت بجمع الطريقتين بملف واحد اذا وضعت مسار ملف صوت MP3 او WAV فهو سيقوم بفلترة المدخلات وتشغيلها حسب صيغتها. Option Compare Database Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _ hwndCallback As Long) As Long Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _ (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Const SND_ALIAS_SYSTEMASTERISK As String = "SystemAsterisk" Const SND_ALIAS_SYSTEMDEFAULT As String = "SystemDefault" Const SND_ALIAS_SYSTEMEXCLAMATION As String = "SystemExclamation" Const SND_ALIAS_SYSTEMEXIT As String = "SystemExit" Const SND_ALIAS_SYSTEMHAND As String = "SystemHand" Const SND_ALIAS_SYSTEMQUESTION As String = "SystemQuestion" Const SND_ALIAS_SYSTEMSTART As String = "SystemStart" Const SND_ALIAS_SYSTEMWELCOME As String = "SystemWelcome" Const SND_ALIAS_YouGotMail As String = "MailBeep" ' playsound Params Const SND_LOOP = &H8 Const SND_ALIAS = &H10000 Const SND_NODEFAULT = &H2 ' silence if no sound associated with event Const SND_ASYNC = &H1 ' play async (don't freeze program while sound is playing) Private sMusicFile As String Dim Play, a Public Sub Sound_MP3(ByVal File$) sMusicFile = GetShortPath(File) Play = mciSendString("play " & sMusicFile, 0&, 0, 0) If Play <> 0 Then End If End Sub Public Sub Stop_MP3(Optional ByVal FullFile$) Play = mciSendString("close " & sMusicFile, 0&, 0, 0) End Sub Public Function GetShortPath(ByVal strFileName As String) As String Dim lngRes As Long, strPath As String strPath = String$(165, 0) lngRes = GetShortPathName(strFileName, strPath, 164) GetShortPath = Left$(strPath, lngRes) End Function Private Sub DoStartSound_Click() If IsNull(SoundPath) Then MsgBox "! áã ÊÞã ÈæÖÚ ãÓÇÑ ãáÝ ÇáÕæÊ", vbCritical, "ÚãáíÉ ÎÇØÆÉ" Exit Sub End If Dim Fix_Path As String Fix_Path = Mid(SoundPath, 2) Dim Rev_Extension As String Rev_Extension = FExtOnly(Fix_Path) If IsFile(Fix_Path) = False Then MsgBox "! áã íÊã ÇáÚËæÑ Úáì ÇáãáÝ", vbCritical, "ÚãáíÉ ÎÇØÆÉ" Exit Sub End If Select Case Rev_Extension Case "mp3" Sound_MP3 (Fix_Path) Case "wav" PlaySound Fix_Path, vbNull, SND_ALIAS Or SND_NODEFAULT Or SND_ASYNC Or SND_LOOP End Select Debug.Print Fix_Path End Sub Function IsFile(ByVal fName As String) As Boolean On Error Resume Next IsFile = ((GetAttr(fName) And vbDirectory) <> vbDirectory) End Function Function FExtOnly( _ ByVal filename As String) _ As String Dim nopath As String Dim dpos As Long Dim spos As Long spos = InStrRev(filename, "\") If spos > 0 Then nopath = Mid(filename, spos + 1) Else nopath = filename End If dpos = InStrRev(nopath, ".") If dpos > 0 Then FExtOnly = Mid(nopath, dpos + 1) Else FExtOnly = "" End If End Function Private Sub DoStopSound_Click() Dim Fix_Path As String Fix_Path = Mid(SoundPath, 2) Dim Rev_Extension As String Rev_Extension = FExtOnly(Fix_Path) Select Case Rev_Extension Case "mp3" Stop_MP3 (Fix_Path) Case "wav" PlaySound vbNullString, ByVal 0&, SND_NODEFAULT End Select End Sub حسنين MP3_WAV_Player_SEMO_Pa3x.accdb

بسم الله الرحمن الرحيم وبه نستعين على كل شىء وقبل كل شىء السلام عليكم ورحمه الله وبركاته احبائى اعضاء المنتدى الرائع وحشتونى جدا والله ما يمنعنى عنكم إلا الشديد القوى آلا وهو العمل وطول وقته طبعا هذه الهديه حاجه بسيطه تفكركوا بيا عشان محدش ينسانى وان شاء السميع العليم سأعود بقوه لكن بعد موسم الميزانيات الهديه لكل اعضاء اوفيسنا وخاصه أستاذى العلامه // عبد الله باقشير واستاذى // حماده عمر وطبعا أستاتذتى جميعا ولا اود ان انسى منهم احدا أستاذى // طارق محمود أستاذى // بن عليه حاجى أستاذى // جمال عبد السميع أستاذى // ابو حنين استاذى // جمال دغيدى أستاذى // عبد الله المجرب أستاذى // يحيى حسين استاذى // محمد معتصم استاذى // احمد زمان استاذى // احمد فضيله استاذى // الخالدى أستاذى // حماده باشا أستاذتى نجمه اوفيسنا // ام عبد الله استاذى // قنديل الصياد استاذى // ضاحى الغريب استاذى // رجب جاويش أستاذى // شوقى ربيع استاذى // احمد عبد الناصر أستاذى // الشهابى استاذى // هانى عدلى استاذى وحبيب قلبى الغالى // سعيد بيرم استاذى // ابراهيم ابو ليله واخى الحبيب // عطاء الله واخى الحبيب // احمد النجار وطبعا لكل اعضاء اوفيسنا تقبلوا تحياتى وكل عام وانتم بخير OFFICENA.rar