النقر المزدوج لفتح تقرير بواسطة نموذج فرعي

[كريمو2]

السلام عليكم أساتذتي الكرام

بالمرفق ادناه المطلوب عند النقر مرتين عند تاريخ السحب في الفورم frmCcp يفتح التقرير rptTransfer

به تاريخ السحب ورقم الصك المسحب ومبلغ السحب بما في ذالك أسماء المستفيدين ومبالغ إستفادتهم وملاحظات الخاصة بهم اثناء التاريخ الذي تم الدخول به

علما ان الفورم FrmTransfer هو الفورم الأساسي للدخول لهذا التقرير بعد التعديل على تاريخ الجهاز ليظهر عند مربع النص "دفع المستحقات خلال الشهر"

krimo2015.rar

تم تعديل ديسمبر 14, 2015 بواسطه كريمو2

[jjafferr]

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

'    stDocName![rptTransfer]![qryTransfer].Controls("Datetirag") = Me.Datetirag
'    DoCmd.Close acReport, "rptTransfer"
    DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datetirag & "#"

في حدث النقر المزدوج ، اعمل هذا التغيير:

 

 

جعفر

[كريمو2]

حياك الله استاذي الكريم جعفر

والله لك مكانة كبيرة في القلب

عملت الحدث كما يلي :

'------------------------------------------------------------
' Datetirag_Click
'
'------------------------------------------------------------
Private Sub Datetirag_DblClick(Cancel As Integer)

On Error GoTo Datetirag_Click_Err
'    stDocName![rptTransfer]![qryTransfer].Controls("Datetirag") = Me.Datetirag
'    DoCmd.Close acReport, "rptTransfer"
    DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datet

Datetirag_Click_Exit:
    Exit Sub

Datetirag_Click_Err:
    MsgBox Error$
    Resume Datetirag_Click_Exit



End Sub

عند النقر مرتين ظهرت هذه الرسالة

 

تم تعديل ديسمبر 14, 2015 بواسطه كريمو2

[jjafferr]

أخي كريمو 

 

شوف الفرق بين معادلتك ومعادلتي:

معادلتي

DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datetirag & "#"


ومعادلتك
DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datet

 

 

جعفر

[كريمو2]

تم التغيير استاذي الكريم

ولكن لم يدخل التقرير مباشرة بل ظهر لي 03 ميسجات كما في الصورة

يبدو انه يجب التعديل ايضا في التقرير

 

[jjafferr]

نعم ، انت قلت:

5 ساعات مضت, كريمو2 said:

علما ان الفورم FrmTransfer هو الفورم الأساسي للدخول لهذا التقرير

فالرسالة الاولى تطلب المعلومة من النموذج FrmTransfer ،

 

اما الرسالتين الباقيتين ، فلم اعرف مصدرها 

 

جعفر

عفوا

بالنسبة للرسالة الثانية ، فالتقرير فيه هذا الحقل ، ولكن لا يوجد ما يشير الى مصدره!!

الرسالة الثالثة لم اعرفها من اين

[كريمو2]

48 دقائق مضت, jjafferr said:

اما الرسالتين الباقيتين ، فلم اعرف مصدرها 

عفوا

بالنسبة للرسالة الثانية ، فالتقرير فيه هذا الحقل ، ولكن لا يوجد ما يشير الى مصدره!!

الرسالة الثالثة لم اعرفها من اين

مصدر هاذين الرسالتين من الجدول CCP

كيف يتم إدراج هذين الحقلين من الجدول المذكور ضمن الإستعلام qry_1-5

ملاحظة : المبالغ والتواريخ ورقم الحسابات في الفورم frmCcp كتبت يدويا

علما انه اذا تم الدخول من الفورم frmTransfer يطلب الا ادخال رقم الحساب اما المبالغ والتواريخ تجدها نفسها

او بالأحرى ماهي الطريقة :

اذا دخلت بالفورم frmTransfer  يتم تسجيل "" رقم الحساب الذي هو مربع  نص غير منظم يتم ادخال قيمة معلمة يدويا  والتاريخ(txtMonth) الموجود في التقرير ب M والمبلغ(SumOfTheValue) "" في الجدول ccp

تم تعديل ديسمبر 14, 2015 بواسطه كريمو2

[حسين العربى]

الان, كريمو2 said:

 

krimo2015.rar

 

الان, jjafferr said:

 

[jjafferr]

2 ساعات مضت, كريمو2 said:

او بالأحرى ماهي الطريقة :

