Mohamed Abo Elala

في 18‏/5‏/2024 at 21:45, kkhalifa1960 said:

تقضل استاذ @Mohamed Abo Elala محاولتي حسب مافهمت . اليك الشرح والمرفق .

                                                                                                                                             

DDUnPoundForm.accdb 2.7 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

اشكرك استاذي علي المجهود 

و شكرا علي الاستجابة 

و لكن الاستاذ Foksh افاد بالفكرة التي اريدها بالظبط

في 18‏/5‏/2024 at 06:05, Foksh said:

أخي الكريم @Mohamed Abo Elala ، الى أن استوعبت الأكواد خرجت بهذه النتيجة ، ولا أعلم إن كانت تخدم فكرتك ..

قمت بتعديلات بسيطة على الوظائف التي في المديول الذي يظهر رسائل التنبيه ، واضطررت لإيقافها والإستعاضة عنها بعدد التنبيهات وعرض النتائج في List Box في نموذج الواجهة .

ولك حرية التعديل طبعاً ، تفضل .

 

سجل المحضرين.zip 2.07 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

شكرا استاذ Foksh هذا ما كنت افكر فية بالضبط 

Foksh

سجل المحضرين.rar

الملف المرفق بة رسائل عند الدخول من فورم frmLogin كرسائل لاحداث قربت 

اسم المستخدم / محمد ابو العلا

كلمة المرور / 111

المطلوب عمل صفحة بها نموذج فرعي يملئ بالبيانات المستخرجة بالرسائل 

كلمة سر vba 

3032

@Foksh

kkhalifa1960

12 دقائق مضت, kkhalifa1960 said:

تقضل استاذ @Mohamed Abo Elala محاولتي حسب مافهمت .

DDUnPoundForm.rar 70.58 kB · 0 downloads

شكرا استاذي kkhalifa1960 

و لكن تبقي المشكلة قائمة و هي ان النموذج الفرعي لم يظهر بة الا سجل واحد و ليس الثلاث سجلات المرتبطة به 

السلام عليكم استاذي Foksh شكرا لردك و علي وقتك 

اقوم بتنفيذ فكره للاشعارات في برنامجي 

واريد تعبئة نموذج فرعي ببيانات من جداول مختلفة و هذه هي الغاية 

41 دقائق مضت, Foksh said:

ما هو مصدر بيانات النموذج الرئيسي

اما النموذج الرئيسي فهو غير منضم ايضا

و حاولت وبحثت و سألت شات جي بي تي 

و كان الرد الكود التالي 

Private Sub Form_Load()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    ' Open the database
    Set db = CurrentDb
    
    ' Open a recordset for the desired table
    Set rs = db.OpenRecordset("YourTableName")
    
    ' Move to the first record
    rs.MoveFirst
    
    ' Loop through each record
    Do Until rs.EOF
        ' Set the field values of the form to the values in the recordset
        Me.FieldName1 = rs("FieldName1")
        Me.FieldName2 = rs("FieldName2")
        ' Add more lines as needed for each field
        
        ' Move to the next record
        rs.MoveNext
    Loop
    
    ' Close the recordset
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

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

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

الان, ابو جودي said:

جملة SQL هذه تهدف إلى
حذف سجل او سجلات محددة من جدول معين
وتحديداحذف السجلات التي يكون فيها قيمة الحقل "id" مساوية للقيمة المخزنة في المتغير "x"

بالضبط استاذي 

4 دقائق مضت, ابو جودي said:

جرب الجملة التالية
 

"DELETE FROM tblBounce WHERE (((tblBounce.id) = " & x & "));"

 

شكرا جزيلا استاذي تم و اشتغل الكود 

1 دقيقه مضت, Foksh said:

فعلاً هذا يعتمد على الهدف من جملة الحذف هل الهدف صف ، أم قيمة معينة 

نعم  الحذف لصف 

شكرا لاساتذتي 

Foksh

و

ابو جودي

1 دقيقه مضت, Foksh said:

هلا ارسلت مرفق بسيط لرؤيته ؟

بالفعل بحضرها 

13 ساعات مضت, Foksh said:

بدايةً هل قمت بتعيين قيمة المتغير قبل البدء بتنفيذ الاستعلام ؟

وهل تم حجز المتغير X كمتغير رقمي بنوع ( Long أو Integer ) .

اشكرك علي ردك استاذي 

نعم لقد قمت بتعيين قيمة المتغير و نوع المتغير من نوع double

"Delete tblBounce.id From tblBounce Where (((tblBounce.id)= " & x & "));"

مع العلم بأن x هو متغير رقمي 

الحمد لله تم الحل

حتي عند فتح ملف جديد 

تظهر الرساله 

تم الغاء التقسيم و مازالت تظهر الرساله 

نعم القاعدة مقسمة 

و عملت ربط جديد و لسة بتطلع الرساله 

مع العلم بان القاعده تعمل بعد الرساله 

3 دقائق مضت, Mohamed Abo Elala said:

نعم القاعدة مقسمة 

و عملت ربط جديد و لسة بتطلع الرساله 

مع العلم بان القاعده تعمل بعد الرساله 

نعم اخي https://www.officena.net/ib/profile/228800-murady/

لما بفتح قاعدة البينات اللي علي الشبكة بتظهر الرساله دي 

تعذر علي اكسس تغيير دليل العمل الي (مسار داخل الكمبيوتر)

تأكد انك تستخدم محرك الاقراص الصحيح و أن طول المسار هو 260 حرفا أو أقل 

شكرا جزيلا و صلت المعلومة

ممكن سؤال 

يعني ايه معلمة الاستعلام 

تسلم استاذنا الغالي و هو المطلوب فعليا

شكرا جزيلا

اجرب ايه 

الان, Mohamed Abo Elala said:

اجرب ايه 

مفيش مرفق

شكرا جزيلا استاذي

في الفيجوال 

هل يجوز استخدام Bettewen كشرط في if 

الحمد لله وصلت 

عندي قاعدة بيانات علي شبكه محليه و تم تقسيمها لجداول و نماذج 

كنت عايز احجز متغير من نوع database و اعرفة كيف اعرف المتغير