النجاشي قام بنشر يونيو 30, 2018 قام بنشر يونيو 30, 2018 السلام عليكم احبتي عندما اكون واقف على السجل الحالي اريد لون الخط يكون ابيض هل من كود لعمل ذالك اي عندما اتنقل بين السجلات يكون لون الخط ابيض تحياتي احبتي لون_الخط.mdb
النجاشي قام بنشر يونيو 30, 2018 الكاتب قام بنشر يونيو 30, 2018 في 30/6/2018 at 16:44, kanory said: هل جربت التنسيق الشرطي Expand نعم استاذي الفاضللم تنجح اعتقد كمان بيعمل التنسيق اهتزاز ياليت تشوف لي كود الله يعطيك العافيه تحياتي اليك
jjafferr قام بنشر يونيو 30, 2018 قام بنشر يونيو 30, 2018 وعليكم السلام في 30/6/2018 at 16:44, kanory said: هل جربت التنسيق الشرطي Expand هو كما تفضلت وقبل ان اعرض جوابي ، في انتظار جوابك جعفر 1
النجاشي قام بنشر يونيو 30, 2018 الكاتب قام بنشر يونيو 30, 2018 في 30/6/2018 at 17:13, jjafferr said: وعليكم السلام هو كما تفضلت وقبل ان اعرض جوابي ، في انتظار جوابك جعفر Expand حياك استاذنا الفاضل جعفر حاولت نعم بالتنسيق على قدر حالي ولم اتوفق بالحل منتظرين الطريقه الذي لم تعمل اهتزاز انا بكره الاهتزاز شديد ههههههههههه تحياتي اليك
jjafferr قام بنشر يونيو 30, 2018 قام بنشر يونيو 30, 2018 همم انا استعملت حقول اخرى: . ونفس النتيجة . جعفر 940.لون_الخط.mdb.zip 1
النجاشي قام بنشر يونيو 30, 2018 الكاتب قام بنشر يونيو 30, 2018 في 30/6/2018 at 17:23, Shivan Rekany said: لون_الخط.mdbFetching info... Expand استاذي الكريم ابو محمد اهلا وسهلا فيك يالغالي نورت المنتدي حيا بك استاذي الكريم صحيح ان اللون اصبح كويس ولكن بيصير اهتزاز عند التنقل لاعلي واسفل وهذا الا مجننا هل لديك طريقه اخري مشكور على المجهود يالغالي بارك الله فيك في 30/6/2018 at 17:27, jjafferr said: همم انا استعملت حقول اخرى: . ونفس النتيجة . جعفر 940.لون_الخط.mdb.zipFetching info... Expand استاذي الكريم الغالي جعفر نعم مازال الاهتزاز موجود مدوخنا فكنت ابحث عن كود قد يحل الموضوع ممكن التعديل علي هذا ممكن تنحل المشكله 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 في 30/6/2018 at 18:02, jjafferr said: اخي ابو زاهر الاهتزاز اللي تتكلم عنه هو نتيجة تغير/اختلاف اللون الى الابيض ، والكود اللي ارفقه سبق ان نظرت فيه ولم اتوصل الى نتيجه!! جعفر Expand بارك الله فيك استاذي الكريم اوفيت وكفيت باذن الله القي الحل رغم اني قبل كذا مرت عليا مشاركه للاستاذ ادم ولكن مادريت باي موضوع الف شكر اليك يالغالي
kanory قام بنشر يونيو 30, 2018 قام بنشر يونيو 30, 2018 في 30/6/2018 at 17:13, jjafferr said: هو كما تفضلت وقبل ان اعرض جوابي ، في انتظار جوابك Expand اشكرك اخي جعفر ... كفيت ووفيتانت واخي شيفان ... بارك الله فيكما . 1
jjafferr قام بنشر يوليو 1, 2018 قام بنشر يوليو 1, 2018 في 1/7/2018 at 13:32, ابو زاهر said: ممكن احبتي عمل وحده نمطيه Expand شو هذه الوحدة النمطية؟ وشو الغرض منها؟ جعفر 1
النجاشي قام بنشر يوليو 1, 2018 الكاتب قام بنشر يوليو 1, 2018 في 1/7/2018 at 15:09, jjafferr said: شو هذه الوحدة النمطية؟ وشو الغرض منها؟ جعفر Expand قصدي تختص بلون الخط
jjafferr قام بنشر يوليو 1, 2018 قام بنشر يوليو 1, 2018 سؤالك غير واضح اخوي وضاح ، رجاء توضح اكثر جعفر 1
النجاشي قام بنشر يوليو 1, 2018 الكاتب قام بنشر يوليو 1, 2018 في 1/7/2018 at 15:52, jjafferr said: سؤالك غير واضح اخوي وضاح ، رجاء توضح اكثر جعفر Expand استاذي هو نفس الموضوع بشأن لون الخط فأنت عملته بالتنسيق الشرطي ظهر اهتزاز فقلت لو كان في وحده نمطيه تقوم بعمل المطلوب إذا ممكن ذالك تحياتي اليك استاذنا جعفر
النجاشي قام بنشر يوليو 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 (معدل) في 4/7/2018 at 09:16, jjafferr said: السلام عليكم اخوي ابو زاهر اذا كان النموذج مستمر: فأي تنسيق/تغيير تعمله على حقل ، فجميع الحقول تأخذ هذا التنسيق/التغيير ، فالطريقة الوحيدة لعمل تنسيق/تغيير على حقل معين ، هو عن طريق التنسيق الشرطي (سواء يدويا في النموذج مباشرة ، او عن طريق الكود). جعفر Expand وعليكم السلام استاذي القدير بارك الله فيك نشكرك على المجهود ولكن كما قلت التنسيق يدويا أو في النموذج مباشر أو عن طريق كود هل الطريقه عن طريق كود ما بيعمل اهتزاز تحياتي يالغالي تم تعديل يوليو 4, 2018 بواسطه ابو زاهر
jjafferr قام بنشر يوليو 4, 2018 قام بنشر يوليو 4, 2018 في 4/7/2018 at 10:31, ابو زاهر said: ولكن كما قلت التنسيق يدويا أو في النموذج مباشر أو عن طريق كود هل الطريقه عن طريق كود ما بيعمل اهتزاز Expand انا لم استعمل الكود سابقا ، ولكني اعرف ان الكود سيقوم بعمل "العمل اليدوي" ، وبالتالي نصل الى نفس النقطة!! جعفر 1
النجاشي قام بنشر يوليو 4, 2018 الكاتب قام بنشر يوليو 4, 2018 في 4/7/2018 at 11:55, jjafferr said: انا لم استعمل الكود سابقا ، ولكني اعرف ان الكود سيقوم بعمل "العمل اليدوي" ، وبالتالي نصل الى نفس النقطة!! جعفر Expand بارك الله فيك استاذي الغالي جعفر اشكرك كثير على كل ما بذلته جعله الله بميزان حسناتك الحمدلله كذا اقتنعت اقتناع تام ما عاد بفكر بالموضوع لأنه افتكرتك قد تكون هناك وسيله ما تودي الغرض علي كل حال اشكرك كثير يالغالي تحياتي اليك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.