AccessTr.neT

Tam Versiyon: sekme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
iyi sabahlar arkadaşlar
form2 deki iki buton ile form1 i açıyorum
problemim şu
sekme1 butonu tıkladığımda form1 açıldığında sekme1 üstte olsun
sekme2 butonu tıkladığımda form1 açıldığında sekme2 üstte olsun
bunu kod ile nasıl belirtebilirim
teşekkürler
Kod:
Private Sub Komut0_Click()
On Error GoTo Err_Komut0_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Form1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Forms!Form1!TabCtl2.Pages(0).SetFocus

Exit_Komut0_Click:
    Exit Sub

Err_Komut0_Click:
    MsgBox Err.Description
    Resume Exit_Komut0_Click
    
End Sub

Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Form1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Forms!Form1!TabCtl2.Pages(1).SetFocus
Exit_Komut1_Click:
    Exit Sub

Err_Komut1_Click:
    MsgBox Err.Description
    Resume Exit_Komut1_Click
    
End Sub
çok teşekkürler admin
kod şu şekilde yazılırsa hata veriyor
-----------------
DoCmd.OpenForm "rekor", acNormal, "", stLinkCriteria , acReadOnly, acDialog

If sec.Value = 1 Then Forms!rekor!TabCtl2.Pages(0).SetFocus
If sec.Value = 2 Then Forms!rekor!TabCtl2.Pages(1).SetFocus

yani kodda
, acDialog kısmı eklenirse hata veriyor
problem nedir
nasıl yazmamız gerekiyor
teşekkürler
Kod:
DoCmd.OpenForm "Form1", acNormal, "", "", , acNormal
kodunu deneyin.
teşekkürler