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

.

وعليكم السلام اولا ، يجب ان نأخذ القيمة المختارة من الحقل مباشرة بعد اختيارها ، وقبل الذهاب الى اي كائن آخر ، ويمكننا عمل هذا بعد رفع الفأرة من الحقل الذي تم اختيار النص فيه ، اسم الحقل الذي فيه الجزء المختار من النص هو fName ، ونريد نسخه الى الحقل Copied ، هناك طريقتين: 1. نسخ مباشر الى الحقل التالي ، 2. نسخ الى حافظة الوندوز ، والصاقها في اي مكان آخر Option Compare Database Public Selected_Text Private Sub fName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next '1 Selected_Text = Me.fName.SelText '2 ' DoCmd.RunCommand acCmdCopy End Sub Private Sub cmd_Copy_Click() '1 Me.Copied = Selected_Text '2 ' Me.Copied.SetFocus ' DoCmd.RunCommand acCmdPaste End Sub . جعفر 530.Copy_Selecter_Partial.mdb.zip

. هذا الرابط لجميع الاصدارات ، ولكن فكرة العمل هي كما شرحها الاستاذ صالح ، بتغيير بسيط: . جعفر

الفيديو التاسع مطلب جماهيري مشهور جدا كيف لما أحدد اسم فى نموذج أفتح نموذج آخر للتفاصيل على نفس الاسم باختصار كيف تفتح نموذجا على سجل محدد من أهم المهارات المطلوبة فى أكسيس اخترنا طريقتين لعمل ذلك بعيدا عن التعقيدات و التحابيش شاهدوا الفيديو https://www.youtube.com/watch?v=4OXU6UFzk8k

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

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

السلام عليكم الطريقة المثالية ةخصوصا انك تقول ان اكثر من مستخدم سيعمل عليها 1- يتم تقسيم القاعدة الى قسمين (القسم الاول ــ النماذج والتقارير والماكرو والوحدات النمطية) .. (القسم ثانيا ــ الجداول) 2- يتم توزيع البرنامج ( القسم الاول النماذج والتقارير .. الخ) على اجهزة جميع المستخدمين الذين سيعملون عليه. 3- يتم عمل فولدر شير او السيرفر وتقوم بوضع (القسم الثانى الجداول) على السيرفر 4- تذهب لكل مستخدم وتقوم بربط النسخ التى لديه بنسخة الجداول 5- يمكنك تقسيم العمل بين المستخدمين عن طريق الصلاحيات تحياتى

هذا هو المطلوب جزاك الله خير أستاذ جعفر شكرا جزيلا أستاذ تشيفان لقد قام الاستاذ جعفر بالمطلوب جزاك الله خيرا

الغرض الرئيسى من برنامج Excel هو أداء العمليات الحسابية , لذا فهم أساسيات كتابة المعادلات فى برنامج Excel يعتبر أهم موضوع يجب تعلمه جيدا فى برنامج Excel الرابط التالى يحتوى على شرح رائع للمعادلات : معادلات برنامج Excel

جرب هذا الملف المعادلة حسب الصف حاول تحويلها حسب العامود كي تكتسب خبرة MAX_ADDRESS.rar

اتفضل كما تريد سويت استعلام باسم Q1 وغيرت مصدر البيانات التقرير بين تاريخين الى الاستعلام الاعلى بين تاريخين.rar

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات تقبل وافر تقديري واحترامي

سامحني على التدخل في الموضوع اخي الكريم فرضنا عندك مربعين نصي واحد باسم text1 و تكتب فيه مثلا اي شي تريد مپلا اسمي shivan وتريد بيكون مربع الاخر text2 بيأخذ اربع حروف الاولى لاسمي shiv راح تكتب هذا الكود في زر امر خاص بك لتنفيذ العملية او لتيكست 1 بعد تحديث Dim x x = Left(Me.nav, 4) text2 = x او اذا كان حقل تاريخي تكدر تكتب هذا الكود Me.Text2 = Format(Me.Text1, "yyyy") او تكتب في مصدر البيانات التيكست 2 هذا الكود =Format([Text1];"yyyy") هل هذا هو المطلوب ؟ وافينا بالنتيجة

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

حياك الله لأنني معلم فقد فهمت الموضوع , وأرجو أن ينال إعجابك في انتظار ملاحظاتك تفضل طيب الفال1.rar

وعليكم السلام قم بالإطلاع على الملف بالرابط التالي الرابط من هنا

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

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

اخي الكريم استخدم المعادلة التالية للوظيفة =IFERROR(VLOOKUP(D2,$A$2:$B$18,2,0),"") وهذه للاقامة =IFERROR(VLOOKUP(D2,$A$2:$C$18,3,0),"") تقبل تحياتي

وعليكم السلام قم بإدراج موديول جديد وضع الدالة المعرفة التالية فيه Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String With CreateObject("VBScript.RegExp") .Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?") .Global = True AlphaNum = .Replace(txt, "") End With End Function ثم في حدث الفورم ضع الكود التالي Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox3.Value = AlphaNum(TextBox1.Value, 0) TextBox2.Value = AlphaNum(TextBox1.Value, 1) End Sub

هل من الممكن ان ترفق الملف وتوضح اكثر ماتريد او اكتب كودك هنا لتعديل عليه

اتفضل استاذي ابو الخليل الحبيب اصدار 2003 مع تحياتي DLookAll.rar

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

