Skip to main content

AccessTr.neT


sekme

sekme

Çözüldü #1
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
.rar sekme.rar (Dosya Boyutu: 8,14 KB | İndirme Sayısı: 20)
@benbendedeilem
Cevapla
Çözüldü #2
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

Cevapla
Çözüldü #3
ç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
@benbendedeilem
Son Düzenleme: 15/01/2010, 03:18, Düzenleyen: accessman.
Cevapla
Çözüldü #4
Kod:
DoCmd.OpenForm "Form1", acNormal, "", "", , acNormal
kodunu deneyin.
Cevapla
Çözüldü #5
teşekkürler
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task