زياد الحسناوي قام بنشر يناير 31, 2019 مشاركة قام بنشر يناير 31, 2019 السلام عليكم اساتذتي الافاضل الملف المرفق فيه فورم للتصدير الى اكسل حيث تم تحويل اسماء الجداول من الانكليزي الى العربي وبفضل استاذي @صالح حمادي والان اردت ان احول اسماء الحقول الى العربية بواسطة أضافة جدول به ثلاثة حقول (اسم الحقل . اسمه بالعربية . الجدول) و ولكني لم استطع استعمال الفلترة من أجل ظهور حقول الجدول المختار فقط. ولم اصل الى حل لذلك اكسل.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 31, 2019 مشاركة قام بنشر يناير 31, 2019 وعليكم السلام 🙂 رجاء توضيح طلبك بمثال لوسمحت. والقي نظرة على هذا الموضوع جعفر رابط هذا التعليق شارك More sharing options...
زياد الحسناوي قام بنشر يناير 31, 2019 الكاتب مشاركة قام بنشر يناير 31, 2019 2 ساعات مضت, jjafferr said: وعليكم السلام 🙂 رجاء توضيح طلبك بمثال لوسمحت. والقي نظرة على هذا الموضوع جعفر @jjafferr اسف لكون،طلبي لم يتم فهمه المطلوب هو تحويل اسماء الحقول الى مسميات عربية بدل المسمى الانكليزي حاله من حال اسماء الجدول. رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 1, 2019 مشاركة قام بنشر فبراير 1, 2019 (معدل) بعد اذن اخي jjafferr اظن اني فهمت الاخ زياد الحسناوي اتفضل شوف اظن انه طلبك حسب ما فهمت اكسل.rar وهذا بالطريقه الاخرى final.rar تم تعديل فبراير 1, 2019 بواسطه ابو ياسين المشولي 2 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 1, 2019 مشاركة قام بنشر فبراير 1, 2019 بعد اذن اخي jjafferr اظن اني فهمت الاخ زياد الحسناوي اتفضل شوف اظن انه طلبك حسب ما فهمت وهذا مع عنوان العمود final.rar 1 رابط هذا التعليق شارك More sharing options...
زياد الحسناوي قام بنشر فبراير 1, 2019 الكاتب مشاركة قام بنشر فبراير 1, 2019 5 ساعات مضت, ابو ياسين المشولي said: بعد اذن اخي jjafferr اظن اني فهمت الاخ زياد الحسناوي اتفضل شوف اظن انه طلبك حسب ما فهمت اكسل.rar وهذا بالطريقه الاخرى final.rar @ابو ياسين المشولي عاشت ايدك استاذ وهو المطلوب ممكن اعرف شو الي تغير وكيف تم ذلك رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 1, 2019 مشاركة قام بنشر فبراير 1, 2019 7 ساعات مضت, زياد الحسناوي said: @ابو ياسين المشولي عاشت ايدك استاذ وهو المطلوب ممكن اعرف شو الي تغير وكيف تم ذلك هذا ما تم عمله تعديل في الكود فاصبح هكذا وتعديل في تصميم الحقول اللي في الصورة Set db = CurrentDb Set Td = db.TableDefs(Me.ChooseTble) Me.ChooseField.RowSource = "" Me.ChooseField.AddItem ("اسماء الحقول") For Each fld In Td.Fields On Error Resume Next sCaption = fld.Properties("Caption") If fld.Type = 4 And fld.Attributes = 17 Then Me.ChooseField.AddItem fld.Name & ";" & sCaption Else Me.ChooseField.AddItem fld.Name & ";" & sCaption End If Next 2 رابط هذا التعليق شارك More sharing options...
زياد الحسناوي قام بنشر فبراير 1, 2019 الكاتب مشاركة قام بنشر فبراير 1, 2019 5 ساعات مضت, ابو ياسين المشولي said: هذا ما تم عمله تعديل في الكود فاصبح هكذا وتعديل في تصميم الحقول اللي في الصورة Set db = CurrentDb Set Td = db.TableDefs(Me.ChooseTble) Me.ChooseField.RowSource = "" Me.ChooseField.AddItem ("اسماء الحقول") For Each fld In Td.Fields On Error Resume Next sCaption = fld.Properties("Caption") If fld.Type = 4 And fld.Attributes = 17 Then Me.ChooseField.AddItem fld.Name & ";" & sCaption Else Me.ChooseField.AddItem fld.Name & ";" & sCaption End If Next @ابو ياسين المشولي شكرا الك استاذ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.