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

السّلام عليكم و رحمة الله و بركاته أحبّتي الأكارم .. هذه إحدى الطّرق لاستعراض البيانات القاعديّة على اليوزرفورم .. العملية ليست جديدة و إنّما أردت فقط أنْ يكون تفكيري على منتديات " أوفيسنا " .. ونتقاسم الأفكار مع الأحبّة الكيفية مشروحة بالكود داخل الملف أدناه .. فائق إحتراماتي استعراض البيانات.rar

الاخوة الكرام واساتذتى فى هذا الصرح العلمى أستكمالا لهذا الموضوع على الرابط التالى أقدم لكم اليوم مؤثر حركى جديد لفتح الفورم على طريقة أفتح الشباك الباسورد لفتح الفورم هو 111 أرجو ان ينال أعجابكم تقبلوا جميعا تحياتى مؤثرات الفورم من خلال فتح الشباك - الصقر.zip

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

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

السلام عليكم أقد م لكم مكتبة أكواد الاكسيس حصاد 9 سنوات نسأل الله القبولVBALibrary.rar

السلام عليكم ورحمة الله تعالى وبركاته الحقيقة بدون ان اطيل عليكم كنت اريد تحزيم قاعدة بيانات لدى وتحويلها الى ملف تنفيذى ولكن لم يعجبنى الشكل المعتاد لتثبيت اى برنامج فاردت ان يكون برنامجى مميزا ففكرت مليها فى تصميم قاعدة بيانات تقوم بتثبيت نفسها داخل الويندوز فاعاننى الله على تصميمها دون الحاجة الى تحزيمها القاعدة الت صممتها بمجرد الفتح تبدا تلقائيا فى عمل تثبيت لها داخل الويندوز كا التالى اللوجو الخاص بى ويمكنك تغييره حسب ذوقك هذا اللوجو به شى مهم جدا وهى وحدة نمطية لتغيير لون البروجرس بار وهذا ايضا اردته ان يكون مختلفا عن الاخرين ناتى بعد ذلك الى نموذج التعريف الخاص بالبرنامج ويمكنك كتابة تعريف بسيط بالبرنامج وذلك لتعريف المستخدم ببرنامجك . لقد تركته فارغا ثم بعد ذلك نموذج الشروط والاتفاقيات الخاصة بك ويجب ان يوافق عليها المستخدم لمتابعت التثبيت . ولقد تركتها فارغه ثم بعد ذلك نموذج اكود التفعيل وذلك للتاكد من المالك او المشترى وبه كود بسيط فقط عند كتابة اربع حروف فى كل مربع نص يقوم بالانتقال الى المربع التالى تلقائيا كود التفعيل هو 1111222233334444 والان مع نموذج مكان التثبيت وبه اكواد مهمه جدا اتمنى ان تستفيدو منها اولا كود مكان تثبيت الويندوز وكود التغيير واختيار مكان اخر غير مكان الويندوز واجهتنى مشاكل كثيرا فى مسالة الصلاحيات الخاصة بالويندوز فاضررت الى انشاء مكان اخر غير Program file اسميته Program RK قد يسال سائل ولماذا RK اجيبه قائلا ملكش دعوه دا كلمة سر ههههههههه هذا هو الفولدر الخاص ببرنامجى وهذه الصورة بعد التنصيب والان مع نموذج التنصيب والشرح بداخله وبيمكنك الوصول اللى برنامجك بسهولة من سطح المكتب او قائمة ابدا وذلك لان البرنامج يقوم بعمل شورتكت لهم تلقائيا على سطح المكتب وقائمة استارت صورة من سطح المكتب وبعد التثبيت يقوم البرنامج بمسح كافة النماذج والجداول المؤقتة كنت قد انشائتها لتساعدنى فقط فى التنصيب ستجد برنامجك بعد التثبيت خالى من نماذج التثبيت هذه اما البرنامج الذى قمت بالتثبيت من خلاله فسيظل كما هو وذلك اذا احتجت الى التثبيت من جديد اتمنى ان ينال اعجابكم نظرا لنفاذ حجم رفع المرفقات سارفعه فى المشاركة التالية ان شاء الله والان مع البرنامج اتمنى ان ينال على اعجابكم . Elsayed Pro.rar

