cocacola7

18 ساعات مضت, ازهر عبد العزيز said:

numberfield = Me.fash
Dim A As String, MsgTitle As String, MsgBody As String

MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان"
MsgTitle = "رسالة تحـــزيرية"

A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _
" AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")

If Not (IsNull(A)) Then
    If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then
        Cancel = True
        Me.Undo
        DoCmd.FindRecord numberfield
  else
Me.fash.SetFocus
  End If
End If

شكرا لك  اخي ازهر 🙂🙂🙂

 ممتاز و لكن تظهر لي الرسالة التالية , اريد عدم ظهور هذه الرسالة اذا تكرمت

1 دقيقه مضت, cocacola7 said:

شكرا لك  اخي ازهر 🙂🙂🙂

 ممتاز و لكن تظهر لي الرسالة التالية , اريد عدم ظهور هذه الرسالة اذا تكرمت

في 24‏/3‏/2022 at 11:47, د.كاف يار said:

تفضل جرب هذا التعديل

numberfield = Me.fash
Dim A As String, MsgTitle As String, MsgBody As String

MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان"
MsgTitle = "رسالة تحـــزيرية"

A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _
" AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")

If Not (IsNull(A)) Then
    If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then
        Cancel = True
        Me.Undo
        DoCmd.FindRecord numberfield
    End If
End If

 

شكر لك اخي د. كاف يار

اريد منك تعديل بسيط وهو عند اختيار ظهور الرسالة وقام المستخدم باختيار لا فانه لايحدث شيء والمؤشر يعود في التركيز على مربع النص 

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

لدي الكود التالي :

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

هذا هو الكود الذي لدي 

numberfield = Me.fash
Dim A
A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")
If Not (IsNull(A)) Then
MsgBox "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان", vbCritical, "رسالة تحـــزيرية"
Cancel = True
Me.Undo
DoCmd.FindRecord numberfield
End If
End Sub

39 دقائق مضت, د.كاف يار said:

تفضل التعديل اخي الكريم

NEW FROM NUM (2).rar 41.72 kB · 1 تنزيلات

شكرا لك اخي حسين .

وفقك الله , هذا هو المطلوب

السلام عليكم 

اتمنا لكم جميعا موفور الصحة والعافية

عندي نموذج حتوي على مربع نص باسم(Remark ) اريد عند الطباعة ان يتم طباعة التقرير متظمنا مربع النص هذا في حالة ان يكون بداخله ممتلى وليس فارغ .

بمعنى اخر عند وجود كتابة في النموذج  في مربع النص ( Remark )  يتم طباعة التقرير وفيه كل الحقول وعندما يكون مربع النص المذكور ( Remark ) فارغا يتم طباعة التقرير بدون مبرع النص هذا ( Remark ).

وتقبلوا خالص تحياتي وتقديري

اخيكم محمد اليافعي

مرفق لكم نموذج 

NEW FROM NUM (2).rar

شكرا لك من كل اعماق قلبي .

انت مبدع , ونفسي اجلس معك لنستفيد منك .

وفقك الله واتمنا لك مزيدا من التقدم والتطور.......

مرحبا استاذ محمد عبدالله 

شكرا لك على سرعة الرد وحل المشكلة , لكن المرفق لم يفتح معي

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

كيفم اخواني جميعا اتمنا ان تكون في صحة جيدة .

اريد على المثال السابق ان يكون هناك حقل نصف  لكتابة ملاحظة معينة في الصفحة الاولى من التقرير فقط . فهل ممكن ذلك ؟ وكيف ؟

طبعا حقل الملاحظات  موجود في النموذج وعند الطباعة اريدة ان يكون مكتوب في النسخة الاولى فقط.

شكرا لكم مقدما .

NEW FROM NUM.accdb

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

كيف اخي محمد    اتمنا ان تكون في صحة جيدة .

اريد على المثال السابق ان يكون هناك حقل نصف  لكتابة ملاحظة معينة في الصفحة الاولى من التقرير فقط . فهل ممكن ذلك ؟ وكيف ؟

طبعا حقل النص  موجود في النموذج وعند الطباعة اريدة ان يكون مكتوب في النسخة الاولى فقط.

شكرا لك مقدما .

