Dream_Works

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

أرجو أن يكون هذا طلبك للأسف لا يمكن التنزيل في المنتدى لذلك أرجو القيام بالتالي 1- إنشاء قائمتين منسدلتين Combo Boxes اسمهما CboTables , CboFields 2- إنشاء قائمة عادية ListBox اسمها LstRecords 3- نسخ الكود التالي كله عندك بالفورم 4- التأكد من وضع كلمة Event Procedure على كل قائمة في الحدث المطلوب ... كما هو موضح في بداية كل جزء من الكود Private Sub CboFields_AfterUpdate() Dim FieldName As String, TableName As String, Query As String With Me FieldName = "[" & .CboFields & "]" TableName = "[" & .CboTables & "]" Query = "Select " & FieldName & " From " & TableName .LstRecords.RowSource = Query .LstRecords.Locked = False End With End Sub Private Sub CboTables_AfterUpdate() Dim TableName As String Dim I As Byte Dim rs As dao.Recordset TableName = Me.CboTables.Value Set rs = CurrentDb.OpenRecordset(TableName) With Me.CboFields For I = 0 To rs.fields.Count - 1 .AddItem rs.fields(I).Name Next I .Value = .Column(0, 0) rs.Close .Locked = False End With End Sub Private Sub Form_Load() Dim tbl As dao.TableDef With Me .CboTables.RowSourceType = "Value List" .CboFields.RowSourceType = "Value List" .LstRecords.RowSourceType = "Table/Query" .CboFields.Locked = True .LstRecords.Locked = True End With With Me.CboTables For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) <> "MSys" Then .AddItem (tbl.Name) End If Next tbl .Value = .Column(0, 0) Set tbl = Nothing End With End Sub بالتوفيق إن شاء الله

في ال Detail ... الحدث OnFormat ... كما هو واضح في بداية الكود :)

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

أخي الكريم لا يمكن التحميل من المنتدى حاليا أرجو أن يكون هذا طلبك Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim FullName() As String, CurrentString As String CurrentString = Me.TxtFullName ' التأكد من أن الاسم لا يحتوي مسافتين متجاورتين CurrentString = Replace(CurrentString, " ", " ") FullName = Split(CurrentString) ' التأكد من وجود اسمين أو أكثر If UBound(FullName) > 0 Then Me.TxtName1 = FullName(0) Me.TxtName2 = FullName(1) End If End Sub

أخي الكريم توجد مشكلة في المنتدى ... من ناحية تنزيل الملفات .... لن يمكنك تنزيل الملف بعد إرفاقه للأسف

أخي الكريم يمكنك عمل ذلك بسهولة 1- غير القناع في حقل الأرقام المتباعدة الى المطلوب مثلا 0...0...0...0.....0.....0.....0.....0;;_ 2- قم بوضع كود كالتالي اذا كان التاريخ موجود في الجدول ... تستخدم الحدث On Current Tempdate As String Tempdate = Me.TxtDate ' إزالة الفواصل بين أرقام التاريخ Tempdate = Replace(Tempdate, "/", "") Me.TxtNum = Tempdate TxtDate هو حقل التاريخ الفعلي TxtNum هو حقل التاريخ المتباعد أرجو أن يكون هذا طلبك

للأسف لا يمكن تنزيل الملفات حاليا من المنتدىو لكن لدي فكرة مبدئية لها 1- إنشاء حقل بالجدول به ترقيم تلقائي أو إذا كان الجدول يحتوي على حقل أساسي ... يمكنك عمل ترقيم تلقائي في الاستعلام باستخدامه 2- وضع ثلاث مربعات نصوص في الفورم و يكون مصدر بياناتها تقريبا كالتالي [حقل الترقيم التلقائي ] Mod 3 = 0 [حقل الترقيم التلقائي ] Mod 3 = 1 [حقل الترقيم التلقائي ] Mod 3 = 2 يصعب شرح الحل ... لذلك يجب تنزيل الملف و التجربة ... بعد صيانة المنتدى

أختي ... كل الملفات ما تفتح الآن ... لوجود مشاكل في المنتدى ... ستُحل قريبا بإذن الله

أرجو أن يكون هذا طلبك New_Microsoft_Office_Access_Application.zip

الله يعطيك العافية أخوي على مشاركتك الرائعة ... و أزادك الله من علمه ...

أرجو إرفاق قاعدة بياناتك ... احتمال أنت وضعت بها شيء معين ... لم يخطر على بالي ... :)

تفضل أخوي New_Microsoft_Office_Access_Application.zip

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

برنامج جميل جدا و حركة تحويل لغات الأزرار بين العربية الانجليزية رائعة و جميلة و لكن مبدئيا أعتقد أنه تنقصه صورة جميلة في الصفحة الرئيسية الله يعطيك العافية على هالبرنامج

