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

حيا الله الشباب ايش رايك في كلمة سر متغيرة يعني مافي داعي تخاف احد يشوفها ، لأنها تتغير دائماً كل دقيقة استعمل هذا الكود مثلاً: p1 = InputBox("insert Password", Format(Now(), "dddd dd-mm-yyyy hh:mm:ss am/pm")) p2 = Format(Hour(Now()) + Minute(Now()), "0000")' & "," & Format(Day(Now()) + Month(Now()), "0000") 'MsgBox Format(Now(), "dddd dd-mm-yyyy hh:mm:ss am/pm") & vbCrLf & _ Format(Hour(Now()) + Minute(Now()), "0000") & "," & Format(Day(Now()) + Month(Now()), "0000") If p1 = p2 Then MsgBox "OK" Else MsgBox "NG" End If كلمة السر هي: تجمع الساعة في الوقت الحالي (الساعة نظام 24 ساعة) + الدقيقة ، والجواب يكون بصيغة 4 ارقام ، مثلا الساعة الآن 5 العصر و26 دقيقة ، اولا نحول الساعة الى نظام 24 ساعة: 5+12 = 17 17 + 26 = 43 اذاً كلمة السر هي 0043 وطبعا تقدر انك تغير الكود وتدخل اول حروف اليوم مثلا و ..... جعفر

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

تحفة ،،،

التسااااااااااااااااااااااااااامح التسااااااااااااااااااااااااااامح التسااااااااااااااااااااااااااااامح إخواني الكرام ليكن شعارنا التسااااااااااااامح .. التمس لأخيك 70 عذراً .. التمس لأخيك 70 عذراً ..التمس لأخيك 70 عذراً .. الخلاف لا يورث إلا الكراهية والبغضاء ، ونحن هنا مهما حدث بيننا من خلاف ، ما نحن إلا أخوة ، اجتمعنا على هدف واحد ، وليكن طريقنا واحد .. لا تدعوا للشيطان سبيلاً بيننا .. إياكم ووساوس الشيطان

بسم الله الرحمان الرحيم السلام عليكم اولا اعتذر عن غيابي في الايام القليلة الماضية عن المنتدى لضروف العمل اتيتكم اليوم ببرنامج مصمم على الفورم عبارة عن تلاوات للقران الكريم كاملا بصوت المقراء الشيخ عبد الباسط عبد الصمد ستجدون في هذا البرنامج كل ماتحتجون معرفته عن طرق استعمال WindowsMediaPlayer في الاكسل اترككم مع المرفق القرأن الكريم_اونلاين.rar

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

السبب في جدول الاسماء : اجعل المفتاح لمعرف الطالب فقط اما بالنسبة لتصفير الترقيم التلقائي : فعند حذفك لجميع البيانات داخل الجدول (لا بد يكون الجدول فارغ) : اعمل ضغط واصلاح لقاعدة البيانات

وعليكم السلام شباب ، ممكن ادلو بدلوي 1. يجب ان تحول SUB الزر من Private الى Public: من Private Sub Btn2_Click() الى Public Sub Btn2_Click() بعدين تقدر تناديه هكذا: call Forms!Mfrm!Form_Btn2_Click وطبعا الكود غير مجرب بالدقة ، لأنه ما عندنا شئ نقدر نجربه عليه جعفر

تفضل طريقتين لعرض الصور: في النموذج نادي التقرير هكذا: DoCmd.OpenReport "rpt_Image2", acViewPreview وفي التقرير ، على حدث الطباعة ، عندك الاختيارين: Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'but why do this, when we can read the info directly from the Form, 'this is a much faster way Me.ImageFrame.PictureData = Forms!frm_1!ImageFrame.PictureData End Sub او Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'we can read the picture from the File again, this way Me.ImageFrame.Picture = Application.CurrentProject.path & "\Photos\" & Forms!frm_1!no & ".jpg" End Sub وانا افضل الطريقة الاولى ، لأننا نقرأ الصورة من النموذج مباشرة ، بينما في الطريقة الثانية ، فاننا نطلب الصورة من مجلد الكمبيوتر (يعني انت طلبتها مرة للنموذج ، والان تطلبها للتقرير ) جعفر 21.طباعة.zip

