butonlara tıkladığımda aynı sayfalar çıkıyor yardımcı olurmusunuz.

[SIDDIK]

arkadaşlar ne yapmak istediğimi resimli olarak anlatımını ekli dosyaya attım yardımcı olursanız sevinirim.

 

[ayhan2122]

Sn SIDDIK;

Siz buton eklememişsiniz ki. Liste kutusu eklemişsiniz ve Liste oluşturmuşsunuz. Listede seçtiğiniz değere göre istediğiniz form açılmalı.
Olay yordamınızı aşağıdaki kodlarla değiştirin istediğiniz olur;

Private Sub Liste0_DblClick(Cancel As Integer)
If [Liste0] = "Araç Kayıt Girişi" Then
DoCmd.OpenForm "FRMCIKIS"
Else
If [Liste0] = "Arıza Beyan Girişi" Then
DoCmd.OpenForm "FRMCIKIS1"
Else
'Buradan itibaren kodu yukarıdakilere uyarak uzatabirisiniz '
'Eklediğiniz -If- kadar -End If-i aşağıya da eklemeyi unutmayın.
End If
End If


End Sub

Saygılar, İyi Çalışmalar.