Barna

أخي لو ارفقت مثال للمطلوب كان اسرع في حصولك للاجابة ... على العموم انت صدرت الجداول وتحتاج تصدير للعلاقات جرب الكود التالي لتصدير العلاقات أو ارفق مثال للتجربة .... 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

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

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

ملاحظة : أخي @jjafferr نسيت تعدل الكود داخل المثال .... ارجو لك قيلولة مريحة من العناء وتعود بصحة ممتازة .... جزاك الله خيرا

واضحة الفكرة ... لكن سؤال واحد لقف .... ليس تسحب هذه البيانات ما الفائدة المرجوة منها ؟؟؟؟ ليش اسأل ... لربما هناك طريقة افضل واستخدامات اكثر .... مثلا لماذا لا تستخدم بيانات جداول الطلاب لهذه المهمة .... فهي تساعدك فيما بعد في جداول الاختبارات واللجان وووو اشياء اخرى

هههههههههه .....

بصراحة ... هذه عملية استفزاز لك ... حتى تخرج لنا بعض الكنوز التي لديك لنستفيد منها .... بارك الله فيك اخي @jjafferr

عندي طريقة لربما تعتبر طريق فرعي وترابي ايضا مقارنة بطريقة أخي @jjafferr سوف ارفقها ..... بشرط أن يضع لنا الاستاذ جعفر طريق سريع ومسفلت ... Sub RecordPorssesing() On Error Resume Next Dim rs, rs2, rsq As Recordset, Dbs As Database Dim StrSql As String Dim x, r, I, p, z As Integer Set Dbs = CurrentDb Set rsq = Dbs.OpenRecordset("Temp4") Set rs = Dbs.OpenRecordset("SELECT Temp4.F2 FROM Temp4 WHERE (((Temp4.F2) Is Not Null));") rsq.MoveLast rsq.MoveFirst For z = 1 To rs.RecordCount Step 5 For I = 1 To rsq.RecordCount Step 5 Set rs2 = Dbs.OpenRecordset("tbl_bar") rs2.AddNew rs2.Fields(0) = rsq.Fields(0) r = 0 For p = 1 To 5 rs2.Fields(r) = rs.Fields(0) r = r + 1 rs.MoveNext Next p rs2.Update rsq.MoveNext Next I Next z Set rs = Nothing Set rs2 = Nothing Set rsq = Nothing DoCmd.OpenTable "tbl_bar" End Sub Posters.accdb

لا تستخدم الكلمات المحجوزة في اكسس في تسمية الجداول او النماذج أووووووووووووووووووووووووووووووووو من الكلمات المحجوزة: ADD - ALL - AND - BETWEEN - Count - CurrentUser - DATABASE - DATE - FROM - GROUP - INDEX - Level - Macro - Module - NAME - NUMBER - PRIMARY - Query - Refresh - Report - TABLE - Time - USER - Year - YES - YESNO بارك الله فيك ....

ومشاركة مع اخي واستاذي صالح غير في كود الاستيراد الموجود في النموذج الموجود في الصورة واستبدل كود استيرا بيانات المعلمين بالكود التالي Dim ImportFileName As String ImportFileName = Me.txtPath CurrentDb.Execute ("Delete * From Teacher") CurrentDb.Execute ("Delete * From Temp4") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Temp4", ImportFileName, False DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Teacher ( Teacher, Email ) " & _ " SELECT Temp4.f20, Temp4.f7 " & _ " FROM Temp4 " & _ " WHERE (((Temp4.f20)<>""الإسم""))" DoCmd.SetWarnings True MsgBox "تم استيراد أسماء المعلمين بنجاح" End Sub

Nouveau Microsoft Access قاعدة بيانات.accdb

أخي بلال لم تشرح المطلوب بالتفصيل ؟؟؟؟؟؟ هل بيانات الحقول ؟؟؟؟ هل اسماء الحقول فقط ؟؟؟؟؟ هل هذا هو المطلوب ؟؟؟؟ وكيف تريد ظهورها ؟؟؟؟ هل بشكل مسميات ليبل أم ؟؟؟؟؟