Konu Araçları | Konu Seçenekleri | Gösterim Stili
accessman
Tarih
14/01/2010 06:45
Konu Sahibi
accessman
Yorumlar
4
Okunma
1585
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
accessman

accessman

Aktif Üye
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
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


@benbendedeilem

ozanakkaya

ozanakkaya

Kurucu
Oz.... Ak....
 39
 481
 12.007
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:53
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

accessman

accessman

Aktif Üye
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
ç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

ozanakkaya

ozanakkaya

Kurucu
Oz.... Ak....
 39
 481
 12.007
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:53
Çözüldü 

Kod:
DoCmd.OpenForm "Form1", acNormal, "", "", , acNormal

kodunu deneyin.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

accessman

accessman

Aktif Üye
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
teşekkürler


@benbendedeilem


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Liste Kutusundan Sekme Denetimlerindeki Formları Açmak Oğuz Türkyılmaz 4 345 13/02/2019, 21:24
Son Yorum: Oğuz Türkyılmaz
Çözüldü Sekme Denetiminde Yerleştirme Sorunu Oğuz Türkyılmaz 2 118 26/12/2018, 15:04
Son Yorum: Oğuz Türkyılmaz
Çözüldü Sekme Denetimi (enable) Özelliği mustinba 6 379 08/08/2018, 18:21
Son Yorum: mustinba
Çözüldü Sekme İçinde Sekme ve Butonla Alt Sekme Sayfasının Açılması karabattak 3 2.470 09/05/2016, 11:21
Son Yorum: szkr
Çözüldü SEKME SIRASINI BULMA moskovic 4 991 07/12/2015, 02:16
Son Yorum: moskovic

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.