كيف يمكن انشاء سند قيد تلقائي - عند الضغط علي الزر

[نادر ابو احمد]

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

السادة الاعزاء

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

ولقد رغبت ان يكون ذلك بصفة اليه توفيرا للوقت والجهد ، فانشأت نموذج يجلب الجانب المدين من الشيكات تحت التحصيل وبجانب كل شيك انشأت زر - وارفق النموذج لزيادة الايضاح

مطلوب : اولا : عند اختيار (الحساب المدين) ان لا يظهر بكل الصفوف - ثانيا : عند الضغط علي زر ( قيد ) يتم انشاء سجلين في الجدول Trans - الجانب المدين سيكون البنك والمبلغ سيكون في Dr الذي سيتم اختيارة - والجانب الدائن سيكون حساب ثابت وهو 4800001 والمبلغ سيكون في Cr - مع اعطاء رقم لهذا القيد وذلك الرقم سيكون اكبر من الموجود بالجدول، ويصبح تاريخ الشيك هو تاريخ القيد.

مع جزيل الشكر

PDC_Check.zip

لمزيد من الايضاح ارفق طية صورة توضيحية

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

ينتج لكل شيك سطران جدد بالجدول

[Dream_Works]

أرجو أن يكون هذا طلبك

PDC_Check.zip

[نادر ابو احمد]

اخي الكريم شكرا جزيلا وجزاك الله خيرا فعلا هذا هو المطلوب

ادامك الله زخرا

[نادر ابو احمد]

اخي الفاضل

لي طلب اخير لو سمحت

ممكن يظهر رقم سند القيد برسالة - حتي استطيع الرجوع اليه -

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

[Dream_Works]

أخي الكريم

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

أضف سطر الكود هذا إلى برنامجك

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

[نادر ابو احمد]

اخي الكريم

نعم هو ده المطلوب

شكرا جزيلا لك

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