نفس الدالة موجودة بالأكسيس :)

صورة تدل على برنامج رائع و متعوب عليه ... يمكن الاستفادة من بعض الأفكار و التصميمات الموجودة بها .. الله يعطيك العافية

أخي الكريم ببساطة كل ما يكتب في مربع النص أو TextBox يتخزن في خاصية Text الموجوده به أولا ... و بعد أن يتم حفظ السجل بالكامل عن طريق الانتقال إلى سجل آخر أو ضغط زر الحفظ ... الخ ... تتخزن المعلومة في ال Value أيضا ملحوظة : خاصية Text لا يمكن استخدامها إلا إذا كان التركيز Focus على مربع النص نفسه لذلك أعتقد أن الكود المطلوب كالتالي : Dim TempString as String TextBox1.setFocus TempString = TextBox1.Text TextBox2.setFocus TextBox2.Text = TempString بالتوفيق إن شاء الله

أخي الكريم يمكنك وضع زر للتكرار ... و كتابة كود مشابه للتالي فيه Private Sub BtnRepeat_Click() Me.TxtAccountType.Value = DLast("AccountTypeField", Me.RecordSource) End Sub اسم الحقل في الجدول AccountTypeField اسم مربع النص TxtAccountType يمكنك تتبع مكونات السجل واحد واحد

أرجو النظر في الموضوع التالي ... احتمال يفيدك : التعامل مع الصور

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

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

أخي الكريم المشكلة كانت في جدول المبالغ .. نحن تحتاج الى ترقيم الصفوف بأية طريقة الجدول لا يحتوي على حقل رئيسي ... Primary Key ... لو كان موجودا ... كان من الممكن عمل الترقيم باستخدامه .. فقمت بحلها عن طريق إنشاء حقل رئيسي يكون بمثابة AutoNumber ( مرقم و جاهز ) بعد وجود ال AutoNumber Field ... يمكن تحديد أي مجموعة سجلات تود عرضها عن طريق الفلترة كما أن هناك مشكلة أخرى شائعة جدا ... و هي تسمية الجداول و النماذج و مربعات النصوص بالعربي أو تسمية انجليزية غير منظمة ... هذا العملية تصعب كتابة الكود ... لو التسمية انجليزية و بطريقة مرتبة و منظمة و تدل على محتواها تصبح كتابة الكود أسهل بكثير الصراحة يصعب شرح الموضوع .... انت شوف قاعدة البيانات و حاول تفهمها و إذا لديك أي استفسارات محددة ... سأشرح لك بإذن الله بالتوفيق إن شاء الله _______.zip

أتمنى رؤية برنامجك ... لأنني حاولت كثيرا لحل مشكلة ال Conditional Formatting و لكنني لم أستطع ... فسألت خبراء آخرون حول الموضوع و لم يستطيعوا أيضا .. :)

قاعدة البيانات الجيدة تكون صعبة قليلا في معظم الأحيان ... لأن المبرمجين دائما يحاولون اللجوء الى الكود و الاستعلامات لتخفيف حجم قاعدة البيانات و لتسهيل التعامل معها مستقبلا ... هذا رأيي الشخصي ... إذا رغبتي بعمل واحدة سهله ... يمكن عمل ذلك و لكن لا تتوقعين أن تحصلين على نفس الأداء ... فمثلا أنت قمتي بعمل عدة تقارير للمقيدات ... ماذا يحدث لو أردتي تعديل شكل التقرير ... ستضطرين إلى فتح جميع التقارير و تعديلها و لكن بتقرير واحد مع وجود الكود يتم التعديل على تقرير واحد .. أو يمكنك عمل تقرير ثان على الأكثر في حالة وجود أشكال شاذة من التقرير .. كما أن نوع التعليم (تحفيظ أم غيره ) يمكن تخزينها بسهولة في عمود كامل اضافي على الجدول مما يزيد حجمه أو يمكن الاعتماد على قيمة الفصل للحصول على نوع التعليم سواء بالاستعلام أو الكود كما ذكرت بالنقطة السابقة .. أنتي تختارين ما تريدين ... لأنه معك حق لا يمكنك الاعتماد علي دائما ... فإما تتعلمين ( دورات تعليمية و غيره ) أو تختارين الطريق السهل Up to you ... الشكل المطلوب موجود عندي و لكني لم أفهم المصطلحات التي به ( الاحتياط - المرفعات - المكملات ) ... ؟ ... لذلك أرجو عمل الاستعلامات اللازمة لهذه القيم ... أو على الأقل إرشادي إليها إذا كانت موجودة للأسف لم أفهم هذا الجزء ... و لكن بشكل عام ... اذا تم الاعتماد على الاستعلام أو الكود و أظهر نتائج مقبولة فذلك جيد