اكتب هذه المعادلة =YEAR(TODAY())

السلام عليكم اذا كانت كل القيم بنفس الصيغة يمكن استعمال الطريقة التالية TextBox1 = Left(TextBox1, 2) & "." & Mid(TextBox1, 2, 6) & "," & Mid(TextBox1, 6, 2) & "." & Right(TextBox1, 6)

الاخوة الكرام واساتذتى فى هذا الصرح العلمى أستكمالا لهذا الموضوع على الرابط التالى أقدم لكم اليوم مؤثر حركى جديد لفتح الفورم على طريقة أفتح الباب يا سمسم بس ياريت ياأبوالبراء لو فتحت الباب وكان فى حد بالحمام تقفل الباب تانى تستنا لحد ما يرجع طنطا أرجو ان ينال أعجابكم تقبلوا جميعا تحياتى مؤثرات فتح الفورم على طريقة فتح الباب.zip

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

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

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

أخي الكريم وائل جرب الملف المرفق Sub Search_Using_Arrays() Dim Arr, Temp, I As Long, Counter As Long Dim strWord As String strWord = InputBox("أدخل كلمة البحث") If strWord = "" Then Exit Sub Application.ScreenUpdating = False With Sheet1 Arr = .Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To 1) For I = 1 To UBound(Arr, 1) If InStr(Arr(I, 1), strWord) > 0 Then Temp(I, 1) = strWord Counter = Counter + 1 End If Next I .Range("A2").Resize(UBound(Temp, 1), UBound(Temp, 2)).Value = Temp If Counter >= 1 Then .Range("A1:B1").AutoFilter With .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row) .AutoFilter Field:=1, Criteria1:="<>" .Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheet2.Range("A" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1) .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete End With .Range("A1:B1").AutoFilter End If End With Application.ScreenUpdating = True End Sub تقبل تحياتي Search For Specific Text Using Arrays YasserKhalil V2.rar

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

كتبت هذا الموضوع لأن أكثر من شخص قد قام بالسؤال حوله وقد تفضل أكثر من أخ بالإجابة عليه وتتلخص الإجابة فى التالى فقط قم بتنسيق الشهادة أو الرسالة التى تريد إرسالها وإضافة حقول الدمج لها وقم بتكرارها فى الصفحة بعدد المرات التى تريد وبين كل رسالة أو شهادة فقط تفضل بإضافة السطر التالى «Next Record» وفى نهاية الصفحة كذلك «Next Record» ثم بعد ذلك إضغط إنهاء ودمج ستجد فى المستند الناتج قد تكررت الشهادة أو الرسالة فى الصفحة الواحدة مع اختلاف المرسل إليه أو اسم صاحب الشهادة إذا استفدت فلا تنسنا من الدعاء لى ولأبى ولأمى ولأمة محمد أجميعن بالرحمة والمغفرة ملحوظة أرفقت مثال لأحد الاخوة كان يسأل عن كيفية عمل مثل هذه الشهادة وتكرار ها وقد قمت بالتعديل عليه سبحان الله.rar

شكرا لك اخي عبدالسلام ولكل الاخوة اللذين شاركو معنا ... نعم بعد تغير التنسيق الى عام انحلت المشكلة

غير تنسيق الخلايا الي عام او رقم

النتيجة كانت 07/08/1905 والمطلوب ان تكون السنة الحالية فقط 2016

المتاخرين عن الدفع.rar

هذه الدالة تستخدم في الاكسس وفي VBA .. اما في الاكسل فهي

و عليكم السلام و رحمة الله و بركاته ... اخي صالح ... ربي يبارك بك و يرزقك من حيث لا تحتسب ...

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

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

حبيبى يا ابوالبراء بلاش تواضع وما العبد الا قطره فى بحر علمكم اللى مغرقنا بفيضانه هههههههههههه الاروع هو مرورك يا غالى كويس انه اشتغل معاك مش زى المرفق السابق لم يعمل تقبل تحياتى