بارك الله فيك وأكثر من أمثالك أخى الفاضل / ياسر فأنت بالفعل علامه ضمن عمالقة هذا المنتدى العظيم

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

اختر افضل اجابة ليظهر الموضوع مجاب

شكرا على شهادتك أستاذنا

http://www.officena.net/ib/index.php?showtopic=59638&hl= http://www.officena.net/ib/index.php?showtopic=59601&hl= اخي الكريم هناك مثالين في الرابطين ,, وهي ان شاء الله ماتبحث عنه . بإمكانك تعريف الحقل في النموذج بالطريقة forms!form1!text1 forms : ثابته . form1: اسم النموذج لديك text1: اسم الحقل في النموذج . اذا لم تفدك فقم بإرفاق ملف للتعديل عليه .. وفقنا الله واياك ...

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

وعليكم السلام ورحمة الله وبركاته اعرض عليك عمل أخي علاء ابوالعلا (الله يعطيه الصحة والعافية ، ورحم الله والديه دنيا وآخرة ان شاء الله ) ، من منتدى الفريق العربي للبرمجة ، بإضافات مني والعمل هو عبارة عن التنقل بين السجلات بعدد معين من السجلات في كل ضغطة زر: المربع رقم 1 هو من عمل أخي علاء ، والمربع رقم 2 من عملي ، مقتبسا فكرة أخي علاء: عملت نموذج مستمر ، واردت السجلات تنزل او تصعد صفحة كاملة (مثل Scroll up down) بطول النموذج ، وهذه النتيجة: إضغط على الصورة للحركة: ولفهم الكود ، رجاء ملاحظة الارقام: ومقارنتها بهذه الاسطر من الكود: وهذا هو الكود: Private Sub cmd_Next_Click() Form_Title_Bar_Height = 405 Form_Navegation_Bar_Height = 405 Call MoveScroll((Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height))) End Sub Private Sub cmd_Pre_Click() Form_Title_Bar_Height = 405 Form_Navegation_Bar_Height = 405 Call MoveScroll(-(Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height))) End Sub Public Sub MoveScroll(Distance As Long) Me.GoToPage 1, , Distance End Sub جعفر 267.move 10 rec up down.mdb.zip

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

جزاك الله خيرا اخى الكريم

السلام عليكم Dim ws As Worksheet Dim sPath As String متغيرين لاول لتحديد الشيت الذي سنعمل عليه الثاني من اجل مسار الملف الخاص بنا وكوده يكون sPath = ThisWorkbook.Path & "\Image\" اما هذا الكود لتعبئة الكمبوبوكس ذات عمودين من شيت الداتا With Me.ComboBox1 .List = ws.Range("A2:B11").Value .ColumnCount = 2 End With هذا الكود لعرض الصورة في الفورم على حسب ما نختاره من كمبوبوكس On Error GoTo ErrHandler: Me.Image1.Picture = LoadPicture(sPath & Me.ComboBox1.Text & ".jpg") Exit Sub ErrHandler: Me.Image1.Picture = LoadPicture(sPath & "AucuneImage.jpg") Resume Next هذا السطر On Error GoTo ErrHandler معناه عندما يكون هناك خطاء ينتقل تنفيذ الكود الى ErrHandler وفائدته هي انه عندما لا تكون هناك صورة في ملف الصور تحمل رقم الموضف الفيوجل يعطي خطاء لذا نتخطاه بالكود السابق لاكن مع تنفيذ اجراء وهو الاجراء المتمثل في الجزء Me.Image1.Picture = LoadPicture(sPath & "AucuneImage.jpg") حيث AucuneImage هو اسم صورة محفوضة مسبقا في ملف الصورة تدل على عدم وجود صورة لذلك الموضف هذا الكود المستعمل لفتح نافذت الملفات لنختار منها الصورة مع شرط اضهار الصور فقط ذات الامتدادات gif jpg jpeg وهي الامتدادات التي تتوافق مع الفيوجل وهو الذي تبحث عنه Dim sFilter As String Dim vaFile As Variant sFilter = "Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp," & _ "Old Files (*Old) ,*.old," & _ "All Files (*.*) ,*.*" vaFile = Application.GetOpenFilename(FileFilter:=sFilter, _ FilterIndex:=1, _ Title:="ÇÎÊÑ ÕæÑÉ", _ MultiSelect:=False) If vaFile <> False Then Me.Image1.Picture = LoadPicture(vaFile) End If الاسطر If vaFile <> False Then Me.Image1.Picture = LoadPicture(vaFile) End If من الكود السابق معناها هو انه عندما المستعمل يختار صورة يتم عرضها في الفورم لحفظ الصورة المحملة على الفورم في المجلد الخاص بالصور برقم الموضف لدينا استخدمنا الكود SavePicture Me.Image1.Picture, sPath & Me.ComboBox1.Text & ".jpg" اما للحذف استخدمنا Me.Image1.Picture = LoadPicture(sPath & "AucuneImage.jpg") في حقيقة الامر لا يتم حذف الصورة بل يتم استبدالها بالصورة التي تكلمنا عنها في الاول التي تعني لا يوجد صورة فلهذا الموضف لاتنسى فك الضغط عن ملف الاكسل و ملف الصور ووضعهما في مكان واحد ليشتغل الكود ولا يعطي خطاء تحياتي للجميع FrmImageTaste.rar

اخى الحبيب ابو ايمان اشكرك على اهتمامك وبارك الله فيك وفي امثالك تقبل تحياتي

استاذى الجليل ومعلمى القدير والله لكم يسعدنى رؤيتكم الطيبه بالاهتمام ومد يد العون للمحتاج دائما جزاكم الله عنا كل الخير فى انتظار ابداعاتكم ان شاء الله

السلام عليكم اخي وصديقي ضاحي الغريب الغائب عن المنتدى الحاضر في قلوبنا لا اجد ان اقول لك اكثر من قول اخي ياسر امين يارب العالمين

أخي وحبيبي ضاحي ..... كلامك كله حكم .. ولا أجد من الكلمات إلا جزاك الله كل خير بارك الله لنا فيكم ونفع بكم الإسلام والمسلمين .. وجمعنا الله في الجنة في الفردوس الأعلى في مستقر رحمته ..إنه ولي ذلك والقادر عليه تقبلوا تحيات تلميذكم أبو البراء

تسلم يا أبو إيمان فكرة جميلة جداً بارك الله فيك ..شكلك بدأت تشتغل شغل عالي .. شكلنا هنطلع ع المعاش قريب .. تقبل تحياتي القلبية

أخي الحبيب // شوقي ربيع اخواني جمعيا....... السلام عليكم ورحمة الله وبركاته أهم دافع في عملنا جمعيا في المنتدي تطوعنا ويحكم العمل التطوعي عدة عوامل تنظيمية . والهدف الاسمي هو أن يكون صدقة وعلم نافع ينتفع به ، كذلك حتى أكون قد أضفت شيئا في مجال العلم الذي اكتسبته من اخواني جمعيا وفرسان المنتدي ، ولا أكون شخصا زائدا بالحياة يأخذ ولا يعطي … وعندي ايمان باننا كعالم عربي سنسترجع مكانتنا بين الدول عندما نصبح امة باحثة تضيف للعلم وليست مجرد متلقية فقط .. وهذا الوضع للبعض بالمنتدي وفي المجتمع أيضا متلقي فقط للمعلومة دون محاولة منه لفهم تلك المعلومة والكثير يلجأ الي الحفظ ويبعد البعد التام عن الفهم والحلول السريعة كمطاعم التيك وي لا تغني ولا تشبع من جوع بالاضافة للمخاطر المصاحبة لها . والبعض الاخر يحاول ويكفيه شرف المحاولة وان فشل وكلنا هنا نتعلم من بعضنا البعض نتعلم من المحترف والمتقن ونتعلم ايضا من السائل لانه بسؤاله يدفعنا للبحث والتطوير للوصول لفكرة سؤاله حتي لا اطيل عليكم دعوة من القلب لجميع اخواني قبل طرح السؤال يستخدم البحث وان فشل في البحث يقوم بطرح السؤال والاجابة كما تفضل اخي / شوقي تكون علي هيئة كود او معادلة داخل الموضوع حتي ندفع السائل بمحاولة التجربة والخطأ . مع تحياتي واحترامي لكم جمعيا

