Barna

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

هل جربت الاستعلام وكان يعمل لديك قبل النسخ ؟؟؟؟ اذا كانت الاجابة بنعم جرب نقل الكود في برنامجك ... وأعلمنا بالنتيجة 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

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

ممكن تتكرم علينا بمثال مصغر للعمل عليه

اولا : احذف هذا السطر لا تحتاجه appAccess.Visible = False ثم عدل في بعض خصائص النموذج للقاعدتين الاخرى ....... حتى تصل للنتيجة المرغوبة .....

بعد أذنك أخي الاستاذ @احمد الفلاحجي في نفس مثال أخي الاستاذ @kanory ضع هذا الكود بدلا من الكود الموجود ....... Dim X, d As String Dim strDB As String X = DLookup("[name1]", "[Dchoose]", "[Name2] ='" & name1.Column(2) & "'") If IsNull(Me.name1) Then MsgBox "ÚÐÑÇ ÇÎí ÇáßÑíã ... áã ÊÞã ÈÅÎÊíÇÑ ãÓÇÑ ÇáãáÝ", vbCritical, "ÇÏÎá ãÓÇÑ ÇáãáÝ" DoCmd.CancelEvent Else strDB = "D:\Saas\" & X & ".mdb" Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase strDB appAccess.Visible = True End If

سبقني اخي @احمد الفلاحجي بالوردتين .. لكن يستاهل ابا بسملة 🌷🌷

خليهم اربعة عشاني يستاهل اخي احمد مليون وردة

ماشاءالله تبارك الله ... هدية جميلة اخي الاستاذ @ابوآمنة بارك الله فيك

كيف اليا ... هل تقصد عدم كتابة عدد الطلاب والمجموعات ؟؟؟؟