مشكله في تصميم برنامج

ruan · أغسطس 20, 2021

السلام عليكم ... عندي برنامج ديون احتاج اضهار معلومات الزبون في نموذج الزبائن2 ... وكذلك مجموع الديون المترتبة على الزبائن في نموذج1 .. مع خالص الشكر

الديون.rarFetching info...

**محمد أبوعبدالله** · أغسطس 20, 2021

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

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

الديون.rarFetching info...

تحياتي

ruan · أغسطس 21, 2021

شكرا جزيلا ... اخ محمد وبارك الله فيك .. هل من الممكن تفعيل زر الحذف اذا كانت حقول الديون للزبون تساوي صفر اما اذا كانت تحتوي على مبالغ لا يتم الحذف ... نص المربع الي فوق ادخال الزبون اريد تظهر فيه عدد الزبائن الاجمالي .. مع خالص شكري واتمنى ان لا اكون قد اتعبتك ... لا اعرف لماذا لم يضبط معي نموذج الزبائن2 مع العلم نفس عملته حضرتك .. لكن قد يكون هناك شيء فاتي .. ارجوا التوضيح لاني قد احتاجه لاحقا .. اكرر شكري وتقديري

تم تعديل أغسطس 21, 2021 بواسطه ruan

**Eng.Qassim** · أغسطس 21, 2021

في 21‏/8‏/2021 at 09:58, ruan said:

نص المربع الي فوق ادخال الزبون اريد تظهر فيه عدد الزبائن الاجمالي

Expand

ضع هذا الكود في مربع النص

=DCount("*";"الزبائن")

ruan · أغسطس 21, 2021

شكرا اسناذ قاسم

ruan · أغسطس 21, 2021

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

alruan.rarFetching info...

**محمد أبوعبدالله** · أغسطس 21, 2021

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

في زر الحذف ضع الكود التالي

    If IsNull(Me.a) Then
        Exit Sub
    End If
    
    If Me.نص34 <> 0 Or Me.نص35 <> 0 Then
        MsgBox "لا يمكن حذف الزبون لان عليه ديون"
    Else
        If MsgBox("هل تريد بالتأكيد حذف الزبون المحدد", vbYesNo, "تأكيد الحذف") = vbYes Then
           DoCmd.RunCommand acCmdDeleteRecord
        End If
    End If

الديون.rarFetching info...

تحياتي

**محمد أبوعبدالله** · أغسطس 21, 2021

وتفضل هذا التفقيط بالدولار والدينار

alruan.rarFetching info...

تحياتي

ruan · أغسطس 21, 2021

اشكرك شكرا يعجز اللسان ان يحصيه .. الله يوفقك دينا واخره ...

**محمد أبوعبدالله** · أغسطس 21, 2021

في 21‏/8‏/2021 at 18:51, ruan said:

اشكرك شكرا يعجز اللسان ان يحصيه .. الله يوفقك دينا واخره ...

Expand

جزاكم الله خيرا

وبالتوفيق يا رب

تخياتي

**Eng.Qassim** · أغسطس 21, 2021

في 21‏/8‏/2021 at 11:49, ruan said:

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

alruan.rar 56.71 kB · 3 downloads

Expand

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

ruan · أغسطس 21, 2021

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

