Belirtilen Kritere Göre Form Açma

[ahmet.bayrakdar]

Merhaba Arkadaşlar

Ana sayfada hata puanı olan alanda rakamsal değerler vardır. Ana sayfadaki ilerle komutuna tıkladığım zaman hata puanı 10 veya küçük ise düşük puan formunu 10 dan yüksek ise yüksek puan formunu açmasını istiyorum. Yardımcı olabilirmisiniz?

 

[seruz]

İlerle Butonunun kodunu şu şekilde değiştirin

Private Sub Command4_Click()
On Error GoTo Err_Command4_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    If Me.[Hata Puanı] <= 10 Then
        stDocName = "Düşük Puan"
    Else
        stDocName = "Yüksek Puan"
    End If
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command4_Click:
    Exit Sub

Err_Command4_Click:
    MsgBox Err.Description
    Resume Exit_Command4_Click
    
End Sub

 

[ahmet.bayrakdar]

Çok Teşekkür Ederim

 

[PLTNAZR]

Teşşkürler Sayın Seruz...