اذا دخلت بالفورم frmTransfer  يتم تسجيل "" رقم الحساب الذي هو مربع  نص غير منظم يتم ادخال قيمة معلمة يدويا  والتاريخ(txtMonth) الموجود في التقرير ب M والمبلغ(SumOfTheValue) "" في الجدول ccp

.

اخبرني اي حقل ، واي سجل في الجدول يجب ان تدخل بيانات النموذج frmTransfer اليها ، وساحاول ايجاد الطريقة ان شاء الله 

 

 

جعفر

[كريمو2]

23 دقائق مضت, jjafferr said:

 

اخبرني اي حقل ، واي سجل في الجدول يجب ان تدخل بيانات النموذج frmTransfer اليها ، وساحاول ايجاد الطريقة ان شاء الله 

 

يوجد 3 حقول في الجدول CCP هي التي اريد ان يكتب فيها تلقائيا خلال كل شهر مايلي :

رقم الحساب "N° ccp"

تاريخ "Datetirag"

المبلغ "Monttirag"

ملاحظة : ادخل على الفورم FrmTransfer خلال شهر ديسمبر 2015

كما في الصورة

التحويل مرة واحدة فقط

 

 

[كريمو2]

9 ساعات مضت, كريمو2 said:

يوجد 3 حقول في الجدول CCP هي التي اريد ان يكتب فيها تلقائيا خلال كل شهر مايلي :

رقم الحساب "N° ccp"

تاريخ "Datetirag"

المبلغ "Monttirag"

ملاحظة : ادخل على الفورم FrmTransfer خلال شهر ديسمبر 2015

كما في الصورة

التحويل مرة واحدة فقط

 

 

للتذكير : رقم الصك البريدي او الحساب N° Ccp المشار اليه بالدائرة الزرقاء يكتب يدويا خلال دفعة كل شهر في التقرير rptTransfer بناءا على الدخول من الفورم FrmTransfer

[jjafferr]

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

 

والله من أمس وانا ادور في حلقه مفرغه وماني قادر استوعب المطلوب 

 

18 ساعات مضت, كريمو2 said:

يوجد 3 حقول في الجدول CCP هي التي اريد ان يكتب فيها تلقائيا خلال كل شهر مايلي :

1. رقم الحساب "N° ccp"

2. تاريخ "Datetirag"

3. المبلغ "Monttirag"

ملاحظة : ادخل على الفورم FrmTransfer خلال شهر ديسمبر 2015

كما في الصورة

التحويل مرة واحدة فقط

النموذج FrmTransfer لا يحتوي على (1) ، ولا (3) ، فمن اين تريد ان تأخذ هذه البيانات لإدخالها للجدول CCP !!

التحويل مرة واحدة فقط ؟؟

انا اعتذر منك ، فالمسأسلة فيها حلقه ضائعة ، فرجاء تشرح لي بالتفصيل عن المطلوب 

 

جعفر

[كريمو2]

منذ ساعه, jjafferr said:

النموذج FrmTransfer لا يحتوي على (1) ، ولا (3) ، فمن اين تريد ان تأخذ هذه البيانات لإدخالها للجدول CCP !!

التحويل مرة واحدة فقط ؟؟

انا اعتذر منك ، فالمسأسلة فيها حلقه ضائعة ، فرجاء تشرح لي بالتفصيل عن المطلوب 

وعليكم السلام استاذ جعفر

فعلا المشكلة عويصة فالنموذج FrmTransfer لا يحتوي على (1) . رقم الحساب "N° ccp"، ولا (2). تاريخ "Datetirag"  , ولا (3). المبلغ "Monttirag"

ولكن التقرير rptTransfer يحتوي على مربعات نص مساوية لـ (1) و (2) و (3)

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

- أدخل رقم الصك المسحوب يحول بإسم رقم الحساب "N° ccp"

- Forms!FrmTransfer!txtMonth1 يحول بإسم تاريخ "Datetirag"

- Sum([SumOfTheValue]) يحول بإسم المبلغ "Monttirag"

أما بخصوص التحويل مرة واحدة فأقصد به مرة واحدة في الشهر إذا كانت فيه مبالغ اي في نفس الشهر اذا اردت الدخول عن هذا التقرير لايتم التحويل لأنه تم سابقا

تم تعديل ديسمبر 15, 2015 بواسطه كريمو2

[jjafferr]

السلام عليكم

 

14 ساعات مضت, كريمو2 said:

- أدخل رقم الصك المسحوب يحول بإسم رقم الحساب "N° ccp"

