haiderkh

شكرا جزيلا 

استاذ 

محمد أبو عبدالله

ساجرب الاستعلام المذكور

الاخ محمد أبوعبدالله

احسنت جزاك الله خير . تمام هو المطلوب.

لكن لو كانت زيادة الأسماء في جدول 2 وليس جدول 1

سوف لا تظهر الاسماء الاخيرة  في جدول 2

فماهو الحل جزالك الله خير

اريد ان تظهر الاسماء الزائدة سواء في جدول 1  او  جدول 2

مع شكري وتقديري لردك

في ١‏/٤‏/٢٠٢٠ at 17:20, ABOLO2 said:

اخي الكريم 

برجاء توضيح المطلوب اكثر من ذلك حتي يستطيع احد خبراء المنتدي مساعدتك

شكرا جزيلا اخي لردك ما اريده موضح في الصورة المرفقة ارجو ان تكون فيها كل المعلومات التي استفسرت عنها

السلام عليكم ورحمة الله وبركاته 

لدي جدولين الاول يحتوي على حقل اسمه n1

والثاني يحتوي على حقل اسمه n2

اريد دمج حقل n1 مع n2 في جدول جديد 

علما ان الجدولين ليس بينهما علاقات

تمكن من دمجهما باستخدام استعلام  

ولكن واجهت مشكلة تكرار البيانات

وعند وضع شرط معين (معيار) للدمج لا تظهر كل البيانات

مثال

حقل n1 بياناته

عبدالله 

محمد 

حسن

‐----------------

حقل n2 بياناته

سعيد

علي 

هشام

ناصر

تظهر البيانات في الحقل الجديد كالاتي

عبد الله سعيد

محمد علي

حسن هشام

فقط 

ولا يظهر اسم ناصر من الجدول الثاني

اريد ان تظهر جميع الاسماء 

ولا باس ان كان الدمج في جدول جديد  او استعلام

مع الشكر لكم وعذرا على الاطالة

السلام عليكم اخوتي الكرام

كما في العنوان لدي مستند وورد اريد ان تظهر ترجمه لبعض الكلمات فوق السطر وكما في الصورة التالية

فكيف يمكن عمل ذلك

شكرا جزيلا استاذ

jjafferr

بارك الله بك  الكود يعمل

للرفع

احسنت استاذ يعمل تمام

ولكن هل يمكن ان اجعله عند عرض التقرير لان الكود الحالي يعمل عند الطباعة فقط

واعتذر لاني اثقلت عليك

ساقوم بتجربته حالا شكرا جزيلا لك ولكن في اي حدث اضعه

شكرا جزيلا لردك استاذنا الكريم 

الموضوع طويل استاذ

ولكن لاختصاره اقول

اريد ان احرك هذا الصف الى مكان اخر مثلا

If me.id.value=4 then

Me.id.left=3000

End if

عند استخدام هذا الكود تتحرك كل مربعات ID الى المكان المحدد وليس المربع الذي فيه ID يساوي ٤

اساتذتنا الكرام  , اعضاء منتدانا هذا

السلام عليكم ورحمة الله وبركاته

في البداية اسمحو لي ان اقول اني اعتب كثيرا عليكم ولكن هو عتب المحب

لم احصل على اجابات لأستفسارات كثيرة سابقة ولا حتى محاولات للاستيضاح ان كان المطلب غير واضح الا قليل

اتصور انكم تعذروني في ذلك لاننا في بداية الطريق

واسمحو لي ان استفسر هذه المرة عن امر اراه صعبا علي لكنه بسيطا بالنسبة لكم

في الصورة المرفقة كيف يمكن الاشارة الى الصف المحدد بالدائرة الحمراء عند عرض التقرير

هل ينفع ان نكتب

Me.ID.Value=4

هل هذا صحيح ام ان هناك طريقة اخرى وفي اي حدث

لاني اريد ان احرك هذا الصف الى مكان اخر غير الذي هو فيه

وعذرا للاطالة

للرفع ... 

في المثال توضيح اكثر اخي الكريم شلكرا لك سرعة ردك

السلام عليكم 

