سلمان عبدالله قام بنشر يوليو 30, 2017 مشاركة قام بنشر يوليو 30, 2017 بسم الله الرحمن الرحيم اخواني اخواتي أعضاء هذا المنتدى الرائع السلام عليكم ورحمة الله وبركاته جعل الله ما تقدمونه في موازين حسناتكم اخواني عندي مسالة حاولت عملها اكثر من مرة ولم اوفق لقلة خبرتي واتمنا من الله ثم من اساتذتنا الخبراء حلها عندي حقل رقمي للجوال في قناع الادخال/ وضعت عشرة اصفار 0000000000 حتى يكون الرقم لا يزيد ولا ينقص عن 10 ارقام مثل ما تعرفون الصفر على الشمال يحذف وهذا سبب لي مشاكل في البحث قمت بتغيير الحقل الى نصي بدلا من رقمي وانحلت المشكلة وضهر الصفر على الشمال في الأرقام الجديدة ولكن ماذا عن الأرقام القديم وهي اكثر من 480 رقم جوال كيف اعيد لها الصفر من الشمال . المطلوب:- 1. هل هناك وسيلة او طريقة تقوم بتوليد الصفر على الشمال في الأرقام السابقة او عن طريق برنامج الاكسل ومن ثم أقوم بنسخها ولصقها بعد التعديل عليها بدون تغيير في الأرقام ما عدا إضافة الصفر . 2. ماذا اعمل لجعل الحقل يقبل كلمة واحدة مثل (غير متاح) في حالة ان رقم الجوال غير متاح لان خاصية هذا الحقل جعلتها مطلوب حتى لا انسى طلب رقم الجوال من الزبون وفي حالة طلب عن طريق مصادر أخرى يكون رقم الجوال غير متاح وخاصية الحقل لا بد ان تكون مطلوب الحقل نصي ولكن لا يقبل نص لان قناع الادخال عشرة اصفار ولا اريد تغييرها لأنها مفيدة في اكتشاف الخطأ وفي نفس الوقت اريد كتابة كلمة (غير متاح) في حالة عدم وجود رقم الجوال ولا اريد تغيير خاصية مطلوب... ما الحل 3. كيف الون خط حقل في نموذج يختلف عن لون الحقول الأخرى في نفس النموذج. المشكلة ان النموذج طريقة عرض ورقة بيانات هل من الممكن فعل هذا على نموذج ورقة بيانات. و تقبل فائق احترامي,,, رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يوليو 30, 2017 مشاركة قام بنشر يوليو 30, 2017 4 ساعات مضت, سلمان عبدالله said: حتى يكون الرقم لا يزيد ولا ينقص عن 10 ارقام هناك طريقة اخرى عدى القناع لكي لا يتجاوز الارقام من 10 ارقام .. هذا فقط للعلم 4 ساعات مضت, سلمان عبدالله said: قمت بتغيير الحقل الى نصي بدلا من رقمي وانحلت المشكلة وضهر الصفر على الشمال في الأرقام الجديدة ولكن ماذا عن الأرقام القديم وهي اكثر من 480 رقم جوال كيف اعيد لها الصفر من الشمال . اعمل استعلام تحديث لحق الرقم واعطيه شرط ان يكون اول الرقم لا يساوي صفر و بعدين خليه بيحدث نفس الحقل مع صفر اذا كان هناك قاعدة مصغرة كان عملت لك المطلوب 4 ساعات مضت, سلمان عبدالله said: 1. هل هناك وسيلة او طريقة تقوم بتوليد الصفر على الشمال في الأرقام السابقة او عن طريق برنامج الاكسل ومن ثم أقوم بنسخها ولصقها بعد التعديل عليها بدون تغيير في الأرقام ما عدا إضافة الصفر . 2. ماذا اعمل لجعل الحقل يقبل كلمة واحدة مثل (غير متاح) في حالة ان رقم الجوال غير متاح لان خاصية هذا الحقل جعلتها مطلوب حتى لا انسى طلب رقم الجوال من الزبون وفي حالة طلب عن طريق مصادر أخرى يكون رقم الجوال غير متاح وخاصية الحقل لا بد ان تكون مطلوب الحقل نصي ولكن لا يقبل نص لان قناع الادخال عشرة اصفار ولا اريد تغييرها لأنها مفيدة في اكتشاف الخطأ وفي نفس الوقت اريد كتابة كلمة (غير متاح) في حالة عدم وجود رقم الجوال ولا اريد تغيير خاصية مطلوب... ما الحل 3. كيف الون خط حقل في نموذج يختلف عن لون الحقول الأخرى في نفس النموذج. المشكلة ان النموذج طريقة عرض ورقة بيانات هل من الممكن فعل هذا على نموذج ورقة بيانات. هل نسيت ان لكل سؤال مشاركة واحدة رابط هذا التعليق شارك More sharing options...
سلمان عبدالله قام بنشر يوليو 30, 2017 الكاتب مشاركة قام بنشر يوليو 30, 2017 شكرا لك استاذي شفان ريكاني دائما سباق لمساعدة الاخرين هذا مثال ارجو التكرم بعمل المطلوب ... 1. هل هناك وسيلة او طريقة تقوم بتوليد الصفر على الشمال في الأرقام السابقة او عن طريق برنامج الاكسل ومن ثم أقوم بنسخها ولصقها بعد التعديل عليها بدون تغيير في الأرقام ما عدا إضافة الصفر . 2. ماذا اعمل لجعل الحقل يقبل كلمة واحدة مثل (غير متاح) في حالة ان رقم الجوال غير متاح لان خاصية هذا الحقل جعلتها مطلوب حتى لا انسى طلب رقم الجوال من الزبون وفي حالة طلب عن طريق مصادر أخرى يكون رقم الجوال غير متاح وخاصية الحقل لا بد ان تكون مطلوب الحقل نصي ولكن لا يقبل نص لان قناع الادخال عشرة اصفار ولا اريد تغييرها لأنها مفيدة في اكتشاف الخطأ وفي نفس الوقت اريد كتابة كلمة (غير متاح) في حالة عدم وجود رقم الجوال ولا اريد تغيير خاصية مطلوب... ما الحل 3. كيف الون خط حقل في نموذج يختلف عن لون الحقول الأخرى في نفس النموذج. المشكلة ان النموذج طريقة عرض ورقة بيانات هل من الممكن فعل هذا على نموذج ورقة بيانات. ودمت لنا في هذا المنتدى الرائع.... مثال 1.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يوليو 31, 2017 مشاركة قام بنشر يوليو 31, 2017 اتفضل هذه هو الاكواد المطلوبة للنقطة الاولى والثالثة Option Compare Database Option Explicit Public Sub Foo_Bar() Dim db As DAO.Database Dim prp As DAO.Property Dim fld Set db = CurrentDb With db.TableDefs("ج_الملاك").Fields("رقم88اخر") Set prp = .CreateProperty("InputMask", dbText, "0000000000", False) 'dbText = 10 .Properties.Append prp End With Set fld = db.TableDefs("ج_الملاك").Fields("رقم88اخر") fld.Name = "رقم_اخر" End Sub Private Sub COMMAND12_Click() On Error Resume Next Dim SqlUpdate As String Dim DELF As String Dim ADDF As String DoCmd.SetWarnings False SqlUpdate = "UPDATE ج_الملاك SET [رقم88اخر] = 0 & [ج_الملاك]![رقم_اخر] WHERE (((Len([رقم_اخر]))<10));" ADDF = "ALTER TABLE ج_الملاك ADD COLUMN رقم88اخر TEXT(10)" DELF = "ALTER TABLE ج_الملاك DROP COLUMN رقم_اخر" Me.ج_الملاك.SourceObject = "" DoCmd.RunSQL (ADDF) DoCmd.RunSQL (SqlUpdate) DoCmd.RunSQL (DELF) Call Foo_Bar Me.ج_الملاك.SourceObject = "ج_الملاك" DoCmd.SetWarnings False End Sub واليك المرفق مثال 1.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان