Barna

وايضا .... نسيت اقولك ابتعد عن الكلمات المحجوزة مثل ID وغير الكثير حياك الله ..... بالتوفيق

طيب أخي الكريم : أولا : لايجب أن تربط الصور برقم تلقائي ... لأنك لو حذفت اسم من السجلات الموجودة وسويت ضغط واصلاح للقاعدة سوف تفقد كل ارتباطات الصور لذلك الصحيح ربط الصور برقم فريد ( رقم هوية - رقم جواز - ...... الخ ) ثانيا : قمت بحذف الكود الموجود لربط الصور الموجود وفقط وضعت هذا الكود في مصدر مربع النص الخاص بالصورة في النموذج والتقرير =[CURRENTPROJECT].[PATH] & "\pic\" & [ID] & ".jpg" انظر للمرفق .... ووافيني بالنتيجة !!!!!! SA.rar

الحمد لله رب العالمين

نعم

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

أخي @khasem احذف كود أخي ابا تراب الموجود تحت حدث التايمر showPic فقط اترك الموجود في حدث الحالي

حياك أستاذي @أحمد الفلاحجى واياك .... بارك الله فيك منك نتعلم ... بارك الله فيك استاذي الفاضل @khasem حياك الله

تسلم والشر ما يجيك ..... حفظك الرحمن ...... شوف المرفق وطبق على مثالك visit.accdb

نعم يمكن ذلك ..... ابحث في المنتدى وتجد أمثلة لذلك .... أو أعطني فرصة عند العودة لجهازي لأبحث لك ....

قرأت الموضوع اكثر من مرة ولم افهم ماذا تريد ؟؟؟ ممكن ولطفا زيادة في التوضيح !!!! او حتى لو مثال يكون افضل

وليش تسمح لأي شخص يدخل ويوصل للكود ..... المفروض برنامجك قبل التسليم تحوله الى ACCDE او اغلاق محرر الاكواد على الاقل بباس وورد هناك طرق اخرى اجعل الباس في جدول حتى يسهل تعديلها من قبل المستخدم ثم شفرها أو استخدم نظام صلاحيات للمستخدمين .....

كل عام وانت بخير أخي أحمد @أحمد الفلاحجى بارك الله فيك ....

أخي لو ارفقت مثال للمطلوب كان اسرع في حصولك للاجابة ... على العموم انت صدرت الجداول وتحتاج تصدير للعلاقات جرب الكود التالي لتصدير العلاقات أو ارفق مثال للتجربة .... Function ExportRelations(DbName As String) As Integer Dim ThisDb As DAO.Database, ThatDB As DAO.Database Dim ThisRel As DAO.Relation, ThatRel As DAO.Relation Dim ThisField As DAO.Field, ThatField As DAO.Field Dim Cr As String, i As Integer, cnt As Integer, RCount As Integer Dim j As Integer Dim ErrBadField As Integer Cr$ = Chr$(13) RCount = 0 Set ThisDb = DBEngine.Workspaces(0).OpenDatabase("C:\mydat.mdb") Set ThatDB = DBEngine.Workspaces(0).OpenDatabase(DbName$) For i = 0 To ThatDB.Relations.Count - 1 Set ThatRel = ThatDB.Relations(i) Set ThisRel = ThisDb.CreateRelation(ThatRel.Name, _ ThatRel.Table, ThatRel.ForeignTable, ThatRel.Attributes) ErrBadField = False For j = 0 To ThatRel.Fields.Count - 1 Set ThatField = ThatRel.Fields(j) Set ThisField = ThisRel.CreateField(ThatField.Name) ThisField.ForeignName = ThatField.ForeignName On Error Resume Next ThisRel.Fields.Append ThisField If Err <> False Then ErrBadField = True On Error GoTo 0 Next j If ErrBadField = True Then Else On Error Resume Next ThisDb.Relations.Append ThisRel If Err <> False Then Else RCount = RCount + 1 End If On Error GoTo 0 End If Next i ThisDb.Close ThatDB.Close ExportRelations = RCount End Function وتستدعيها بالكود التالي ... Call ExportRelations("C:\ExpAndImp.mdb") C:\ExpAndImp.mdb هي مسار القاعدة المصدر منها العلاقات .... جرب وأعلمنا بالنتيجة !!!!!!

معليش فين التكرار نزلت المرفق ولم الحظ التكرار ؟؟؟

وهذه طريقه أخرى .... Rep2: Choose(([Type]);"عربي";"انجليزي";"فرنسي")

ما شاء الله تبارك الله ..... مبارك ... مبارك .... علينا جميعا تواجدك في المنتدى .... مسدد ومعان من الله تعالى

بارك الله فيك أخي @Khalf >>>>> جاري التجربة

أخي @omran2015 أعمل استعلام حسب الصورة التي ارفقتها انت واجعل المعيار في حقل الفصل =3

المطلب غير مفهوم : هل تريد كل بيانات جدول بشكل منفصل ؟؟؟؟ اذا كان الجواب نعم اصنع نماذج فرعية وتقارير فرعية

ما اسم النموذج المطلوب فتحة لأنه لم يفتح النموذج ويعطي أن النموذج غير موجود أو اسمة خطأ ..... انظر

هل جربت الاستعلام وكان يعمل لديك قبل النسخ ؟؟؟؟ اذا كانت الاجابة بنعم جرب نقل الكود في برنامجك ... وأعلمنا بالنتيجة DoCmd.RunSQL " SELECT [cust ].name, [chance].a1, [chance].a2, [chance].a3, [chance ].a4, [chance].a5, [chance].a6 " & _ " FROM [chance] RIGHT JOIN [cust] ON [chance].name = [cust].id " & _ " WHERE ((([chance].a1) Is Not Null) AND (([chance].a6) Like ""*"" & [Forms]![report]![txt1] Or ([chance].a6) Is Null));"

توجد عدة طرق الطريقة الأولى : توجد برامج لتغير الأيقونات الطريقة الثانية : بإستطاعتك وضع البرنامج في ملف خاص وليكن في داريف \:D ثم تقوم بإنشاء اختصار إلى سطح المكتب للبرنامج ، ثم كليك يمين على الأختصار وأختر من خصائصة تغيير الأيقونة إلى أي شكل تريد الطريقة الثالثة : من أدوات = بدء التشغيل = اختر رمز التطبيق المناسب لك وأسهلها الطريقة الثانية انظر المرفق .... طبعا حولت الصورة فب البداية لأيقونة bar.rar

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

احدى ملفات الاكسل لديك تختلف موقع البيانات بها لاحظ الصورة فالاخ @أبو إبراهيم برمج استيرادها على اساس الحقل C وليس D

وعليكم السلام اين المرفق والصورة ؟؟؟؟