أخي الحبيب الغالي حسام عيسى صقر المنتدى ايه ده ..!! ايه ده ..!! ايه اللي أنا شايفه ده إنت بتعمل الحركات دي إزاي .. ما تعلمنا يا صياد !! بجد بجد تحفة ..عمل رائع ومميز بارك الله فيك وجزاك الله كل خير

هل يكفي التنسيق الشرطي ؟ =AND(SUMPRODUCT(--(D3:L3="");--((O3:W3)<TODAY()))<>0;C3<>"")

بسم الله الرحمن الرحيم اقدم لكم اليوم برنامج مصمم بلغة الفيجوال دوت نت البرنامج عبارة عن تركيب برواز وصورة شخصية مثلا تقوم باختيار البرواز المناسب او خلفية شفافة كما تحب المهم انت تكون بامتداد png اما الصورة الشخصية فصورة jpg تفى بالغرض ويتم تركيبهم وحفظهم بالامتداد المناسب كما موضح بالصور البرنامج مرفق معه الامثلة وبعض البوردرات للتجربة كما يمكن البحث عن بوردارت واضافتها عادي هذه الصورة الاصلية قبل تركيب البوردرات لها وهذه صور بعد تركيب البوردر لها وهذه صورة مع خلفية شفافةpng لتحميل البرنامج اضغط هنا اما الكود Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'هنا يتم حفظ الصورة بنفس الشكل داخل البكتشر بوكس وحفظها بامتداد جي بي جاي وباسم ياسر 'وادخلنا عليها الدالة رند لاضافة ارقام عشوائية بجانب الاسم حتى لا يتكرر اسم الحفظ Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Me.PictureBox1.DrawToBitmap(bmp, Me.PictureBox1.ClientRectangle) bmp.Save(Application.StartupPath & "\Yasser_Elaraby" & Rnd(11111111) & ".jpg", Imaging.ImageFormat.Jpeg) MsgBox("تم الحفظ بصغة JPG") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'هنا يتم اختيار الصورة للاداة البكتشر بوكس وهي صورة الباك جروند ليتم وضعها خلف البوردر او الخلفية الشفافة Dim ofd As New OpenFileDialog ofd.Filter = "JPEG|*.jpg|Bitmap|*.bmp" If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub Try Dim bmp As New Bitmap(ofd.FileName) If Not IsNothing(PictureBox1.BackgroundImage) Then PictureBox1.BackgroundImage.Dispose() PictureBox1.BackgroundImage = bmp Catch MsgBox("Not a valid image file.") End Try End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'هنا يتم حفظ الصورة بنفس الشكل داخل البكتشر بوكس وحفظها بامتداد بي ان جي وباسم ياسر 'وادخلنا عليها الدالة رند لاضافة ارقام عشوائية بجانب الاسم حتى لا يتكرر اسم الحفظ Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Me.PictureBox1.DrawToBitmap(bmp, Me.PictureBox1.ClientRectangle) bmp.Save(Application.StartupPath & "\Yasser_Elaraby" & Rnd(11111111) & ".png", Imaging.ImageFormat.Png) MsgBox("تم الحفظ بصيغة PNG") End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'هنا يتم اختيار الصورة للاداة البكتشر بوكس وهي صورة البوردر او صورة شفافة Dim ofd As New OpenFileDialog ofd.Filter = "png|*.png|gif|*.gif" If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub Try Dim bmp As New Bitmap(ofd.FileName) If Not IsNothing(PictureBox1.Image) Then PictureBox1.Image.Dispose() PictureBox1.Image = bmp Catch MsgBox("Not a valid image file.") End Try End Sub Private Sub اخترالصورةالاصليةToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles اخترالصورةالاصليةToolStripMenuItem.Click 'هذه عناصر القائمة الموجودة بالبرنامج وكلها اختصار لعمل الاكواد يعني هنا نقول له عند اختيار هذا العنصر يتم تنفيذ ما بالزر بوتن2 Button2.PerformClick() End Sub Private Sub اخترالبروازToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles اخترالبروازToolStripMenuItem.Click Button4.PerformClick() End Sub Private Sub حفظبامتدادJPGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حفظبامتدادJPGToolStripMenuItem.Click Button1.PerformClick() End Sub Private Sub حفظبامتدادPNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حفظبامتدادPNGToolStripMenuItem.Click Button3.PerformClick() End Sub Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click End End Sub Private Sub حذفالبراوزToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حذفالبراوزToolStripMenuItem.Click PictureBox1.Image = Nothing End Sub Private Sub حذفالصورةالاصليةToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حذفالصورةالاصليةToolStripMenuItem.Click PictureBox1.BackgroundImage = Nothing End Sub Private Sub عنالمبرمجToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles عنالمبرمجToolStripMenuItem.Click MsgBox("تصميم واعداد / ياسر العربي" & vbCrLf & vbCrLf & " تليفون محمول رقم / 01097192367" & vbCrLf & vbCrLf & "Email: Yasserelaraby86@gmail.com", MsgBoxStyle.Information) End Sub Private Sub عنالبرنامجToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles عنالبرنامجToolStripMenuItem.Click MsgBox("برنامج تركيب الصور يقوم بتركيب صورة شخصية مثلا على برواز او على خلفية اخرى شفافة بامتدادPNG") End Sub End Class السورس كود مرفق تحميل االسورس كود رابط الردود الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت يتبع تحياتي ياسر العربي

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

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