لدي جدول يحتوي عدة حقول احد هذه الحقول اريد ان اتركة فارغة عند تعبئة البيانات وهو الحقل (qa) و أريد تعبئتة من النموذج من خلال شرط معين لكن لم تعمل جملة inert بشكل صحيح الرجاء المساعدة في ذلك جزيتم خيرا

insert example.accdb

شكرا لك اخي الكريم بارك الله فيك رغم ان هذا الموضوع ليس ما اريده بالضبط

في المشاركة التي اشرت لها حضرتك عمل المصمم ثلاثة انواع من التقارير وفي كل مرة يستدعي احدهما

للرفع 

2 ساعات مضت, فايز.. said:

وعليكم السلام 

أرفق ملفك .. 

ووضح طلبك أكثر .. 

شكرا جزيلا استاذ فايز لسرعة ردك

هذا مرفق لما ارغب بة جزيت خيرا

القاعات.rar

الاخوة الكرام في منتدانا هذا السلام عليكم
هل يمكن التحكم في عدد الصفوف وعدد الاعمدة في تقرير اكسيس كما في الصورة المرفقة
وذلك من خلال مربعات ادخال في النموذج الاول لادخال عدد الصفوف والثاني لادخال عدد الاعمدة

الاستاذ سليم حاصبيا

شكرا جزيلا لك لا اعرف كيف اشكرك

ولكن اسال الله ان يجزيك خيرا على كل ما قدمت

الكود بعد التغيير يعمل بشكل صحيح عدا البيانات في السطر الاول من المجموعة الاولى تكون فارغة وبياناتها تظهر في ورقة اخرى

وحاولت كثيرا كي اعرف السبب ولم اقدر

الاستاذ سليم حاصبيا

حبذا لو تم التعديل على المثال المرفق لان الكود لم يعمل لدي مع العلم تم تغيير بعض الامور فيه ليتلائم مع ما موجود لدي

الأستاذ سليم حاصبيا السلام عليكم

هذا هو المثال ارجو الاطلاع عليه جزاك الله خيرا وان كان لديك الوقت ارجو تقييم اخطاءة واسف جدا لاني اثقل عليك

TEST2.rar

في 22‏/2‏/2020 at 15:18, سليم حاصبيا said:

ممكن ذلك بهذا التعديل على الماكرو

Option Explicit
Sub Copy_As_you_Like1()
Dim S As Worksheet, sec As Worksheet
Dim i%
Dim Last%, m%, k%, Howmay_row
Set S = Sheets("Source"): Set sec = Sheets("second_sh")
sec.Range("A3").CurrentRegion.Clear
m = S.Range("F6"): Howmay_row = S.Range("F7")
Last = S.Cells(Rows.Count, 2).End(3).Row
m = 3: k = 2
 For i = 3 To Last
  sec.Cells(m, k) = S.Cells(i, 3)
  sec.Cells(m, k + 1) = S.Cells(i, 2)
    m = m + 1
   
  If m Mod (Howmay_row + 3) = 0 Then
   m = 3: k = k + 2
   End If
 Next
 With sec.Range("B3").CurrentRegion
  .Interior.ColorIndex = 6
  .Borders.LineStyle = 1
  .InsertIndent 1
 End With
End Sub

 

السلام عليكم استاذ سليم حاصبيا

بارك الله بك لمساهماتك القيمة واجاباتك الشافيه الوافيه

الكود الذي تفضلت بذكره في أعلاه ممتاز ويعمل جيدا 

ولكن كيف يمكن ان نغير فيه ليتعامل مع أربعة أعمدة بدل من عمودين  كما هو الان

اي ان يقوم بتوزيع أربعة أعمدة 

للرفع

السلام عليكم ما اتمناه عليكم ان يتم دمج الصفوف المؤشرة تحت كل مجموعة معا  المجموعة الاولى في عمود T وu والمجموعة الثانية في عمود W و X

والمثال المرفق فيه توضح اكثر

TEST2.xlsx

الأستاذ سليم حاصبيا شكرا جزيلا لك زادك الله من علمه وجعل ذلك في ميزان حسناتك

دمت موفقا