النجاشي قام بنشر يونيو 30, 2018 قام بنشر يونيو 30, 2018 السلام عليكم احبتي عندما اكون واقف على السجل الحالي اريد لون الخط يكون ابيض هل من كود لعمل ذالك اي عندما اتنقل بين السجلات يكون لون الخط ابيض تحياتي احبتي لون_الخط.mdb
النجاشي قام بنشر يونيو 30, 2018 الكاتب قام بنشر يونيو 30, 2018 1 دقيقه مضت, kanory said: هل جربت التنسيق الشرطي نعم استاذي الفاضللم تنجح اعتقد كمان بيعمل التنسيق اهتزاز ياليت تشوف لي كود الله يعطيك العافيه تحياتي اليك
jjafferr قام بنشر يونيو 30, 2018 قام بنشر يونيو 30, 2018 وعليكم السلام 27 دقائق مضت, kanory said: هل جربت التنسيق الشرطي هو كما تفضلت وقبل ان اعرض جوابي ، في انتظار جوابك جعفر 1
النجاشي قام بنشر يونيو 30, 2018 الكاتب قام بنشر يونيو 30, 2018 6 دقائق مضت, jjafferr said: وعليكم السلام هو كما تفضلت وقبل ان اعرض جوابي ، في انتظار جوابك جعفر حياك استاذنا الفاضل جعفر حاولت نعم بالتنسيق على قدر حالي ولم اتوفق بالحل منتظرين الطريقه الذي لم تعمل اهتزاز انا بكره الاهتزاز شديد ههههههههههه تحياتي اليك
jjafferr قام بنشر يونيو 30, 2018 قام بنشر يونيو 30, 2018 همم انا استعملت حقول اخرى: . ونفس النتيجة . جعفر 940.لون_الخط.mdb.zip 1
النجاشي قام بنشر يونيو 30, 2018 الكاتب قام بنشر يونيو 30, 2018 15 دقائق مضت, Shivan Rekany said: لون_الخط.mdb استاذي الكريم ابو محمد اهلا وسهلا فيك يالغالي نورت المنتدي حيا بك استاذي الكريم صحيح ان اللون اصبح كويس ولكن بيصير اهتزاز عند التنقل لاعلي واسفل وهذا الا مجننا هل لديك طريقه اخري مشكور على المجهود يالغالي بارك الله فيك 13 دقائق مضت, jjafferr said: همم انا استعملت حقول اخرى: . ونفس النتيجة . جعفر 940.لون_الخط.mdb.zip استاذي الكريم الغالي جعفر نعم مازال الاهتزاز موجود مدوخنا فكنت ابحث عن كود قد يحل الموضوع ممكن التعديل علي هذا ممكن تنحل المشكله KeyValue = [Rajmsanf] On Error GoTo Err_GetLineNumber Set RS = F.RecordsetClone ' البحث عن السجل الحالي Select Case RS.Fields(KeyName).Type ' البحث واستخدام ترقيم قيمة الحقل Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _ DB_DOUBLE, DB_BYTE RS.FindFirst "[" & KeyName & "] = " & KeyValue ' البحث واستخدام اول قيمة للحقل Case DB_DATE RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#" ' البحث واستخدام المساواة لقيم الحقل Case DB_TEXT RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'" Case Else MsgBox "ERROR: Invalid key field data type!" Exit Function End Select ' الاستمرار والمتابعة في ايجاد بقية الارقام Do Until RS.BOF CountLines = CountLines + 1 RS.MovePrevious Loop Bye_GetLineNumber: ' اظهار النتيجة GetLineNumber = CountLines Exit Function Err_GetLineNumber: CountLines = 0 Resume Bye_GetLineNumber الف تحيه اليك
jjafferr قام بنشر يونيو 30, 2018 قام بنشر يونيو 30, 2018 اخي ابو زاهر الاهتزاز اللي تتكلم عنه هو نتيجة تغير/اختلاف اللون الى الابيض ، والكود اللي ارفقه سبق ان نظرت فيه ولم اتوصل الى نتيجه!! جعفر 1
النجاشي قام بنشر يونيو 30, 2018 الكاتب قام بنشر يونيو 30, 2018 الان, jjafferr said: اخي ابو زاهر الاهتزاز اللي تتكلم عنه هو نتيجة تغير/اختلاف اللون الى الابيض ، والكود اللي ارفقه سبق ان نظرت فيه ولم اتوصل الى نتيجه!! جعفر بارك الله فيك استاذي الكريم اوفيت وكفيت باذن الله القي الحل رغم اني قبل كذا مرت عليا مشاركه للاستاذ ادم ولكن مادريت باي موضوع الف شكر اليك يالغالي
kanory قام بنشر يونيو 30, 2018 قام بنشر يونيو 30, 2018 2 ساعات مضت, jjafferr said: هو كما تفضلت وقبل ان اعرض جوابي ، في انتظار جوابك اشكرك اخي جعفر ... كفيت ووفيتانت واخي شيفان ... بارك الله فيكما . 1
jjafferr قام بنشر يوليو 1, 2018 قام بنشر يوليو 1, 2018 1 ساعه مضت, ابو زاهر said: ممكن احبتي عمل وحده نمطيه شو هذه الوحدة النمطية؟ وشو الغرض منها؟ جعفر 1
النجاشي قام بنشر يوليو 1, 2018 الكاتب قام بنشر يوليو 1, 2018 12 دقائق مضت, jjafferr said: شو هذه الوحدة النمطية؟ وشو الغرض منها؟ جعفر قصدي تختص بلون الخط
jjafferr قام بنشر يوليو 1, 2018 قام بنشر يوليو 1, 2018 سؤالك غير واضح اخوي وضاح ، رجاء توضح اكثر جعفر 1
النجاشي قام بنشر يوليو 1, 2018 الكاتب قام بنشر يوليو 1, 2018 8 دقائق مضت, jjafferr said: سؤالك غير واضح اخوي وضاح ، رجاء توضح اكثر جعفر استاذي هو نفس الموضوع بشأن لون الخط فأنت عملته بالتنسيق الشرطي ظهر اهتزاز فقلت لو كان في وحده نمطيه تقوم بعمل المطلوب إذا ممكن ذالك تحياتي اليك استاذنا جعفر
النجاشي قام بنشر يوليو 3, 2018 الكاتب قام بنشر يوليو 3, 2018 احبتي لقد وجدت كود ولكن مادريت كيف اضع له الشرط حتي يصبح يلون خط السجل الحالي صار يلون كل الحقول فكيف الحيليه الكود المسول عن لون الخط بالاخمر كيف يتم تعديله بحيث يصير يتماشي مع التظليل Dim RS As Recordset Dim CountLines Dim F As Form Dim KeyName As String Dim KeyValue Set F = Form KeyName = "Rajmsanf" KeyValue = [Rajmsanf] On Error GoTo Err_GetLineNumber Set RS = F.RecordsetClone Me.Rajmsanf.ForeColor = RGB(255, 0, 0) ' البحث عن السجل الحالي Select Case RS.Fields(KeyName).Type ' البحث واستخدام ترقيم قيمة الحقل Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _ DB_DOUBLE, DB_BYTE RS.FindFirst "[" & KeyName & "] = " & KeyValue ' البحث واستخدام اول قيمة للحقل Case DB_DATE RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#" ' البحث واستخدام المساواة لقيم الحقل Case DB_TEXT RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'" Case Else MsgBox "ERROR: Invalid key field data type!" Exit Function End Select ' الاستمرار والمتابعة في ايجاد بقية الارقام Do Until RS.BOF CountLines = CountLines + 1 RS.MovePrevious Loop Bye_GetLineNumber: ' اظهار النتيجة GetLineNumber = CountLines Exit Function Err_GetLineNumber: CountLines = 0 Resume Bye_GetLineNumber 128.mdb
jjafferr قام بنشر يوليو 4, 2018 قام بنشر يوليو 4, 2018 السلام عليكم اخوي ابو زاهر اذا كان النموذج مستمر: فأي تنسيق/تغيير تعمله على حقل ، فجميع الحقول تأخذ هذا التنسيق/التغيير ، فالطريقة الوحيدة لعمل تنسيق/تغيير على حقل معين ، هو عن طريق التنسيق الشرطي (سواء يدويا في النموذج مباشرة ، او عن طريق الكود). جعفر 1
النجاشي قام بنشر يوليو 4, 2018 الكاتب قام بنشر يوليو 4, 2018 (معدل) منذ ساعه, jjafferr said: السلام عليكم اخوي ابو زاهر اذا كان النموذج مستمر: فأي تنسيق/تغيير تعمله على حقل ، فجميع الحقول تأخذ هذا التنسيق/التغيير ، فالطريقة الوحيدة لعمل تنسيق/تغيير على حقل معين ، هو عن طريق التنسيق الشرطي (سواء يدويا في النموذج مباشرة ، او عن طريق الكود). جعفر وعليكم السلام استاذي القدير بارك الله فيك نشكرك على المجهود ولكن كما قلت التنسيق يدويا أو في النموذج مباشر أو عن طريق كود هل الطريقه عن طريق كود ما بيعمل اهتزاز تحياتي يالغالي تم تعديل يوليو 4, 2018 بواسطه ابو زاهر
jjafferr قام بنشر يوليو 4, 2018 قام بنشر يوليو 4, 2018 منذ ساعه, ابو زاهر said: ولكن كما قلت التنسيق يدويا أو في النموذج مباشر أو عن طريق كود هل الطريقه عن طريق كود ما بيعمل اهتزاز انا لم استعمل الكود سابقا ، ولكني اعرف ان الكود سيقوم بعمل "العمل اليدوي" ، وبالتالي نصل الى نفس النقطة!! جعفر 1
النجاشي قام بنشر يوليو 4, 2018 الكاتب قام بنشر يوليو 4, 2018 10 دقائق مضت, jjafferr said: انا لم استعمل الكود سابقا ، ولكني اعرف ان الكود سيقوم بعمل "العمل اليدوي" ، وبالتالي نصل الى نفس النقطة!! جعفر بارك الله فيك استاذي الغالي جعفر اشكرك كثير على كل ما بذلته جعله الله بميزان حسناتك الحمدلله كذا اقتنعت اقتناع تام ما عاد بفكر بالموضوع لأنه افتكرتك قد تكون هناك وسيله ما تودي الغرض علي كل حال اشكرك كثير يالغالي تحياتي اليك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.