السّلام عليكم و رحمة الله و بركاته أخي عبد العزيز البسكري عمل رائع جزاك الله خير الجزاء

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

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

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

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

بارك الله فيك أخي الغالي ياسر العربي تسلم الأيادي يا كبير .. جزاك الله كل خير

اقترح الحل فى الاكواد بمعنى الصنف ص وعبوته 1/4 لتر يساوى ص1/4 يعطي السعر المدخل

السلام عليكم ورحمة الله نضع لكم اليوم طريقة تحويل الدالة Vlookup الى كود مثالين احدهم عند الضغط على زر يتم جلب البيانات والاخر عند كتابة الكود يأتي بالنتيجة مباشرة المثال الاول الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim myrg1 As Range If Target.Column = 10 Then Set myrg1 = Sheet2.Range("b5:e30") On Error Resume Next Application.ScreenUpdating = False sheet1.Range("k" & Target.Row & ":" & "m" & Target.Row).ClearContents sheet1.Cells(Target.Row, "k") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 2, 0) sheet1.Cells(Target.Row, "l") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 3, 0) sheet1.Cells(Target.Row, "m") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 4, 0) Application.ScreenUpdating = True End If End Sub للتحميل اضغط هنا المثال الثاني الكود Sub Yasser() Dim myrg1 As Range Dim i As Long Set myrg1 = sheet1.Range("b5:e30") For i = 6 To 30 Application.ScreenUpdating = False On Error Resume Next sheet1.Cells(i, "k") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 2, 0) sheet1.Cells(i, "l") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 3, 0) sheet1.Cells(i, "m") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 4, 0) Next i Application.ScreenUpdating = True End Sub للتحميل اضغط هنا تقبلو تحياتي

جرب الكود التالي Sub Add_Rows() Dim I As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With ActiveSheet I = ActiveSheet.UsedRange.Rows.Count For I = .Cells.SpecialCells(xlLastCell).Row To 6 Step -1 If Len(Trim(Cells(I, 2))) <> 0 Then Rows(I).Insert Next I Rows(.Cells.SpecialCells(xlLastCell).Row).Copy Rows(.Cells.SpecialCells(xlLastCell).Row + 1).PasteSpecial Paste:=xlPasteFormats End With Application.CutCopyMode = False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Sub Delete_Rows() Dim I As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual I = ActiveSheet.UsedRange.Rows.Count For I = Cells.SpecialCells(xlLastCell).Row To 6 Step -1 If Len(Trim(Cells(I, 2))) = 0 Then Rows(I).Delete Next I Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub تقبل تحياتي

في اي نموذج بحث تقصد ...

السلام عليكم sandanet عزيزى جزاك الله خير على المرفق ولكن بعد ما انفذ الأمر و الأسكنر يسحب الورقة ... فين بتروح ؟؟؟؟؟ الصوره لا تظهر و لا يوجد حقل لادراج الصورة فيها و شكرا

