king5star قام بنشر يناير 1, 2017 قام بنشر يناير 1, 2017 السلام عليكم اخوانى اريد طريقة تحويل عمود فى جدول الى صف فى تقرير ؟ فيوجد تقرير بأسم SN بطريقة عرض جدولية اريده ان يكون بدل عمود صف ! Item.zip
صالح حمادي قام بنشر يناير 1, 2017 قام بنشر يناير 1, 2017 يمكنك إنشاء إستعلام جدولي من خلاله تستطيع أن تجعل قيم أحد الأعمدة إلى عناوين حقول
king5star قام بنشر يناير 1, 2017 الكاتب قام بنشر يناير 1, 2017 20 دقائق مضت, صالح حمادي said: يمكنك إنشاء إستعلام جدولي من خلاله تستطيع أن تجعل قيم أحد الأعمدة إلى عناوين حقول تسلم ايدك اخى سوف اجربها وابلغك . لم تفلح اخى فقد وضعت كافة القيم كاسم للحقول ولا استطيع ربطها مع التقرير فهل يوجد حل ؟؟
jjafferr قام بنشر يناير 3, 2017 قام بنشر يناير 3, 2017 السلام عليكم اليك هذه الروابط واقرأ الرابط التالي لآخره ، ثم انتقل الى الرابط الذي به . جعفر 1
king5star قام بنشر يناير 3, 2017 الكاتب قام بنشر يناير 3, 2017 2 دقائق مضت, jjafferr said: السلام عليكم اليك هذه الروابط واقرأ الرابط التالي لآخره ، ثم انتقل الى الرابط الذي به . جعفر شكراً لاهتمامك اخى وسف اقوم بتنفيذ التعليمات واخبرك
Shivan Rekany قام بنشر يناير 3, 2017 قام بنشر يناير 3, 2017 في ٢/١/٢٠١٧ at 00:01, king5star said: تسلم ايدك اخى سوف اجربها وابلغك . لم تفلح اخى فقد وضعت كافة القيم كاسم للحقول ولا استطيع ربطها مع التقرير فهل يوجد حل ؟؟ اخي الكريم انا نزلت القاعده بياناتك كان بها جدول بحقلين فقط ولكي تعمل استعلام جدولي يجب ان يكون مصدر الاستعلام الجدولي بيكون اكثر من حقلين انا اضفت حقل اخر وعملت استعلام جدولي هل هذا هو المطلوب او ... Item.zip 1
king5star قام بنشر يناير 3, 2017 الكاتب قام بنشر يناير 3, 2017 6 ساعات مضت, Shivan Rekany said: اخي الكريم انا نزلت القاعده بياناتك كان بها جدول بحقلين فقط ولكي تعمل استعلام جدولي يجب ان يكون مصدر الاستعلام الجدولي بيكون اكثر من حقلين انا اضفت حقل اخر وعملت استعلام جدولي هل هذا هو المطلوب او ... Item.zip تسلم ايدك اخى وشكراص لمجهودك وتعبك ولكن ليس هذا ما اقصد وهذه صوره لما اريد لقد قمت بتعديلها بالفوتوشوب لاوضح لك . الصورة الاولى ما اريده 12 ساعات مضت, jjafferr said: السلام عليكم اليك هذه الروابط واقرأ الرابط التالي لآخره ، ثم انتقل الى الرابط الذي به . جعفر لم اجد المطلوب سيدي ولقد اوضحت فى المشاركة السابقة ما اريد وشكراً جزيلاً لك لاهتمامك .
Shivan Rekany قام بنشر يناير 4, 2017 قام بنشر يناير 4, 2017 اسف في الحقيقة ما عندي جواب لاسئلتك اعتذر منك
Shivan Rekany قام بنشر يناير 4, 2017 قام بنشر يناير 4, 2017 21 ساعات مضت, king5star said: لم اجد المطلوب سيدي ولقد اوضحت فى المشاركة السابقة ما اريد وشكراً جزيلاً لك لاهتمامك . شوف هذا هل هذا هو طلبك شوفه ووافيني بالنتيجة Item.zip 1
king5star قام بنشر يناير 5, 2017 الكاتب قام بنشر يناير 5, 2017 13 ساعات مضت, Shivan Rekany said: شوف هذا هل هذا هو طلبك شوفه ووافيني بالنتيجة Item.zip كلمة شكراُ ما تكفي ، والمعني أكبر ما توفيه ، ولو بيدي العمر أعطيه ،أعبر له عن مدي شكري. سلمت يداك وهذه النتيجه مرضيه وجيده وما اريد غيرها بارك الله لك اخى . ولكننى ممتن للشرح فى اسطر حتى لو قليله .
Shivan Rekany قام بنشر يناير 5, 2017 قام بنشر يناير 5, 2017 1 ساعه مضت, king5star said: كلمة شكراُ ما تكفي ، والمعني أكبر ما توفيه ، ولو بيدي العمر أعطيه ،أعبر له عن مدي شكري. سلمت يداك وهذه النتيجه مرضيه وجيده وما اريد غيرها بارك الله لك اخى . ولكننى ممتن للشرح فى اسطر حتى لو قليله . اخي الكريم هسة انا بستخدم موبايل وان شاء الله في يوم السبت راح اشرح لك اذا ما يكفي هذه الكلما الاسفل العجب كله بيرجع للوحدة النمطية وبعد احنا عملنا استعلام واضفنا حقل اي دي و في حقل اخر كتبنا هذه الجملة Sn:Convertcolumntorow("[sn]";"sn"؛"]sn]![id]="&[id]) وعملنا تجميع اي كروب للاستعلام
Shivan Rekany قام بنشر يناير 5, 2017 قام بنشر يناير 5, 2017 اسف على قلة شرحي الاول العجب كله يرجع لهذه وحدة نمطية اللي بها فانكشن باسم ConvertColumnToRow وفي الاستعلام راح نستخدم هذا الاسم Public Function ConvertColumnToRow(strField As String, _ strTable As String, _ Optional strWhere As String, _ Optional strOrderBy As String, _ Optional strSeparator = ", ") As Variant On Error GoTo Err_Handler Dim rs As DAO.Recordset Dim rsMV As DAO.Recordset Dim strSql As String Dim strOut As String Dim lngLen As Long Dim bIsMultiValue As Boolean ConvertColumnToRow = Null strSql = "SELECT " & strField & " FROM " & strTable If strWhere <> vbNullString Then strSql = strSql & " WHERE " & strWhere End If If strOrderBy <> vbNullString Then strSql = strSql & " ORDER BY " & strOrderBy End If Set rs = DBEngine(0)(0).OpenRecordset(strSql, dbOpenDynaset) bIsMultiValue = (rs(0).Type > 100) Do While Not rs.EOF If bIsMultiValue Then Set rsMV = rs(0).Value Do While Not rsMV.EOF If Not IsNull(rsMV(0)) Then strOut = strOut & rsMV(0) & strSeparator End If rsMV.MoveNext Loop Set rsMV = Nothing ElseIf Not IsNull(rs(0)) Then strOut = strOut & rs(0) & strSeparator End If rs.MoveNext Loop rs.Close lngLen = Len(strOut) - Len(strSeparator) If lngLen > 0 Then ConvertColumnToRow = Left(strOut, lngLen) End If Exit_Handler: Set rsMV = Nothing Set rs = Nothing Exit Function Err_Handler: MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "ConvertColumnToRow()" Resume Exit_Handler End Function وبعدين عملنا استعلام كما مبينة بالصور وبعدين عملنا تقرير على هذا الاستعلام وحفظنا التقرير باسم Query1 وبعد عملنا تقرير على هذا الاستعلام اي يعني مصدر هذا التقرير هو استعلام Query1 كما مبينة في الصورة وفي النهاية النتيجة طلعت هكذا مع تقدير 1
king5star قام بنشر يناير 6, 2017 الكاتب قام بنشر يناير 6, 2017 17 ساعات مضت, Shivan Rekany said: اسف على قلة شرحي الاول العجب كله يرجع لهذه وحدة نمطية اللي بها فانكشن باسم ConvertColumnToRow وفي الاستعلام راح نستخدم هذا الاسم Public Function ConvertColumnToRow(strField As String, _ strTable As String, _ Optional strWhere As String, _ Optional strOrderBy As String, _ Optional strSeparator = ", ") As Variant On Error GoTo Err_Handler Dim rs As DAO.Recordset Dim rsMV As DAO.Recordset Dim strSql As String Dim strOut As String Dim lngLen As Long Dim bIsMultiValue As Boolean ConvertColumnToRow = Null strSql = "SELECT " & strField & " FROM " & strTable If strWhere <> vbNullString Then strSql = strSql & " WHERE " & strWhere End If If strOrderBy <> vbNullString Then strSql = strSql & " ORDER BY " & strOrderBy End If Set rs = DBEngine(0)(0).OpenRecordset(strSql, dbOpenDynaset) bIsMultiValue = (rs(0).Type > 100) Do While Not rs.EOF If bIsMultiValue Then Set rsMV = rs(0).Value Do While Not rsMV.EOF If Not IsNull(rsMV(0)) Then strOut = strOut & rsMV(0) & strSeparator End If rsMV.MoveNext Loop Set rsMV = Nothing ElseIf Not IsNull(rs(0)) Then strOut = strOut & rs(0) & strSeparator End If rs.MoveNext Loop rs.Close lngLen = Len(strOut) - Len(strSeparator) If lngLen > 0 Then ConvertColumnToRow = Left(strOut, lngLen) End If Exit_Handler: Set rsMV = Nothing Set rs = Nothing Exit Function Err_Handler: MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "ConvertColumnToRow()" Resume Exit_Handler End Function وبعدين عملنا استعلام كما مبينة بالصور وبعدين عملنا تقرير على هذا الاستعلام وحفظنا التقرير باسم Query1 وبعد عملنا تقرير على هذا الاستعلام اي يعني مصدر هذا التقرير هو استعلام Query1 كما مبينة في الصورة وفي النهاية النتيجة طلعت هكذا مع تقدير سلمت يداك اخي .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.