اأبو مصطفى قام بنشر نوفمبر 11, 2013 مشاركة قام بنشر نوفمبر 11, 2013 الاخوة الكرام السلام عليكم ورحمة الله : لدي مشكلة وارجو المساعدة .. من خلال سؤالي عن اكواد لبعض العمليات في اكسس 2010 وبالاعتماد على النسخ واللصق كنت استفيد واحقق المطلوب لكن مشكلتي اني لم استطع فهم طريقة كتابة الكود بالرغم من محاولتي دراستها .. بالمختصر احتاج الى من يرشدني الى كتاب يشرح طريقة كتابة الكود في فيجوال بيسك وجزيتم خيرا اخي العزيز لاتتعب نفسك انا بحثت في الانترنيت كثيرا ودائما يعطونني كتاب vba lessons تحت مسميات عديدة ولكنه كتاب شرحه ناقص اي لايوصلك الى الاحتراف انه يرشدك الى الفكرة ولايستزيد في الفكرة لحين وصولك الى الاحتراف لاتتعب نفسك بالبحث فلا يوجد مرجع شامل عربي لذلك رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر نوفمبر 19, 2013 الكاتب مشاركة قام بنشر نوفمبر 19, 2013 الاخوة الكرام السلام عليكم ورحمة الله : لدي مشكلة وارجو المساعدة .. من خلال سؤالي عن اكواد لبعض العمليات في اكسس 2010 وبالاعتماد على النسخ واللصق كنت استفيد واحقق المطلوب لكن مشكلتي اني لم استطع فهم طريقة كتابة الكود بالرغم من محاولتي دراستها .. بالمختصر احتاج الى من يرشدني الى كتاب يشرح طريقة كتابة الكود في فيجوال بيسك وجزيتم خيرا اخي العزيز لاتتعب نفسك انا بحثت في الانترنيت كثيرا ودائما يعطونني كتاب vba lessons تحت مسميات عديدة ولكنه كتاب شرحه ناقص اي لايوصلك الى الاحتراف انه يرشدك الى الفكرة ولايستزيد في الفكرة لحين وصولك الى الاحتراف لاتتعب نفسك بالبحث فلا يوجد مرجع شامل عربي لذلك أحبتي في الله لست أكاديميا لاجيب عن هذا السؤال تعلمت كتابه الكود (صدقا بالحوار معه) اطرح له حاجتي و احولها لما اعرف والتجربة خير برهان كنت اتمنى من فترة ان اجيب على هذا السؤال بما ينتفع به ، ولكنني لم افلح قد اكون ممن تعلم بطريقة غريبة ، ولكن المسألة ليس لها ( كتالوج) او دليل مستخدم او وصفة سحرية فهي معلومات متراكمة و تعلم مترابط مستمر هو علم ( متفلت ) اذا ابتعدت عنه قليلا هجرك ، وان استمر بك الوصل اقترب منك وزادك قربا ويسرا أعذروني على الانشاء في القول ولكنه جلّ الردّ لدّي و دمتم .................. 1 1 رابط هذا التعليق شارك More sharing options...
ameerdeeb قام بنشر ديسمبر 18, 2013 مشاركة قام بنشر ديسمبر 18, 2013 مشكووووووووووووووووووور رابط هذا التعليق شارك More sharing options...
mm11 قام بنشر ديسمبر 30, 2013 مشاركة قام بنشر ديسمبر 30, 2013 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يناير 11, 2014 الكاتب مشاركة قام بنشر يناير 11, 2014 في النموذج حقل لا نريد للمستخدم ان يتجاوزه فارغا يتم التنبيه بصريا ... باستخدام اللون في حدث عند الحالي او عند الخروج .... If IsNull(ContactTitle) = True Then ContactTitle.BackColor = vbRed Else ContactTitle.BackColor = vbWhite End If 1 رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يناير 11, 2014 الكاتب مشاركة قام بنشر يناير 11, 2014 نحدد قيمة حقل بالاعتماد على قيمة حقل آخر تلقائيا .... Private Sub Textbox1_AfterUpdate() If Textbox1.Value = "1" Then Textbox2.Value = "10" End If End Sub 2 رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يناير 11, 2014 الكاتب مشاركة قام بنشر يناير 11, 2014 قائمة بمفاتيح لوحة المفاتيح واختصاراتها ، وهي مفيدة جدا خلال استخدالم القاعدة F1 اظهار ملفات المساعدة F11 عرض اطار قاعدة البيانات F12 فتح مربع الحوار حفظ باسم CTRL+N فتح قاعدة بيانات جديدة. CTRL+O فتح قاعدة بيانات موجودة. CTRL+P طباعة الكائن الحالي أو المحدد. CTRL+S حفظ كائن قاعدة البيانات الحالية. CTRL+W إغلاق الإطار النشط. ALT+SPACEBAR عرض قائمة التحكم. ALT+F11 تبديل بين محرر Visual Basic و نافذة قاعدة بيانات Access SHIFT+F10 عرض القائمة المختصرة (مثل:القائمة المنبثقة). رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يناير 11, 2014 الكاتب مشاركة قام بنشر يناير 11, 2014 كما ننشيئ الجداول عبر الكودات يمكن ان نلغيها ... خاصة ان كانت مؤقتة و انتهت الحاجة اليها Private Sub cmdDeleteTable_Click() Dim curDatabase As DAO.Database Set curDatabase = CurrentDb curDatabase.TableDefs.Delete "Books" End Sub رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يناير 11, 2014 الكاتب مشاركة قام بنشر يناير 11, 2014 يمكننا ان نحذف سجلا محددا بشرط قيمة السجل ( عدد او قيمة او تاريخ او .. ) في عامود معين .... Private Sub cmdDeleteRecord_Click() On Error GoTo cmdDeleteRecord_Error Dim curDatabase As DAO.Database Dim rstEmployees As DAO.Recordset Dim fldEmployee As DAO.Field Set curDatabase = CurrentDb Set rstEmployees = curDatabase.OpenRecordset("Employees") With rstEmployees Do Until .EOF For Each fldEmployee In .Fields If fldEmployee.Name = "LastName" Then If fldEmployee.Value = "Angoula" Then ' The record to be deleted has been found .Delete Exit For End If End If Next .MoveNext Loop End With Exit Sub cmdDeleteRecord_Error: MsgBox "There was a problem when deleting the record." End Sub رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يناير 11, 2014 الكاتب مشاركة قام بنشر يناير 11, 2014 AND يتم استخدام الكلمة AND لايجاد اقتران منطقي. والصيغة التي يتم اتباعها هي: حدد الأعمدة كذا وكذا وكذامن كائن ما (جدول او استعلام)حيث شرط 1 و شرط 2 SELECT WhatColumn(s) FROM WhatObject WHERE Condition1 AND Condition2 و كمثال تطبيقي نقول SELECT Title, Director, CopyrightYear, Rating FROM Videos WHERE CopyrightYear = "1994" AND Rating = "PG-13"; رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يناير 11, 2014 الكاتب مشاركة قام بنشر يناير 11, 2014 وللتوضيح و التحليل نقول ... SELECT Videos.Title, Videos.Director, Videos.CopyrightYear, Videos.Rating FROM Videos WHERE (Videos.CopyrightYear)="1994") AND ((Videos.Rating)="PG-13"); ......... رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يناير 11, 2014 الكاتب مشاركة قام بنشر يناير 11, 2014 IS يتم استخدامها في عبارة WHERE لتحديد حالة تستخدم للبحث عن سجل. SELECT LastName, FirstName, HourlySalary FROM Employees WHERE Department IS NULL .... رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يناير 11, 2014 الكاتب مشاركة قام بنشر يناير 11, 2014 IS NOT يمكنك نفي شرط IS باتباع ذلك مع المشغل NOT SELECT LastName, FirstName, HourlySalary FROM Employees WHERE Department IS NOT NULL .............. 1 رابط هذا التعليق شارك More sharing options...
saif13 قام بنشر فبراير 7, 2014 مشاركة قام بنشر فبراير 7, 2014 موضوع مفيد وشكرا لكم على المجهود الرائع لكن لو كان عندي جدول يحتوي على اسماء الموظفين ولنفرض عشر موظفين فكيف عندما اكتب في النموذج اسم الموظف وبعد الضغط على انتر تاتي معلومات اسم الصف واسم الام تلقائيا في الحقول المجاورة رابط هذا التعليق شارك More sharing options...
yassin123 قام بنشر مارس 23, 2014 مشاركة قام بنشر مارس 23, 2014 كل الشكر والتقدير لك رابط هذا التعليق شارك More sharing options...
أواب قام بنشر مارس 25, 2014 مشاركة قام بنشر مارس 25, 2014 أكواد مفيدة ومهمة جداً ونرجوا الاستمرار بكل فكرة جديدة وجزاكم الله خيراً رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يونيو 15, 2014 الكاتب مشاركة قام بنشر يونيو 15, 2014 لإظهار اسم اليوم في مربع نص Me.Text0 = WeekdayName(Weekday(Date, vbUseSystemDayOfWeek)) رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يونيو 26, 2014 الكاتب مشاركة قام بنشر يونيو 26, 2014 كنا في المشاركة ... http://www.officena.net/ib/index.php?showtopic=38385&p=223496 تحدثنا عن نطاق السنوات لعشر سنوات ماضية وقادمة ، لتكون الوحدة النمطية مصدر الصف في مربع تحرير وسرد وهنا نعدل على الفكرة باستخدام مفهوم callback function ، لغايات تحقيق المرونة و الفاعلية ، ونقوم بانشاء وحدة نمطية عامة ، تحدد هذه الوحدة خصائص مربع التحرير و السرد او مربع القائمة بحيث يكون نوع مصدر البيانات Value List وعدد الاعمدة 1 ، ثم نفرغ المربع المحدد من أي بيانات سابقة ، ونقوم بتحديد بياناته الجديدة بواسطة بقية جمل الوحدة النمطية . Public Function callbackYearLoop(strContYear As Control, strLoop As Integer) 'By Nart Lebzo .... www.officena.net 'Amman - Jordan 25/06/2014 Dim YearHold As Date Dim intI As Integer strContYear.RowSourceType = "Value List" ' Clear out strContYear.RowSource = vbNullString strContYear.ColumnCount = 1 ' Year For intI = -strLoop To strLoop YearHold = DateSerial(Year(Date) + intI, 1, 1) strContYear.AddItem Format(YearHold, "yyyy") Next intI End Function وفي جملة الاستدعاء وفي حدث عند الحالي للنموذج نحدد اسم مربع التحرير و السرد او مربع القائمة المستهدف لاحتواء البيانات ثم عدد السنين لتحديد الدوران ( سابق ولاحق ) Call callbackYearLoop(CombYear, 3) وتكون النتيجة لدينا مرنه وقابلة للاستدعاء في اي نموذج وللفترات التي نحتاجها في كل نموذج او ظرف ( وحسب التحليل ) مرفق تطبيق اصدار 2003 و 2007 NA_CallbackYearLoop.rar 2 رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر يونيو 26, 2014 الكاتب مشاركة قام بنشر يونيو 26, 2014 في المشاركة ... http://www.officena.net/ib/index.php?showtopic=38385&p=225383 كان الأخ الصمت المتحدث تساءل عن تطبيق فكرة نطاق السنوات على الأشهر ، ورغم تأخر الردّ ، نطبق الفكرة لعموم الفائدة وباستخدام مفهوم callback function ، لغايات تحقيق المرونة و الفاعلية ، نقوم بانشاء وحدة نمطية عامة ، تحدد هذه الوحدة خصائص مربع التحرير و السرد او مربع القائمة التي ستحتوي البيانات بحيث يكون نوع مصدر البيانات Value List وعدد الاعمدة 1 ، ثم نفرغ المربع المحدد من أي بيانات سابقة ، ونقوم بتحديد بياناته الجديدة بواسطة بقية جمل الوحدة النمطية . Public Function callbackMonth(strContMonth As Control) 'By Nart Lebzo .... www.officena.net 'Amman - Jordan 25/06/2014 Dim intI As Integer strContMonth.RowSourceType = "Value List" ' Clear out strContMonth.RowSource = vbNullString strContMonth.ColumnCount = 1 ' Months For intI = 1 To 12 strContMonth.AddItem Format( _ DateSerial(Year(Date), intI, 1), "mmmm") Next intI End Function وفي جملة الاستدعاء وفي حدث عند الحالي للنموذج نحدد اسم مربع التحرير و السرد او مربع القائمة المستهدف لاحتواء البيانات Call callbackMonth(CombMonth) مرفق تطبيق اصدار 2003 و 2007 NA_CallbackMonths.rar 1 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يونيو 26, 2014 مشاركة قام بنشر يونيو 26, 2014 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
محمد سامي يوسف قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 مشكوووووووووووووووووووور رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 25, 2015 مشاركة قام بنشر يناير 25, 2015 Date And Time At Forms Caption لإظهار تاريخ اليوم والوقت بدل اسم النموذج ، الكود التالي يفي بالغرض مع تثبيت الرقم 1000 في Timer Interval Private Sub Form_Timer() Me.Caption = " Today is " & "Date :" & " " & Format$(Now())' "dd mm yyyy " & " Time : " & "h:mm:ss AMPM" End Sub >>>>>>>>>>>> بارك الله فيك اخى أبو آدم وأزاح عنكم الهم والغم وفرج عنكم ما انتم فيه وارجعك الينا سالما باذن الله قد عدلت شيئا بسيط فى الكود لاينقص من روعته شىء حيث عند استخدام له قابلت هذا الخطأ واحببت التنويه عنه للفائده بالتوفيق للجميع رابط هذا التعليق شارك More sharing options...
Reeham قام بنشر فبراير 10, 2015 مشاركة قام بنشر فبراير 10, 2015 هل من الممكن برنامج يحتوي على هذه الافكار رابط هذا التعليق شارك More sharing options...
abosherif قام بنشر أبريل 18, 2015 مشاركة قام بنشر أبريل 18, 2015 بارك الله فيك اخى الكريم ونفعك الله وايانا بعلمك رابط هذا التعليق شارك More sharing options...
osama_matafy قام بنشر أبريل 23, 2015 مشاركة قام بنشر أبريل 23, 2015 اوجه مشكلة عند كتابة الاكواد في VBA في الاكسس عند ادراج msgbox بالغة العربية لاتظهر وتظهر احرف غير مفهومة بالرغم من ان الاكسس يكتب لغة عربية عادي (النسخة office 2010 انجليزي) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.