صالح حمادي

تفضل استعمل هذا الكود في حدث عند الضغط لزر تحديد جميع الحقول: Dim i As Integer If Me.تدقيق34 = True Then For i = 0 To Box.ListCount - 1 Box.Selected(i) = True Next i Else For i = 0 To Box.ListCount - 1 Box.Selected(i) = False Next i End If

نسيت أمر هذا السؤال ليس عليك تغيير اسم الجدول ليظهر أمام المستخدم بالعربية. إطلع على المرفق و وافني بالنتيجة الآن zeyad.rar

تفضل في حدث قبل التحديث لمربع رقم الأستاذ أضف هذا الكود: Dim Msg, Style, Title, Response Title = "تغيير السجلات" Msg = "سينتج عن هذا التعديل تغيير في السجلات الفرعية" & vbCrLf & vbCrLf & _ "هل أنت متأكد من التعديل على السجلات الفرعية؟ " Style = vbYesNo + vbDefaultButton2 Response = MsgBox(Msg, Style, Title) If Response = vbNo Then Undo End If و في حدث بعد التحديث ضع هذا الأمر: Me.Refresh Database11.rar

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

هذا الكود يقوم بتغيير اسم الجدول و ليس اسم الحقل لماذا تريد تغيير اسماء هذه الجداول للعربية لماذا تكررها أكثر من 12 مرة لقد أجبت عن هذا السؤال في هذه المشاركة:

الدالة Dcount و تجد لها هنا شرح مفصل:

و فيك بارك الله أخي 1- افتح التقرير في وضع التصميم 2- ثم أدخل على مصدر الصف لمربع تحرير و سرد أسماء الجداول. 3- تظهر لك النافذة التالية: 4- أكتب العابارة التالية: <>"password" في المعايير تحت الحقل name

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

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

لم أفهم ماذا تقصد يا ريت توضح أكثر

أين هو المرفق أخي إبراهيم؟

جيد بعد تفحص المرفق وجدت أن جدول النظام الخاص بالعلاقات مازال محتفظا بالأسماء الأولى للجداول قبل التعديل على اسمها و لحل هذه المشكلة قم بحذف العلاقات بين الجداول ثم أعط ربطها من جديد و هذا هو المرفق به الحل إن شاء الله. zeyad.rar

السلام عليكم اتبع الخطوات الموجودة بالصورة أدناه: و هذا المرفق بعد التعديل: Database11.rar

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

السلام عليكم لديك عنصر ActiveX ربما أداة الباركود أو ماشبه ذلك غير مسجلة بالونداوز لتفادي هذه المشكلة يجب عليك تسجيل هذه الأداة

نعم هناك بعض الإضافات يجب التعديل عليها. أولا: عند ربط جدولين في الاستعلام يجب استخدام INNER JOIN. ثانيا: هناك أحد جداول النظام اسمه MSysRelationships يخزن العلاقات بين الجداول و حقول ربطها نستطيع من خلاله معرفة الحقول الربط بين الجداول. ثالثا: لقد قمت بإضافت مربعي نص t1 و t2 لحفظ أسماء الجداول المستعملة في الاستعلام. أما الكود فقد قمت بالتعديل على كائنين فقط. الكائن الأول: هو مربع التحرير و السرد الخاص بإضافة الحقول و هذا هو الكود المضاف : If IsNull(Me.tb1) Then Me.tb1 = Me.ChooseTble ElseIf Me.tb1 <> Me.ChooseTble Then Me.tb2 = Me.ChooseTble End If الكائن الثاني: هو زر إنهاء التحديد و هذا هو الكود بعد الإضافة و التعديل: On Error Resume Next Dim x As Integer Dim xstr As String Dim CountStrTbl As Integer If Not IsNull(Me.tb1) And Not IsNull(Me.tb2) Then x = 2 If DCount("*", "MSysRelationships", "szRelationship='" & Me.tb1 & Me.tb2 & "'") > 0 Then xstr = Me.tb1 & Me.tb2 Else xstr = Me.tb2 & Me.tb1 End If End If CountStrTbl = Len(Me.ChooseTble) Me.ExportTo.Enabled = True If Left(Me.TxtForQuery, CountStrTbl) = Me.ChooseTble Then Exit Sub If x = 2 Then Me.TxtForQuery = Me.TxtForQuery & " From " & Me.tb1 & " INNER JOIN " & Me.tb2 & " ON " & DLookup("szObject", "MSysRelationships", "szRelationship='" & xstr & "'") & "." & DLookup("szColumn", "MSysRelationships", "szRelationship='" & xstr & "'") & " = " & DLookup("szReferencedObject", "MSysRelationships", "szRelationship='" & xstr & "'") & "." & DLookup("szReferencedColumn", "MSysRelationships", "szRelationship='" & xstr & "'") & ";" Else Me.TxtForQuery = Me.TxtForQuery & " From " & Me.ChooseTble End If Me.EndForQuery.Enabled = False

السلام عليكم إستخدم الدالة: Dlast("field","Table","Condition")

جيد اسمك جميل هكذا نستطيع مناداتك باسمك أخي زياد تفضل إطلع على هذا التعديل و وافني بالنتيجة: 111.rar

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

بارك الله فيك يا مبدع الاكسس مع النت

السلام عليكم أخي الكريم با ريت ترفق مثال به المشكل لأن هذه الدالة تعمل معي حتى بأكثر من 10 مواقع و قد جربت هذا العدد 12345678912345 و قد تم تحويله بشكل جيد

السلام عليكم أولا طباعات البطاقات لا تختلف كثيرا عن باقي الطباعات. - عند تصميم التقرير سوف نقوم بتصميمه حسب حجم الورقة إذا كان الحجم A4 سوف نصمم التقرير بأبعاد A4. و إذا كان التقرير بطاقة (100X50) سوف نجعل أبعاد التقرير على هذا القياس .

السلام عليكم أنا مشغول هذه الأيام بإجراء الإمتحانات افتح الملف و أطلع على الأكواد سوف تجد: - هناك نموذج به نموذج فرعي - النموذج الأساسي مصدره استعلام1 المرنبط بجدول القرعة - النموذج الفرعي مصدره جدول الفائزين حقل الفائز للنموذج الفرعي يأخذ قيمته من مربع نص t1 في النموذج الأساسي و الذي مصدره حقل اسم الفائز في جدول القرعة بإستعمال هذا الكود: [sub_ko].Form![اسم الفائز] = t1 و تستطيع إضافة العديد من الحقول بهذه الطريقة

السلام عليكم هذا مثال بسيط 1.rar

السلام عليكم إطلع على هذا الرابط به كل أسئلتك التي تحتاجها: