محمدفتاح

السلام عليكم كل عام وانتم بخير سنة سعيدة علي الجميع بإذن الله وبعد اريد عمل ساقية لتوزيع المدرسين على اللجان في الامتحانات حيث لا تتكرر اللجنة مع المدرس مع مراعاة في بعض الاحيان يوجد موانع تمنع دخول مدرس لجنة معينة واستخدمت كود ()rnd ولكن يأخذ زمن طويل جدا وايضا في بعض الاحيان مثلا اذا كان يوجد 10 لجان فيدخل المدرس لجنة من 1 الى 5 في المادة التالية يدخل لجنة من 6 الى 10 وهكذا فهل من طريقة لتنفيذ هذا الطلب وجزاكم الله خير شكرا

جزاكم الله خيرا وزادك علما يوجد استفسار اخر هل يمكن التحكم في عدد الاعمدة المعروضة في الصفحة ايضا بالكود شكرا

السلام عليكم يوجد قاعدة ولكن بها كم كبير من التقارير فاهتديت الي التحكم في عناصر التقرير بالكود فاستخدم تقرير واحد لاكثر من وظيفة ولكن اريد عرض بعض التقارير بالوضع الافقي وتقارير اخرى بالوضع الرأسي فاستخدمت الكود Me.Printer.Orientation = acPRORLandscape في حدث عند النحميل مرة وفي حدث عند الفتح مرة ولكن لا ينفذ الامر ولا اعرف ما الخطأ افيدوني أفادكم الله شكرا

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

السلام عليكم عندي جدول اقوم بملئ البيانات فيه من خلال نموذج ولكني استخدم نموذج واحد لملئ عدة جداول واغير الحقول داخل النموذج من خلال الكود لتناسب الجدول الجديد هل من طريقة تجعلني اغير القيمة الافتراضية لمربع نص معين في النموذج لتسهيل ادخال البيانات في الجداول وقد استخدمت الكود CurrentDb.TableDefs("students").Fields("class").DefaultValue =me.clsr ولكن للاسف تظهر رسالة لا يمكن تعديل بنية الجدول لانه مفتوح من قبل مستخدم اخر افيدونا افادكم الله ولكم جزيل الشكر

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

السلام عليكم عندي سؤال هل يمكن التحكم في اعدادات الصفحة بالكود من حيث عرض الصفحة افقيا او راسيا عدد الاعمدة التي تظهر في الصفحة وجزاكم الله خيرا

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

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

عندي سؤال اخر هل عمل قاعدة بيانات كاملة من خلال الكود اقوي ام استخدام النوافذ الجاهزة في الاكسس من تصميم نموذج او تقرير وخلافه ارجوا الافادة ايضا شكرا

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

انا اسف جدا الخطأ كان عندي كنت اتعامل مع النموذج من خلال وحدة نمطية استخدم فيها ريكورد ست يتعامل مع الجدول ونسيت ان اغلق الريكورد ست في نهاية الموديول فعالجتها والحمد لله لم تظهر الرسالة مرة اخري اسف علي تضييع وقتكم سامحوني ولكم جزيل الشكر

اولا جزاكم الله خيرا علي اهتمامكم ولكن اريد توضيح شئ الكود الاول يعمل ويجعل القيمة الموجودة هي القيمة الافتراضية ولكن عند قفل النموذج وفتحه في نفس الوقت لتسجيل قيمة اخري تظهر الرسالة فهل من حل وجزاكم الله خيرا مرة اخري

CurrentDb.TableDefs(TAbleName).Fields(FieldName).DefaultValue = Me.sch2 عند استخدام الكود السابق يجعل القيمة الموجودة في Me.sch2 هي القيمة الافتراضية للجدول وعند قفل النموذج واعادة فتحه تظهر رسالة تقول لا يمكن تعديل بنية الجدول حيث الجدول مفتوح من قبل مستخدم اخر واستخدمت كود DoCmd.Close acTable, "tablename", acSaveNo للاسف تظهر الرسالة ايضا ارجوكم افيدونا

جزاك الله عني خير الجزاء متشكر جدا لاهتمامك سؤال آخر بهذه الطريقة يمكن تصميم تقرير من خلال الكود مع اضافة وحذف الحقول حسب الحاجة ارجو الافادة وهل يوجد طريقة اخري اسهل ام لا شكرا

Sub CreateNewReport() Dim rptCustomers As Access.Report Dim strReportName As String Dim aoAccessObj As AccessObject Dim txtTextBox As Access.TextBox Dim lblLabel As Access.Label Dim strSQL As String Dim intPosition As Integer 'set the name of the new report strReportName = "Customers”" strSQL = "SELECT * FROM Customers ORDER BY CompanyName”" 'delete any existing report with that name For Each aoAccessObj In CurrentProject.AllReports If aoAccessObj.name = strReportName Then DoCmd.DeleteObject acReport, strReportName End If Next aoAccessObj 'create a new Customers Report Set rptCustomers = CreateReport With rptCustomers 'set the report record source to the SQL Statement .RecordSource = strSQL 'set the height, caption, and other report options .section("Detail").Height = 500 .Caption = "Client Contact List”" End With 'add a Company Name label and text box to the report intPosition = 0 Set txtTextBox = CreateReportControl(rptCustomers.name, acTextBox, -acDetail, , "CompanyName", intPosition) txtTextBox.name = "txtCompanyName”" txtTextBox.Width = 1800 Set lblLabel = CreateReportControl(rptCustomers.name, acLabel, -acPageHeader, , , intPosition) lblLabel.name = "lblCompanyName”" lblLabel.Caption = "Company Name”" lblLabel.Height = txtTextBox.Height lblLabel.Width = txtTextBox.Width lblLabel.FontBold = True 'add a Contact Name label and text box to the report intPosition = txtTextBox.Width + txtTextBox.Left + 350 Set txtTextBox = CreateReportControl(rptCustomers.name, acTextBox, -acDetail, , "ContactName", intPosition) txtTextBox.name = "txtContactName”" txtTextBox.Width = 1800 Set lblLabel = CreateReportControl(rptCustomers.name, acLabel, -acPageHeader, , , intPosition) lblLabel.name = "lblContactName”" lblLabel.Caption = "Contact Name”" lblLabel.Height = txtTextBox.Height lblLabel.Width = txtTextBox.Width lblLabel.FontBold = True 'add a Contact Title label and text box to the report intPosition = txtTextBox.Width + txtTextBox.Left + 500 Set txtTextBox = CreateReportControl(rptCustomers.name, acTextBox, -acDetail, , "ContactTitle", intPosition) txtTextBox.name = "txtTitle”" txtTextBox.Width = 1800 Set lblLabel = CreateReportControl(rptCustomers.name, acLabel, -acPageHeader, , , intPosition) lblLabel.name = "lblTitle”" lblLabel.Caption = "Title”" lblLabel.Height = txtTextBox.Height lblLabel.Width = txtTextBox.Width lblLabel.FontBold = True 'add a Contact Phone label and text box to the report intPosition = txtTextBox.Width + txtTextBox.Left + 1000 Set txtTextBox = CreateReportControl(rptCustomers.name, acTextBox, -acDetail, , "Phone", intPosition) txtTextBox.name = "txtPhone”" Set lblLabel = CreateReportControl(rptCustomers.name, acLabel, -acPageHeader, , , intPosition) lblLabel.name = "lblPhone”" lblLabel.Caption = "Phone”" lblLabel.Height = txtTextBox.Height lblLabel.Width = txtTextBox.Width lblLabel.FontBold = True 'save and close the new report DoCmd.Save , strReportName DoCmd.Close End Sub عند تنفيذ هذا الامر تظهر رسالة يجب ان تستخدم رقم مقطع وليس سلسلة احرف ارجو المساعدة في حل هذه المشكلة ومن عنده طريقة لتصميم التقرير برمجيا فجزاه الله عني خير الجزاء

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

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

جزاكم الله خيرا وزادك من علمه وفضله عندي طلب اخير اريد تعلم الوحدات النمطية دلني علي افضل طريقة لتعلمها وشكرا

باختصار قمت بحمد الله عمل قاعدة بيانات لكنترول المدرسة والموضوع يوجد جزء من القاعدة يخص الدور الثاني فاقوم بانشاء جدول الدور الثاني ثم اكمل العمليات الخاصة به من شهادات وشيت وخلافه اريد عند الضغط علي زر تكوين الجدول والجدول موجود مسبقا تظهر رسالة تفيد بان الجدول قد اعد من قبل وعند الضغط علي زر الشيت مثلا قبل اعداد الجدول تظهر رسالة بان الجدول غير موجود ويجب تكوينه اولا بعدا عن رسائل الويندوز التي تفيد وجود خطأ بمعنى آخر اريد التحكم الكامل في الرسائل وجزاكم الله خيرا وقد ارسلت نموذج مصغر لقاعدة بيانات لعلها توضح المقصود وشكرا db1.mdb

معذرة ممكن ايضاح اكثر

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

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

شكرا علي النصيحة الكريمة اخي محمد عصام وان شاء الله سأعمل بها الموضوع اريد معرفة الكود الذي يظهر نافذة البحث هذه اريد نافذة البحث هذه تظهر عند الضغط علي مفتاح البحث في هذا النموذج

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