http://www.ahlalhdeeth.com/vb/showthread.php?t=156661 http://www.ajurry.com/vb/showthread.php?t=816 http://www.mktaba.org/vb/showthread.php?t=12277 http://www.mazameer.com/vb/showthread.php?t=158731 انظر ستجد الحل لمشكلتك باذن الله في الروابط السابقة والسلام عليكم

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

الخطأ يوجد مسافة فارغة في اول الجملة بين علامتي التنصيص " behavior entering field"

و عليكم السلام و رحمة الله و بركاته ... اخي انت وضعت الحقل في الاستعلام ,,, لكن لم تضعه في مصدر النموذج ...

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

و عليكم السلام ورحمة الله و بركاته ... تستطيع عمل حقل في الاستعلام ... فمثلا الحقل الذي تريده اسمه " aadd " تعمل حقل جديد كما يلي aadd2: iif(isnull[aadd];"لا يوجد";[aadd])

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم اليوم موضوع خفيف دمه ظريف ، ومفيد جداً جداً إلى أبعد مما تتصور ...الموضوع يتمركز حول استخدام كلمة NOT والتي تعكس القيمة أي إذا كانت القيمة True فإنها تصبح False ، وإذا كانت القيمة False تصبح القيمة True ... وإليكم أمثلة تطبيقية لتأكيد المعلومة وكيفية الاستفادة منها المثال الأول : Sub ToggleFormulaBar() Application.DisplayFormulaBar = Not Application.DisplayFormulaBar End Sub نجد نفس السطر اللي على اليسار هو هو كما على اليمين ، فقط أضفنا كلمة NOT والتي تعكس القيمة فإذا كان شريط المعادلات مخفي أصبح ظاهراً ، وإذا كان شريط المعادلات ظاهراً أصبح مخفياً .. سأدرج بقية الأمثلة مع ذكر الفائدة من كل كود ، والفكرة نفسها في كل الأمثلة ------------------------------------------------------------------------------------------ المثال الثاني : Sub ToggleShowZeros() ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros End Sub الكود لإظهار القيم الصفرية وإخفائها المثال الثالث : Sub ToggleGridlines() ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub الكود لإظهار خطوط الشبكة وإخفائها المثال الرابع : Sub ToggleDisplayHeadings() ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings End Sub الكود لإظهار عناوين الصفوف والأعمدة المثال الخامس : Sub ToggleScrollBars() ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar End Sub الكود لإظهار أشرطة التمرير الأفقية والرأسية وإخفائها المثال السادس : Sub ToggleWorkbookTabs() ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub الكود لإظهار تبويبات المصنف أي أسماء أوراق العمل المبوبة وإخفائها المثال السابع : Sub ToggleStatusBar() Application.DisplayStatusBar = Not Application.DisplayStatusBar End Sub الكود لإظهار شريط الحالة وإخفائه المثال الثامن : Sub ToggleShowFormulas() ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas End Sub الكود لإظهار المعادلات في ورقة العمل وإخفائها (التعامل هنا ليس مع شريط المعادلات) المثال التاسع : Sub ToggleShowColumns() Columns("I:J").Hidden = Not Columns("I:J").Hidden End Sub الكود يقوم بإظهار الأعمدة I و J وبالطبع إخفائها أرجو أن يكون الموضوع نال إعجابكم ... وهذه صورة من الملف المرفق حمل الملف من هنا وأخيراً تقبلوا وافر تقديري واحترامي

السلام عليكم بارك الله فيك اخي yahiaoui و لكل المشاركين جميعا و هذا كود يمنع كتابة الارقام في تكست بوكس و اخر يمنع كتابة الحروف في تكست بوكس اخر تحياتي قبول التكست بوكس لارقام فقط او لحروف فقط.rar

كود رسالة تحذير عند فتح الملف رسالة تحذير.rar

ب إذن الأستاذ يوسف عطا الكود يوضع فى أصل ورقة thisworbook والدخول من خلال فيجول بيسك Book1.rar