If IsNull([نوع العمله]) Then
MsgBox ("خانة نوع العمله فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If IsNull([تاريخ التسديد]) Then
MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If IsNull([التسديد]) Then
MsgBox ("خانةالتسديد فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If [التسديد] > [نص28] And [نوع العمله] = "دولار" Then
MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار")
DoCmd.CancelEvent
Else
If [التسديد] > [نص30] And [نوع العمله] = "دينار" Then
MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي")
DoCmd.CancelEvent
Else
Dim r
r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير")
If r = vbYes Then
DoCmd.Close acForm, "التسديد"
DoCmd.Close acForm, "نموذج1"
DoCmd.OpenForm "نموذج1"
MsgBox ("تم ادخال المبلغ بنجاح")
Else
If r = vbNo Then
MsgBox ("تم التراجع عن ادخال المبلغ")
DoCmd.CancelEvent
End If
End If
End If
End If
End Sub

alruan.rarFetching info...

تم تعديل نوفمبر 5, 2022 بواسطه jjafferr
استعمال <> القائمة ، ووضع الكود في نافذته

**محمد أبوعبدالله** · أغسطس 21, 2021

تحتاج اكثر من endif لانهاء الشروط

تفضل الكود يعمل الان ان شاء الله

Private Sub أمر33_Click()
    If IsNull([نوع العمله]) Then
        MsgBox ("خانة نوع العمله فارغة يرجى املائها")
        DoCmd.CancelEvent
    Else
        If IsNull([تاريخ التسديد]) Then
        MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها")
        DoCmd.CancelEvent
    Else
        If IsNull([التسديد]) Then
        MsgBox ("خانةالتسديد فارغة يرجى املائها")
        DoCmd.CancelEvent
    Else
        If [التسديد] > [نص28] And [نوع العمله] = "دولار" Then
        MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار")
        DoCmd.CancelEvent
    Else
        If [التسديد] > [نص30] And [نوع العمله] = "دينار" Then
        MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي")
        DoCmd.CancelEvent
    Else
    
        Dim r
        r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير")
            If r = vbYes Then
                DoCmd.Close acForm, "التسديد"
                DoCmd.Close acForm, "نموذج1"
                DoCmd.OpenForm "نموذج1"
                MsgBox ("تم ادخال المبلغ بنجاح")
            Else
            If r = vbNo Then
                MsgBox ("تم التراجع عن ادخال المبلغ")
                DoCmd.CancelEvent
            End If
            
        End If
        End If
        End If
        End If
        End If
    End If

alruan_2.rarFetching info...

طريقة اخرى

    If IsNull([نوع العمله]) Then
        MsgBox ("خانة نوع العمله فارغة يرجى املائها")
        DoCmd.CancelEvent
    ElseIf IsNull([تاريخ التسديد]) Then
        MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها")
        DoCmd.CancelEvent
    ElseIf IsNull([التسديد]) Then
        MsgBox ("خانةالتسديد فارغة يرجى املائها")
        DoCmd.CancelEvent
    ElseIf [التسديد] > [نص28] And [نوع العمله] = "دولار" Then
        MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار")
        DoCmd.CancelEvent
    ElseIf [التسديد] > [نص30] And [نوع العمله] = "دينار" Then
        MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي")
        DoCmd.CancelEvent
    Else
    
        Dim r
        r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير")
            If r = vbYes Then
                DoCmd.Close acForm, "التسديد"
                DoCmd.Close acForm, "نموذج1"
                DoCmd.OpenForm "نموذج1"
                MsgBox ("تم ادخال المبلغ بنجاح")
            ElseIf r = vbNo Then
                MsgBox ("تم التراجع عن ادخال المبلغ")
                DoCmd.CancelEvent
            End If
            
    End If

تحياتي

ruan · أغسطس 21, 2021

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

**Eng.Qassim** · أغسطس 21, 2021

في 21‏/8‏/2021 at 21:20, ruan said:

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

If IsNull([نوع العمله]) Then
MsgBox ("خانة نوع العمله فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If IsNull([تاريخ التسديد]) Then
MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If IsNull([التسديد]) Then
MsgBox ("خانةالتسديد فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If [التسديد] > [نص28] And [نوع العمله] = "دولار" Then
MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار")
DoCmd.CancelEvent
Else
If [التسديد] > [نص30] And [نوع العمله] = "دينار" Then
MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي")
DoCmd.CancelEvent
Else
Dim r
r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير")
If r = vbYes Then
DoCmd.Close acForm, "التسديد"
DoCmd.Close acForm, "نموذج1"
DoCmd.OpenForm "نموذج1"
MsgBox ("تم ادخال المبلغ بنجاح")
Else
If r = vbNo Then
MsgBox ("تم التراجع عن ادخال المبلغ")
DoCmd.CancelEvent
End If
End If
End If
End If
End Sub

alruan.rar 88.58 kB · 0 downloads

Expand

ليست هنا المشكلة ... يجب ان يكون لديك المبلغ المسدد والمبلغ المتبقي

**Eng.Qassim** · أغسطس 23, 2021

في 21‏/8‏/2021 at 22:06, ruan said:

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

Expand

استاذي العزيز @ruan برنامجك جميل لكن يحتاج لكثير من التنسيقات فمثلا تجعل النموذج الرئيسي (الزبائن2) هو لبيع المواد وليس لشراء المواد . ففاتورة الشراء لها شأن اخر فانت تبيع بالاجل.. وتجعل لتلك الفاتورة رقم تلقائي وتجعل اسم الزبون كومبوبوكس لان نفس الزبون ربما سيشتري منك لاحقا..

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

والله من وراء القصد..تحياتي

ruan · أغسطس 24, 2021

في 23‏/8‏/2021 at 19:26, Eng.Qassim said:

استاذي العزيز @ruan برنامجك جميل لكن يحتاج لكثير من التنسيقات فمثلا تجعل النموذج الرئيسي (الزبائن2) هو لبيع المواد وليس لشراء المواد . ففاتورة الشراء لها شأن اخر فانت تبيع بالاجل.. وتجعل لتلك الفاتورة رقم تلقائي وتجعل اسم الزبون كومبوبوكس لان نفس الزبون ربما سيشتري منك لاحقا..

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

والله من وراء القصد..تحياتي

Expand

اطراء افتخر به لكوني مبتدأ نوعا ما في الاكسيس .. فهل من الممكن بعد اضافات على البرنامج ارسله لك على الايميل الخاص بك لتعديل على ما يجب التعديل .. مع خالص الود

**Eng.Qassim** · أغسطس 24, 2021

في 24‏/8‏/2021 at 21:00, ruan said:

اطراء افتخر به لكوني مبتدأ نوعا ما في الاكسيس .. فهل من الممكن بعد اضافات على البرنامج ارسله لك على الايميل الخاص بك لتعديل على ما يجب التعديل .. مع خالص الود

Expand

انا بخدمتك ان كان هذا لا ينافي قواعد المنتدى

**jjafferr** · نوفمبر 5, 2022

السلام عليكم 🙂

اختي الفاضلة روان 🙂

في 24‏/8‏/2021 at 21:00, ruan said:

ارسله لك على الايميل الخاص بك

Expand

وكما قال اخي المهندس قاسم ، فالتعامل بالايميل يخالف قوانين المنتدى ، والسبب ، نريد لبقية الاعضاء الاستفادة مما تستفيدين منه 🙂

جعفر

تسجيل الدخول

مشكله في تصميم برنامج

الردود الموصى بها

ruan

محمد أبوعبدالله

ruan

Eng.Qassim

ruan

ruan

محمد أبوعبدالله

محمد أبوعبدالله

ruan

محمد أبوعبدالله

Eng.Qassim

ruan

محمد أبوعبدالله

ruan

Eng.Qassim

Eng.Qassim

ruan

Eng.Qassim

jjafferr

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information