وعليكم السلام ورحمة الله وبركاته إليك أخي الفاضل المرفق التالي قد يفيدك إن شاء الله وهو من أعمال أحمد الإخوة بالمنتدى طباعة بالأسماء.rar

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

البيانات اعلاه تكون في جدول واحد لانها بيانات ثابتة لا تتغير ولا تزيد ولا تنقص متى نحتاج الى الجداول الاخرى ؟ نحتاجها عند وجود بيانات متغيرة مثلا : 1-المرتبات ...... تزيد وتنقص وتتجدد كل شهر 2- الاجازات .... تختلف وتمنح من حين الى آخر 3- الدرجات للطلاب ... وهكذا .....

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

أخى الفاضل وأستاذي الكريم لست اجيد الشرح فقمت بعمل ملف به بعض الأكواد التى أتمنى منك اضافتها للمكتبة وهي كود تحديد القيم 0 وتلوينها كود تلوين الصفوف الفارغة في نطاق محدد كود منع ال Right-Click او ال Double-Click داخل الشيت كود تلوين الخلية بالأحمر عند الضغط عليها Double-Click كود تلوين القيم الفريدة والقيم المكررة داخل نطاق محدد كود تلوين الخلايا الفارغة في نطاق محدد كود تلوين الخلايا التى بها قيم وتجاهل الفارغة كود تلوين الخلايا التى بها أخطاء كود ازالة التنسيق الشرطي السابق من النطاق كود جعل علامة X (الاغلاق ) بالفورم غير نشطة كود تقسيم الاوراق الى ملفات منفصلة حاجات خفيف خفيف كده، وأول الغيث قطرة، وعذرا للتأخير، مرفق الملف زبط بقي على كيفك وضيف ما تريده للمكتبة تحياتي Codes.rar

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

