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

[بوعبد الله محفوظ]

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

أريد ترحيل البيانات من الجدول الفانورة إلى الجدول ترحيل فاتورة عن طريق الفورم ترحيل فاتورة

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

فقط في الجدول ترحيل فاتورة قمت بإضافة عمود جديد باسم رقم الفاتورة مرحل

وفي الفورم قمت بإضافة الكود التالي إلى رقم الفاتورة مرحل

=IIf(IsNull(DMax("[رقم الفاتورة مرحل]";"ترحيل فاتورة")+1);1;DMax("[رقم الفاتورة مرحل]";"ترحيل فاتورة")+1)

المشكلة عندي ان الترقيم لا يظهر

وأنا أريد عند اختيار عميل والضغط على زر ترحيل فاتورة أن تأخذ السجلات مهما كان عددها نفس الرقم

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

الفانورة5.rar

تم تعديل يناير 29, 2016 بواسطه بوعبد الله محفوظ

[jjafferr]

17 ساعات مضت, بوعبد الله محفوظ said:

وأنا أريد عند اختيار عميل والضغط على زر ترحيل فاتورة أن تأخذ السجلات مهما كان عددها نفس الرقم

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

 

حيا الله المحفوظ بوعبدالله 

 

بلا امارة عليك ، شو الرقم اللي تريد كل السجلات تأخذه؟

 

جعفر

[بوعبد الله محفوظ]

منذ ساعه, jjafferr said:

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

 

حيا الله المحفوظ بوعبدالله 

 

بلا امارة عليك ، شو الرقم اللي تريد كل السجلات تأخذه؟

 

جعفر

مشكووووووووووور على اهتمامك

أنا أريد أن يبحث رقم الفاتورة مرحل عن أصغر رقم في الجدول ترحيل فاتورة ثم يضيف عليه 1 بشرط ان تأخذ السجلات المرحلة معا نفس رقم الفاتورة مرحل

فمثلا لو ان العميل لديه 10 سجلات عند الترحيل

وفي الجدول ترحيل فاتورة هناك مثلا 4 سجلات لعملاء آخرين

طبعا أريد أن تأخذ العشر سجلات المرحلة الرقم 5

وكلما قمت بترحيل عملاء آخرين يتزايد الرقم

دلني بعض الاخوة على هذا الكود أذا أمكن أن تلقي عليه نظرة

Private Sub Command5_Click()
Dim Answer As Integer
Dim Num As Integer


Answer = MsgBox("أنت على وشك ترحيل البيانات وحذفها من الجدول الأصلي هل تريد المتابعة", vbYesNo + vbInformation)
If Answer = vbYes Then
Num = Nz(DMax("[رقم الفاتورة مرحل]", "ترحيل فاتورة"), 0) + 1
  CurrentDb.Execute "INSERT INTO [ترحيل فاتورة] ( [رقم الفاتورة], [تاريخ الفاتورة], [إسم العميل], [نوع الزيارة], الفئة, [العلامة التجارية], [ترقيم المركبة], TTC, HT, TVA, TPF, TCT, TIMBER,رقم الفاتورة مرحل)"
SELECT الفانورة.[رقم الفاتورة], الفانورة.[تاريخ الفاتورة], الفانورة.[إسم العميل], الفانورة.[نوع الزيارة], الفانورة.الفئة, الفانورة.[العلامة التجارية], الفانورة.[ترقيم المركبة], الفانورة.TTC, الفانورة.HT, الفانورة.TVA, الفانورة.TPF, الفانورة.TCT, الفانورة.TIMBER," & Num & "
FROM الفانورة
WHERE (((الفانورة.[إسم العميل])=[forms]![ترحيل فاتورة]![إسم العميل]));


[Forms]![ترحيل فاتورة]![الفاتورة_الشركة].Requery
End If
End Sub

 

تم تعديل يناير 30, 2016 بواسطه بوعبد الله محفوظ

[jjafferr]

انت كنت في المسار الصحيح ، وببعض التغييرات ، تم اللازم بهذا الكود:

Me.رقم_الفاتورة_مرحل = Nz(DMax("[رقم الفاتورة مرحل]", "ترحيل فاتورة"), 0) + 1

 

 

جعفر

253.الفانورة.accdb.zip

[بوعبد الله محفوظ]

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

انت كنت في المسار الصحيح ، وببعض التغييرات ، تم اللازم بهذا الكود:

Me.رقم_الفاتورة_مرحل = Nz(DMax("[رقم الفاتورة مرحل]", "ترحيل فاتورة"), 0) + 1

 

 

جعفر

253.الفانورة.accdb.zip

جزاك الله الجنة

كدت أجن من هذا الكود

[jjafferr]

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

 

اسمح لي افكك لك الكود ، حتى تستوعبه بطريقة افضل:

شوف اكبر رقم "رقم الفاتورة مرحل" في الجدول "ترحيل فاتورة"'
a = DMax("[رقم الفاتورة مرحل]", "ترحيل فاتورة")

'اذا a فاضية ، فبدلها الى صفر
b= nz(a,0)

'اكتب هذه القيمة في الحقل "رقم الفاتورة مرحل" في النموذج 
Me.رقم_الفاتورة_مرحل =b+1

 

جعفر

تم تعديل يناير 30, 2016 بواسطه jjafferr
تعديل في الكود

[بوعبد الله محفوظ]

صدقت أخي الحبيب

أحببت أن أستعمل العربية

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

وشكرا جزيلا على الشرح