حياك الله اخي الكريم اجعل التقرير يفتح بوضع منبثق .. بالتوفيق

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

وعليكم السلام ابش رايك في Enhanced Msgbox (هو اصلا نموذج ، ولكن معمول خصيصا لعمل Msgbox ) ، وجاهز للتحميل المجاني هذه بعض الاشكال والالوان التي تستطيع ان تعملها ، وطبعا اللغة كذلك . وفي نسخته العاشرة هذا رابط الموقع ، وجميل النظر الى ملاحظات القرّاء: http://blog.nkadesign.com/2008/ms-access-enhanced-message-box-replacement/ ولتحميل البرنامج: http://blog.nkadesign.com/wp-content/uploads/2008/05/EnhancedMsgBoxv1.10.zip جعفر

أخى ياسر بجد والله أنا اقف مبهورا أمام ابداعاتك لأتعلم منها وفعلا فكرة جميلة فكرة النقاش لتبادل الخبرات وبالنسبة للكود ما رأيك فى هذا الاختصار Sub ragab() Set Sh = ورقة3 x = [g13] T = Application.Match(x, Sh.Columns("G:G"), 0) If Not IsNumeric(T) Then T = Sh.[G1000].End(xlUp).Row + 1 Sh.Range("B" & T).Resize(1, 10).Value = Range("B13").Resize(1, 10).Value End Sub

الروابط التي وضعتها لك في المشاركة رقم 5 تشرح الطريقة وعلى كل حال : افتح التقرير على التصميم ثم انقر بزر الفأرة الأيمن على المربع StNo واختر : تنسيق شرطي ستتضح لك المسألة امام عينيك

انظر في هذه الروابط ففيها ما تبحث عنه http://www.officena.net/ib/index.php?showtopic=41609#entry236097 http://www.officena.net/ib/index.php?showtopic=38006#entry205723 http://www.officena.net/ib/index.php?showtopic=25574#entry121193

قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة السلام عليكم الاساتذة الافاضل اخواني الاعزاء اقدم لكم هذا الملف به قوائم مصممه باستخدام الفورم بطريقة بسيطة وسهله وبها بعض الاوامر علي سبيل المثال ويمكنكم تغييرها بالطبع لتتناسب مع طبيعة وتصميم برنامجكم ... ومن الجدير بالذكر ان الاستاذ الغائب الحاضر / الحسامي ... له ملف رااائع بهذا الموضوع وقوائم ولا اروع ولا احلي من كده وهو اول من قام بهذه الفكرة ( الحقوق محفوظة ) وطبعا هذا الملف بجواره لا شئ ... ولكنني استخدمت اسهل وابسط الطرق الممكنه لعمل ذلك وكنت قد صممتها لاستخدامها في برنامج لدي واحببت ان اطلعكم عليها واطلع علي رأيكم فيها واوجة القصور الموجودة فيها وتجربتها علي اكثر من جهاز قبل العمل النهائي عليها حيث لدي مقاس الشاشة 19" مستطيل Resolution 1366 x 768 نسخة اوفيس 7 اوفيس 2003 ، اوفيس 2007 ارجو ان تنال رضاكم جزاكم الله خيرا قوائم جديدة لاي برنامج تصممه بنفسك.rar

السلام عليكم و رحمة الله و بركاته لا احد يصدق ان الاكسس يمكن أن ينافس الاوراكل و السيكوال سيرفر الان يستطيع الاكسس ان ينافس الاوراكل و السيكول سيرفر للشركات الصغيرة و المتوسطة و المحلات التجارية متعددة الانشطة اولا : حجم قاعدة البيانات حيث امكن ابتكار اسلوب برمجى سلس و سهل يعتمد اسلوب السنوات المالية حيث أنه فى نهاية كل سنة مالية يتم اقفال السنة المالية و استخراج التقارير الختامية للشركة و يتم فتح سنة مالية جديدة تبدأ بارصدة حسابات السنة المالية الماضية ( الميزانية العمومية ) و بالتالى سيكون لدينا سنتين ماليتين مثلا 2014 القديمة و 2015 الجديدة و يمكن الرجوع لاى سنة مالية عن طريق اعادة الربط من خلال شاشة بسيطة و بذلك تم الاستغناء عن الحجم الكبير لقاعدة البيانات ثانيا : امان قاعدة البيانات حيث امكن عمل نسخة الية من قاعدة البيانات عند اغلاق البرنامج و كذلك اثناء تشغيل البرنامج و امكانية استرداد اخر نسخة احتياطية فى حالة خلل فى قاعدة البيانات من خلال شاشة بسيطة و امكانية اخذ نسخة احتياطية من قاعدة البيانات على فلاشة لزيادة الامان لقاعدة البيانات ثالثا : سهولة الصيانة و الدعم الفنى للبرنامج و بتكلفة ضئيلة جدا لتوفر الاوفيس مع كل جهاز كمبيوتر رابعا : التكلفة المتواضعة جدا خامسا : الامكانيات المبتكرة فى تصميم الشاشات و التقارير السهلة الاستخدام و الفعالة محاسبيا و اداريا كل ذلك و اكثر يمكن اكتشافه على الرابط http://mohasebmoslem.com/business1.html مع خالص تحياتى

اخى طائع السلام عليكم ورحمه الله وبركاته هل تقصد هكذا الجودة.rar

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