بسم الله الرحمن الرحيم منذ ان حملت المرفق و انا افكر في طريقة لشرح الفرق بينهما و ساحاول ان اشرح عسى ان يستفاد منها اولا : الكود يتم وضع الكود في زر امر او عند تحميل نموذج او اغلاقه و يكون الكود خاصا بمعنى ينفذ عند حدث الضغط على زر الامر ( oopen ) مثلا private sub oopen_click docmd.openform"11" end sub نلاحظ في بداية الكود كلمة ( private ) اي خاص و الكود هنا ينفذ فقط عند الضغط على زر ( oopen ) ثانيا : الوحدات النمطية تحتوي الوحدات النمطية على اكواد او وظائف و على عكس ( الكود ) يمكن استدعاء الوحدة النمطية في اي نموذج وهي لا تتحس بالأحداث مثلا Public Sub openform() DoCmd.openform "ff" End Sub نلاحظ وجود كلمة ( public ) اي عمومي يقوم هذا الكود بفتح النموذج ( ff ) و يتم استدعائه بهذا الشكل Private Sub Command0_Click() Call openform End Sub حيث نضع هذا الكود في اي زر موجود ضمن اي نموذج فائدة : لا يجوز تسمية الوحدة النمطية بنفس اسم احد الكودات الموجود داخلها ( مثلا لا يجوز تسمية الوحدة النمطية السابقة باسم openform بل يجب اعطائها اي اسم آخر ) فائدة : لا يمكن ان تكتب في الوحدة النمطية ( oopen_click ) لان الوحدة النمطية لا تتحسس بالأحداث ثالثا : الوحدة النمطية للفئة الوحدة النمطية للفئة تجمع بين الوحدة النمطية و الكود بمعنى آخر الكود التالي ينفذ عند فتح النموذج private sub form_open Set Anim = New clsFormAnimate end sub و عملية فتح النموذج فعليا هي حدث ولكن لا يمكن ان نكتب الكود السابق ضمن وحدة نمطية حتى لو استعملنا كلمة ( public ) لان الوحدة النمطية لا تتحس بالأحداث ( كما ذكرنا سابقا ) انما تخزن كودا عاما يتم تعريفه باسمه و ضمن اسمه نكتب ما نريد ان ينفذ لكن الوحدة النمطية للفئة يمكن ان تتحس بالأحداث و تتعامل معها مثلا يمكن ان تكتب ضمن الوحدة النمطية للفئة Private Sub mForm_Load() MsgBox "hi", vbInformation End Sub الكود السابق يعطي رسالة ( hi ) عند تحميل نموذج و لكن اي نموذج !!!! الجواب هو اي نموذج نرغب به فقط علينا استدعاء الوحدة النمطية للفئة لتنفيذ هذا الكود فائدة : الوحدة النمطية للفئة تستدعى باسمها على عكس الوحدات النمطية كيف يتم استدعاء الوحدة النمطية للفئة ؟؟ 1 - ننشئ وحدة نمطية للفئة و نسميها ( open1 ) نكتب الكود التالي في قسم التصريحات العامة للوحدة النمطية للفئة Public withevents mform As Access.Form حيث يتم تعريف المتغير ( mform ) كنموذج 2 - نكتب هذا الكود في الوحدة النمطية للفئة Private Sub Class_Initialize() mForm_Load Beep End Sub عند تحميل الوحدة النمطية اذهب الى ( mform_load ) 3 - نضيف هذا الكود الى الوحدة النمطية للفئة Private Sub mForm_Load() MsgBox "hi", vbInformation End Sub عند تحميل ( mform ) اظهر رسالة ( hi ) و طبعا ( mform ) تم تعريفه سابقا كنموذج اكسس 4 - نكتب هذا الكود في قسم التصريحات العامة للنموذج الذي نرغب ان يتم استدعاء الوحدة النمطية للفئة فيه و ليكن مثلا ( 123 ) Dim Anim As open1 تم تعريف متغير ( anim ) كوحدة نمطية للفئة 5 - نكتب هذا الكود في حدث تحميل النموذج ( 123 ) Set Anim = New open1 تم ضبط المتغير ليستدعي الوحدة النمطية للفئة فائدة : لايمكن كتابة الكود التالي لاستدعاء الوحدة النمطية للفئة Private Sub Form_Load() Call open1 End Sub الكود المكتوب ضمن الوحدة النمطية للفئة السابقة يقوم باصدار صوت تنبيه و يظهر رسالة مكتوب فيها ( hi ) الكثير يسأل هل يجب ان اكتب كل هذه الجريدة من اجل صوت تنبيه و رسالة ترحيب الجواب هو لا ولكن يتم انشاء الوحدات النمطية للفئة من اجل عدد نماذج اكبر و عمليات كودات اكبر و في النهاية ربما يستطيع المرفق ان يشرح افضل مني وارجو ممن يستطيع ان يشرح افضل مني ان يسهم في شرح الموضوع و اعتذر على الإطالة مثال عن انشاء الوحدات النمطية و الوحدات النمطية للفئة.rar

بارك الله لك أخي محمد يحياوي وأثناء بحثي على الإنترنت كنت قد وجدت هذا الملف بخصوص التحكم في النموذج وبه الكثير من الدوال: منها عرض وإخفاء أزرار الغلق والتكبير والتصغير وشفافية النموذج وإمكانية تحجيمه و ..... و ..... و ...... أترككم مع المرفق الذي يجعل نماذجكم قمة في الروعة UserFormControl.rar