تعديل في كود

[2saad]

إخواني الأعزاء أعضاء المنتدي الكرام  بعد سلام الله عليكم ورحمة الله وبركاته

 

في الكود هذا عايز  اقول لو  termNum =2

يعطينيMe.tsmya2Caption = "الدور الأول"    وإلا      "الدور الثاني"

 

Private Sub Report_Open(Cancel As Integer)
Dim i, ii As String
i = Forms!frm_Reports!ComboSaf.Column(1)
ii = Forms!frm_Reports!termNum.Column(1)
Me.tsmya1.Caption = funSanahDrasyahDate()
Me.tsmya2.Caption = " الدور الأول"
DoCmd.Maximize
End Sub

 

[Foksh]

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

 

ملاحظة مهمة بخصوص المتغيرين i و ii :-

حيث تم تعريفهما كـ String ، بينما من الواضح ( وبناءً على ما أذكر من مشاركات سابقة ) أنهما يمثلان رقم الترم المخزن في العمود الأول (Column(0)) من الـ ComboBox . صحيح ؟؟

 

Private Sub Report_Open(Cancel As Integer)
    Dim i As Long, ii As Long
    i = Forms!frm_Reports!ComboSaf.Column(0)
    ii = Forms!frm_Reports!termNum.Column(0)
    
    Me.tsmya1.Caption = funSanahDrasyahDate()
    If ii = 2 Then
        Me.tsmya2.Caption = "الدور الأول"
    Else
        Me.tsmya2.Caption = "الدور الثاني"
    End If

    DoCmd.Maximize
End Sub

 

[2saad]

الله ينور عليك ويزيدك من علمه وبارك الله فيك