51 دقائق مضت, محمد أبوعبدالله said:

تم استخدام for i >>> next لتكرار امر الطباعة حسب العدد الموجود بحقل CARNUM

    For i = 1 To Forms!cusform!CARNUM
        DoCmd.OpenReport "cusreport", acViewNormal, , "CUSNUM = " & Forms!cusform!CUSNUM
    Next

ثم استخدمنا المتغيير العام i في خقل X5 الموجود في التقرير ليكتب عدد النسخ

 

Public i As Integer

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)

    Me.x5 = i

End Sub

تحياتي

 

فعلا خبير وتستاهل اكثر من ذلك الاسم , وفقك الله 

وشكرا لك مرة اخرى

منذ ساعه, محمد أبوعبدالله said:

هل الكود لا يعمل ام الملف نفسه الذي لا يعمل

رفع لك الملف مرة اخرى بدون ضغط

NEW FROM NUM.accdb 432 kB · 0 تنزيلات

تحياتي

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

ممكن تشرح لي ماهي الطريقة التي استخدمتها ؟

25 دقائق مضت, اشرف said:

السلام عليكم cocacola7

جرب كدة اتمني ان يكون المطلوب

NEW FROM NUM (1).accdb 704 kB · 0 تنزيلات

اشكرك اخي الاستاذ اشرف 

الطباعة للسجل الحالي تمام  ولكن  باقي ان يكون مكتوب على النسخة الاولى 1 من كذا والثانية 2 من كذا وهكذا استنادا على عد الطرود .

السلام عليكم 

اعتقد انني لم استطع ايصال الفكرة لكم بالشكل الصحيح, لذا فقد عدلت على المرفق بحيث يكون واضح للجميع .

وفقكم الله واسعدكم , واتمنا من سعادتكم حل هذه المشكلة التي لدي.

لكي تفهموا اكثر افتحوا المرفق وبإذن الله سوف تفهوا المطلوب.

NEW FROM NUM.accdb

في ٢٦‏/٦‏/٢٠٠٦ at 04:36, zahrah2016 said:

اخي الفاضل شاهر

هذا هو الكود المسئول عن طباعة عدد من النسخ للتقرير حسب طلبك

الكود موجود تحت زر امر الطباعة

CopyN_Report.rar

 

اختكم

زهره

صباح النور عليكم جميعا 

هل ممكن تتكرموا وتنظروا الى طلبي ايها المبرمجين العباقرة . 

اختي زهرة اريد ان تكون الطباعة بعدد نسخ معينة كما هي مسجلة في النموذج وليس اختيارية من قبل المستخدم .

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

شكرا لك اخي , ولكن المرفق لا يعمل ...

في ٢٦‏/٦‏/٢٠٠٦ at 04:36, zahrah2016 said:

اخي الفاضل شاهر

هذا هو الكود المسئول عن طباعة عدد من النسخ للتقرير حسب طلبك

الكود موجود تحت زر امر الطباعة

CopyN_Report.rar

 

اختكم

زهره

4 ساعات مضت, محمد أبوعبدالله said:

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

تفضل اخي الكريم

NEW FROM NUM.rar 48.2 kB · 0 تنزيلات

تحياتي

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

شكرا اخي , ولكن المرفق لا يعمل

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

لدي قاعدة بيانات ارفقت لكم نموذج منها 

اريد طباعة سجل بشرط ان يكون هو السجل الحالي المعروض في النموذج , واريد ان يكون عدد النسخ بعدد الطرود بحيث يكون عند طباعة  النسخة الاولى يكتب فيها 1 من كذا .

فمثلا عند يكون معروض في النموذج العميل محمد اليافعي ذات الرقم 10001 والذي عدد طروده 3 . فعند الضغط على زر الطباعة يتم طباعة هذا العميل فقط وايضا يكون عدد النسخ المطبوعة بعدد طرود العميل بحيث تكون النسخة الاولى مكتوب فيها 1 من 3 والنسخة الثانية 2 من 3 والنسخة الثالثة 3 من 3.

وهكذا بالنسبة لبقية العملاء .

ارجو منكم التكرم بمساعدتي , ولكم جNEW FROM NUM.accdbNEW FROM NUM.accdbزيل الشكر والامتنان