Microsoft Access - If statement with Tabs - Asked By Grant Zaunick on 30-May-12 10:18 AM

Hi, I'm trying to do a simple If statement and have gotten stumped. So simple, yet I cannot figure out how to get the selected Tab value. It goes a little like this:

If SelectedTab = "Tab1" then
DoCmd.RunCommand acCmdPrintPreview
Else
DoCmd.RunCommand acCmdPrint
End If

Any help would be great.  Thanks

Grant
Pat Hartman replied to Grant Zaunick on 01-Jun-12 12:45 AM
Here is code I use in an app that has lots of tabs.
Select Case Me.TabCtlTransactions.Pages.Item(Me.TabCtlTransactions).Name
  Case "pgIBC121"
   
  Case "pgIBC122"
   
  Case "pgIBC123"
    If IsNull(Me.sfrmIBC123.Form!VER_NO) Then
      Me.txtPPTS_ID = ""
    Else
      Me.txtPPTS_ID = DLookup("PPS_PPTS_STS_NO", "PCR_PCR_PPTS_STS", "PPCR_PRV_CHG_RQT_NO = " & Me.PPCR_PRV_CHG_RQT_NO & " And VER_NO = " & Me.sfrmIBC123.Form!VER_NO & " AND PCR_CORP_FORM_CD_NO = " & IBC123)
    End If
  Case "pgIBC124"
    If IsNull(Me.sfrmIBC124.Form!VER_NO) Then
      Me.txtPPTS_ID = ""
    Else
      Me.txtPPTS_ID = DLookup("PPS_PPTS_STS_NO", "PCR_PCR_PPTS_STS", "PPCR_PRV_CHG_RQT_NO = " & Me.PPCR_PRV_CHG_RQT_NO & " And VER_NO = " & Me.sfrmIBC124.Form!VER_NO & " AND PCR_CORP_FORM_CD_NO = " & IBC124)
    End If
  Case "pgIBC125"
   
  Case "pgIBC126"
    If IsNull(Me.sfrmIBC126.Form!VER_NO) Then
      Me.txtPPTS_ID = ""
    Else
      Me.txtPPTS_ID = DLookup("PPS_PPTS_STS_NO", "PCR_PCR_PPTS_STS", "PPCR_PRV_CHG_RQT_NO = " & Me.PPCR_PRV_CHG_RQT_NO & " And VER_NO = " & Me.sfrmIBC126.Form!VER_NO & " AND PCR_CORP_FORM_CD_NO = " & IBC126)
    End If
  Case "pgIBC127"
    If IsNull(Me.sfrmIBC127.Form!VER_NO) Then
      Me.txtPPTS_ID = ""
    Else
      Me.txtPPTS_ID = DLookup("PPS_PPTS_STS_NO", "PCR_PCR_PPTS_STS", "PPCR_PRV_CHG_RQT_NO = " & Me.PPCR_PRV_CHG_RQT_NO & " And VER_NO = " & Me.sfrmIBC127.Form!VER_NO & " AND PCR_CORP_FORM_CD_NO = " & IBC127)
    End If
  Case "pgIBC128"
    If IsNull(Me.sfrmIBC128.Form!VER_NO) Then
      Me.txtPPTS_ID = ""
    Else
      Me.txtPPTS_ID = DLookup("PPS_PPTS_STS_NO", "PCR_PCR_PPTS_STS", "PPCR_PRV_CHG_RQT_NO = " & Me.PPCR_PRV_CHG_RQT_NO & " And VER_NO = " & Me.sfrmIBC128.Form!VER_NO & " AND PCR_CORP_FORM_CD_NO = " & IBC128)
    End If
  Case "pgIBC128New"
    If IsNull(Me.sfrmIBC128New.Form!sfrmIBC128A1.Form!VER_NO) Then
      Forms!frmTranHeader.txtPPTS_ID = ""
    Else
      Forms!frmTranHeader.txtPPTS_ID = DLookup("PPS_PPTS_STS_NO", "PCR_PCR_PPTS_STS", "PPCR_PRV_CHG_RQT_NO = " & Forms!frmTranHeader.PPCR_PRV_CHG_RQT_NO & " And VER_NO = " & Me.sfrmIBC128New.Form!sfrmIBC128A1.Form!VER_NO & " AND PCR_CORP_FORM_CD_NO = " & IBC128A1)
    End If
    'the rest of the code is in the IBC128New subform
  Case "pgIBC131"
    If IsNull(Me.sfrmIBC131.Form!VER_NO) Then
      Me.txtPPTS_ID = ""
    Else
      Me.txtPPTS_ID = DLookup("PPS_PPTS_STS_NO", "PCR_PCR_PPTS_STS", "PPCR_PRV_CHG_RQT_NO = " & Me.PPCR_PRV_CHG_RQT_NO & " And VER_NO = " & Me.sfrmIBC131.Form!VER_NO & " AND PCR_CORP_FORM_CD_NO = " & IBC131)
    End If
  Case "pgIBC133"
    If IsNull(Me.sfrmIBC133.Form!VER_NO) Then
      Me.txtPPTS_ID = ""
    Else
      Me.txtPPTS_ID = DLookup("PPS_PPTS_STS_NO", "PCR_PCR_PPTS_STS", "PPCR_PRV_CHG_RQT_NO = " & Me.PPCR_PRV_CHG_RQT_NO & " And VER_NO = " & Me.sfrmIBC133.Form!VER_NO & " AND PCR_CORP_FORM_CD_NO = " & IBC133)
    End If
End Select
Grant Zaunick replied to Pat Hartman on 21-Jun-12 11:30 AM
Thank you both

That worked great