- Forms!FrmTransfer!txtMonth1 يحول بإسم تاريخ "Datetirag"

قصدك ان (1) نعمل حقل بإسم Nccp في النموذج FrmTransfer ونخذ المعلومه منه ، (2) ومن الحقل txtMonth1 ،

 

14 ساعات مضت, كريمو2 said:

ولكن التقرير rptTransfer يحتوي على مربعات نص مساوية لـ (1) و (2) و (3)

- Sum([SumOfTheValue]) يحول بإسم المبلغ "Monttirag"

 

التقرير مبني على الاستعلام qry_1-5 ، فهذا معناه اننا نستطيع ان نستخلص (3) Sum([SumOfTheValue])  المطلوبة مباشرة من الاستعلام ؟

 

 

جعفر

[كريمو2]

اهلا وسهلا استاذ جعفر

01- نفهم من اخر رد اننا سنصل الى حل للمشكلة بحول الله

فالنجرب الفكرة

02- جربت هذا الكود في حدث عند الغلق في التقرير خاص بنقل المبلغ المالي فقط من التقرير الى الجدول Ccp ولكن لم يقم بما هو مطلوب

Private Sub Report_Close()
   If MsgBox("هل تريد اضافه المبلغ " & vbCrLf & "", vbYesNo, " اضافه") = vbYes Then
Dim Rs As DAO.Recordset
'Ccpاسم الجدول
   Set Rs = CurrentDb.OpenRecordset("Ccp")
   Rs.MoveFirst
      'للبحث عن مبلغ السحب في الجدول
   Do Until Rs.EOF
   'TheValues اسم مربع النص في التقرير
   'TheValue اسم الحقل الموجود به لاسم في الجدول
   'اذا لم يجد السجل
    If Rs!TheValue <> TheValues Then
    'اضافه
         Rs.AddNew
         Rs!TheValue = TheValues
         Rs.Update
         MsgBox "تم الاضافه"

    Else
       MsgBox "المبلغ مكرر"

   End If
   Rs.MoveNext
   Loop
End If
Set Rs = Nothing
End Sub

 

تم تعديل ديسمبر 16, 2015 بواسطه كريمو2

[jjafferr]

7 ساعات مضت, jjafferr said:

مباشرة من الاستعلام

انا قلت الاستعلام ، ولم اقل التقرير 

 

لذا ، استعمل كود شبيه (ولكن على الاستعلام) ، يعمل من النموذج FrmTrasfer قبل فتح التقرير  مثلا ، هكذا:

 

Set Rs = CurrentDb.OpenRecordset("Select * From qry_1-5")

 

 

جعفر

وتحصل على المجوع هكذا مثلا:

S= Dsum ("[Thevalue]","[qry_1-5]")

 

جعفر

تم تعديل ديسمبر 16, 2015 بواسطه jjafferr

[كريمو2]

1 ساعه مضت, jjafferr said:

لذا ، استعمل كود شبيه (ولكن على الاستعلام) ، يعمل من النموذج FrmTrasfer قبل فتح التقرير  مثلا ، هكذا:

Set Rs = CurrentDb.OpenRecordset("Select * From qry_1-5")

وتحصل على المجموع هكذا مثلا:

S= Dsum ("[Thevalue]","[qry_1-5]")

لم افهم استاذ جعفر ماطلبته مني بالتدقيق

[jjafferr]

هاك الخطوات:

 

نستعمل الاستعلام من التقرير:

.

نحفظه باسم qry_1-5_Sum

.

في النموذج ، FrmTransfer نضع هذا الكود لعملية الجمع ، وتستطيع جمع نتائج الاستعلام مع هذه النتيجة:

.

وقد عملت حقل لرقم الحساب في النموذج ، والنتيجة :

.

 

الآن عندك رقم الحساب ، والمجموع والتاريخ من النموذج ، فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت 

 

 

جعفر

 

 

[كريمو2]

لم تظهر النتائج بالجدول CCP

عموما انظر ماطبقت ولكن يبدو فيه اختلاف بين ما اشرت اليه وما وجدته

krimo2015V1.rar

[jjafferr]

لا يا كريمو ، هذا مو انصاف منك!!!

هذه المرة اشوفك متخربط!!

 

انا قلت:

 

وانت طبعا تطلع نتائجك خطأ ، لأنك كتبت المعادلة خطأ

 

وبعد التصحيح الى معادلتي ، هذه نتيجة الاستعلام والتقرير والكود:

.

 

29 دقائق مضت, كريمو2 said:

لم تظهر النتائج بالجدول CCP

