أحمد مبارك الحيقي

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

تستطيع ذلك أخي عبر هذين السطرين على سبيل المثال: Me.Parent.Form.Controls(0).SetFocus DoCmd.GoToRecord , , acNewRec كما في الملف المرفق... والله أعلم. NewMainRecord.rar NewMainRecord.rar

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

هذا هو الرأي أستاذ إيهاب، وإنما استهوتني المسألة كتمرين برمجي أحن إليه أحياناً...

الحلقة الخامسة: مفهوم المتغيرات Variables ********************************* وصلنا في الحلقة السابقة إلى هذه النتيجة: التعليمات، والبيانات التي تعمل عليها هذه التعليمات تصل إلى المعالج من الذاكرة. عرفنا كذلك أن الذاكرة هي سلسلة طويلة من البتات، لكننا قررنا أن ن…

تستطيع ذلك أخي الكريم عن طريق كود مثل التالي: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF10 Then MsgBox "السلام عليكم" End If End Sub لاحظ أنك إن كنت تريد تنفيذ الكود في كل الأحوال عند الضغط على F10 حتى لو كنت في عنصر على…

وعليكم السلام ورحمة الله وبركاته هذه أخي واحدة من الطرق الممكنة: Private Sub Form_Current() Dim sDate1() As String, sDate2() As String, sDate3() As String, sDate4() As String Dim intMonths As Integer, intDays As Integer, i As Integer sDate1 = Split(date1, "،")…

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

هذا أحد الأخطاء السابقة التي ارتكبناها، فإننا عاملنا PlaceID كحقل نصي عند شرط المقارنة (لاحظ علامات التنصيص المفردة). على كل حال، بالنسبة للدالتين أعلاه: Len(String) تعيد هذه الدالة طول النص String، بعدد الحروف. Left(String, Length) تعيد هذه الدالة عدداً من ال…

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

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

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

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

أخي الكريم، تستطيع طبعاً بكل بساطة أن تعين مفتاحاً أساسياً مناسباً لجدول الحسابات (مثلاً رقم الطالب، أو رقم الطالب مع رقم الفترة)، فتخلص من مشكلة التكرار... لكن إن أردت أن تستخدم عبارة SQL كما في مشاركتك، فيمكنك أن تستخدمها بالشكل التالي (هناك خطأ عندك في استخ…

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

الأخ الكريم، لديك على الأقل طريقتان، كما في الكود التالي: Private Sub Command6_Click() With Me.RecordsetClone .MoveFirst While Not .EOF .Edit .Fields("number1") = IIf(UCase(.Fields("name1")) = "W", 1, 2) .Update .MoveNext Wend End With ' أو هذا الكود ' DoCmd.S…

حياك الله أخي الكريم... من أجل معالجة كلا المسألتين، تستطيع أن تجعل مكان هذا السطر (الإجراء المستقل): Me.Productsubform.Form.quantity = Me.Productsubform.Form.quantity & Me.ActiveControl.Caption هذا السطر (الأطول، ولكنه يموي معالجة المسألتين معاً): If Me.Produ…

من الممكن أخي القيام بذلك عبر الكود التالي في النموذج: Private Sub chkRefundTermination() Me.Check0.Value = Not IsNull(DLookup("CRN", "إنهاء تعاقد", "CRN = '" & Me.CRN & "'")) Me.Check2.Value = Not IsNull(DLookup("CRN", "إسترداد مبلغ", "CRN = '" & Me.CRN & "'"…

وعليكم السلام ورحمة الله... يمكنك أخي أن تصل إلى عنصر في نموذج فرعي بالصيغة التالية: Me.[اسم النموذج الفرعي].Form.[اسم العنصر في النموذج الفرعي] حيث تعود Me إلى النموذج الرئيس نفسه. في حالتنا هذه يمكن أن نكتب في حدث النقر (لكل) زر كوداً يطبع قيمة الزر في عنصر …

حسن أخي الكريم، إذن جرب الكود التالي (تعديل على آخر كود لك): Private Sub Combo57_Click() Dim rs As DAO.Recordset If Me.Combo57.Selected = True Then Set rs = CurrentDb.OpenRecordset("SELECT [E-mail Address] FROM Persons WHERE PlaceID = '" & Me.Combo57.Value & "…