نادر ابو احمد قام بنشر مايو 14, 2009 مشاركة قام بنشر مايو 14, 2009 السلام عليكم ورحمة الله السادة الاعزاء لدي شيكات تحت التحصيل باعداد كبيرة وعند استحقاق الشيك اقوم بعكسة بسند قيد فيكون البنك مدين وشيكات تحت التحصيل دائن ولقد رغبت ان يكون ذلك بصفة اليه توفيرا للوقت والجهد ، فانشأت نموذج يجلب الجانب المدين من الشيكات تحت التحصيل وبجانب كل شيك انشأت زر - وارفق النموذج لزيادة الايضاح مطلوب : اولا : عند اختيار (الحساب المدين) ان لا يظهر بكل الصفوف - ثانيا : عند الضغط علي زر ( قيد ) يتم انشاء سجلين في الجدول Trans - الجانب المدين سيكون البنك والمبلغ سيكون في Dr الذي سيتم اختيارة - والجانب الدائن سيكون حساب ثابت وهو 4800001 والمبلغ سيكون في Cr - مع اعطاء رقم لهذا القيد وذلك الرقم سيكون اكبر من الموجود بالجدول، ويصبح تاريخ الشيك هو تاريخ القيد. مع جزيل الشكر PDC_Check.zip لمزيد من الايضاح ارفق طية صورة توضيحية بخصوص اختيار الحساب المدين - البنك - فمن لدية فكرة اخري لفلا مانع من طرحها تنفيذا للفكرة ينتج لكل شيك سطران جدد بالجدول رابط هذا التعليق شارك More sharing options...
Dream_Works قام بنشر مايو 15, 2009 مشاركة قام بنشر مايو 15, 2009 أرجو أن يكون هذا طلبك PDC_Check.zip رابط هذا التعليق شارك More sharing options...
نادر ابو احمد قام بنشر مايو 15, 2009 الكاتب مشاركة قام بنشر مايو 15, 2009 اخي الكريم شكرا جزيلا وجزاك الله خيرا فعلا هذا هو المطلوب ادامك الله زخرا رابط هذا التعليق شارك More sharing options...
نادر ابو احمد قام بنشر مايو 17, 2009 الكاتب مشاركة قام بنشر مايو 17, 2009 اخي الفاضل لي طلب اخير لو سمحت ممكن يظهر رقم سند القيد برسالة - حتي استطيع الرجوع اليه - وجزاك الله الف خير رابط هذا التعليق شارك More sharing options...
Dream_Works قام بنشر مايو 17, 2009 مشاركة قام بنشر مايو 17, 2009 أخي الكريم أرجو أني قد فهمت ما تريد بالشكل المطلوب أضف سطر الكود هذا إلى برنامجك MsgBox "تم تسجيل القيد رقم " & DOCNO ليصبح كله بهذا الشكل Dim rs As DAO.Recordset, i As Byte, AccountNumber As String, DOCNO As Long AccountNumber = Me.DebitAccount DOCNO = CLng(DMax("DOCNO", "Trans", "DocType Like '*قيد*' ")) + 1 Set rs = CurrentDb.OpenRecordset("Trans") With rs For i = 1 To 2 .AddNew .Fields("ACCTNO") = AccountNumber .Fields("DOCTYPE") = "سند قيـد-JV" .Fields("DOCNO") = DOCNO .Fields("DATE") = Me.DATE .Fields("DETAILS") = Me.DETAILS .Fields("Chq_Dat") = Me.DATE .Fields("ChqNo") = Me.ChqNo If i = 1 Then .Fields("DR") = Me.DR Else .Fields("CR") = Me.DR End If .Update AccountNumber = 4800001 Next i .Close End With MsgBox "تم تسجيل القيد رقم " & DOCNO End Sub رابط هذا التعليق شارك More sharing options...
نادر ابو احمد قام بنشر مايو 17, 2009 الكاتب مشاركة قام بنشر مايو 17, 2009 اخي الكريم نعم هو ده المطلوب شكرا جزيلا لك ادخلك الله الجنة من اوسع ابوابها رابط هذا التعليق شارك 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.