.

انا اعطيتك البيانات وقلت لك:

منذ ساعه, jjafferr said:

فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت 

فيعني انا ما عملت اي شئ بالجدول CCP

 

جعفر

[كريمو2]

اخي واستاذي جعفر

لقد اوصلتني للبئر ورجعت دون اقتناء ولو جرعة صغيرة من مائه

"فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت "

هنا ما فهمت كيف تدخل النتائج للجدول

معليش اكمال ماتبقى يكون كرما منك استاذ

تقبل تحياتي

 

[jjafferr]

تعرف ليش الرسالة فارغة؟

انظر الى الكود مرة اخرى ، وستلاحظ انك استخدمت msgbox a بدل msgbox S !!

 

اعطني دقائق وساعمل على بقية الكود 

 

 

جعفر

تفضل 

 

هذا كود الالحاق للجدول CCP ، وطبعا تقدر قبل الادخال انك تتأكد من البيانات هذا الشهر اذا كانت موجودة (كما عملت انت في كود التقرير عند حدث الغلق) او بأي طريقة اخرى:

 

والنتيجة:

 

جعفر

 

288.krimo2015V1.mdb.zip

تم تعديل ديسمبر 16, 2015 بواسطه jjafferr

[كريمو2]

شكرا لك استاذ هو المطلوب فعلا

اخر اللمسات ميساج يخبرني هل تريد ان تنقل القيم الى الجدول CCP  نعم / لا

في نظري نعمل شرط اساسي وهو التحويل يتم الا بملء رقم الحساب هكذا يكون افضل واذا لم يكتب رقم الحساب لا يتم التحويل

بورك فيك استاذ لى المجهود

دمت ذخرا لنا وللمنتدى المفضل

تقبل تحياتي القلبية الخالصة

[jjafferr]

تفضل 

 

وهذا هو الكود الاخير:

 
If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then
    MsgBox "Error !! SELECT A VALID Date."
    txtMonth.SetFocus
    Exit Sub

ElseIf Len(Me.NCcp & "") = 0 Then
    MsgBox "Error !! SELECT A VALID N CCP number."
    Me.NCcp.SetFocus
    Exit Sub
End If
 
On Error GoTo Err_cmdTransfer_Click
'DoCmd.OpenReport "rptTransfer", acPreview
'DoCmd.OpenReport "rptTransfer", acViewPreview

   

Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * From CCP")
    rst.MoveLast: rst.MoveFirst

    rst.FindFirst Month(txtMonth) & Year(txtMonth) = Month(Me.txtMonth1) & Year(Me.txtMonth1)
    
    Dim Msg, Style, Title, Response

    If rst.NoMatch Then
    
        Msg = "This month is NOT in the table CCP" & vbCrLf & _
              "Do you want to ADD A NEW RECORD ?"
        Style = vbYesNo + vbCritical + vbDefaultButton2
        Title = "No values in CCP"

        Response = MsgBox(Msg, Style, Title)
        If Response = vbYes Then    ' User chose Yes.
            rst.AddNew
                rst!NCcp = Me.NCcp
                rst!txtMonth = Me.txtMonth1
                rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]")
            rst.Update
        Else    ' User chose No.
            GoTo Exit_Sub
        End If

        
    Else
        
        Msg = "The following values exist in the table CCP" & vbCrLf & _
              "Account number=" & rst!NCcp & vbCrLf & _
              "Month=" & rst!txtMonth & vbCrLf & _
              "Value=" & rst!TheValue & vbCrLf & vbCrLf & _
              "Do you want to UPDATE ?"
        Style = vbYesNo + vbCritical + vbDefaultButton2
        Title = "values found in CCP"

        Response = MsgBox(Msg, Style, Title)
        If Response = vbYes Then    ' User chose Yes.
            rst.Edit
                rst!NCcp = Me.NCcp
                rst!txtMonth = Me.txtMonth1
                rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]")
            rst.Update
        Else    ' User chose No.
            GoTo Exit_Sub
        End If
    End If
    
    
    'DoCmd.OpenQuery "qry_1-5_Sum"
    'S = DSum("[TV]", "[qry_1-5_Sum]")
    'MsgBox S
    
Exit_Sub:
    rst.Close: Set rst = Nothing
    
Exit_cmdTransfer_Click:
Exit Sub
 

 

 

جعفر

 

288.krimo2015V1.mdb.zip

تم تعديل ديسمبر 17, 2015 بواسطه jjafferr

[كريمو2]

شكرا لك استاذ جعفر