دمج الكود

[العراقي المدلل]

السلام عيكم 

اخواني الاعزاء ارجو المساعدة في دمج هذا الكود 

Private Sub Form_Current()
DoCmd.Maximize
Me.موعد1.Visible = False
Me.z.Visible = False
Me.br.Requery
End Sub
Private Sub Form_Timer()
If [mo] = 1 Then
Me.موعد1.Visible = Not (موعد1.Visible)
Else
Me.موعد1.Visible = False
If [br] <= Then
Me.z.Visible = Not (z.Visible)
Else
Me.z.Visible = False
End If
End If
End Sub

 

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

z هو مربع نص 

موعد1 هو مربع نص 

فيهما الرسالة التنبيهية عند وقوع الحدث 

تم تعديل يوليو 15, 2021 بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة

[د.كاف يار]

16 دقائق مضت, العراقي المدلل said:

السلام عيكم 

اخواني الاعزاء ارجو المساعدة في دمج هذا الكود 

Private Sub Form_Current()
DoCmd.Maximize
Me.موعد1.Visible = False
Me.z.Visible = False
Me.br.Requery
End Sub
Private Sub Form_Timer()
If [mo] = 1 Then
Me.موعد1.Visible = Not (موعد1.Visible)
Else
Me.موعد1.Visible = False
If [br] <= Then
Me.z.Visible = Not (z.Visible)
Else
Me.z.Visible = False
End If
End If
End Sub

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

z هو مربع نص 

موعد1 هو مربع نص 

فيهما الرسالة التنبيهية عند وقوع الحدث 

ماهو طلبك بالتحديد

يوجد لديك كود في حدث عند فتح النموذج 

و الكود الأخر مع عداد الوقت

 

وضح ماهو المطلوب بالتحديد

[العراقي المدلل]

اخي العزيز المطلوب هو 

 [mo] = 1  عندي نموذج رئيسي لقد وضعت فيه تنبيهات التنبيه الاول هو موعد1 اي عندما 

يظهر لي رسالة التنبيه التي بداخل موعد1 

z والتنبيه الثاني هو  

عندما [br] <= يظهر لي رسالة التنبيه الثاني 

المطلوب الرسالتان تشتغل في ان واحد اذا تم الشرط 

ولاكن عندي الان لا يشتغلان سوية حتى ولو تم تنفيذ الشرط 

وحدث العداد لكي يميض التنبيه 

If [mo] = 1 Then
Me.موعد1.Visible = Not (موعد1.Visible)
Else
Me.موعد1.Visible = False
If [br] <= Then
Me.z.Visible = Not (z.Visible)
Else
Me.z.Visible = False
End If
End If
End Sub

 

تم تعديل يوليو 15, 2021 بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة

[العراقي المدلل]

ارجوا المساعدة يا اخوان الاعزاء 

[jjafferr]

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

 

جرب هذا التعديل ، ورجاء تغيير المتغير XXX برقم صحيح :

    If [mo] = 1 Then
        Me.موعد1.Visible = Not (موعد1.Visible)
    Else
        Me.موعد1.Visible = False
    End If
    
    If [br] <= XXX Then
        Me.z.Visible = Not (z.Visible)
    Else
        Me.z.Visible = False
    End If
    

 

جعفر

[Eng.Qassim]

10 hours ago, العراقي المدلل said:

If [br] <= Then

اصغر من اي شيء؟

[العراقي المدلل]

اشكركم تم حل المشكلة