Access quit butonu - Baskı Önizleme

Access quit butonu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access quit butonu (/konu-access-quit-butonu.html)

Sayfalar: 1 2

Cvp: Access quit butonu - Puletin - 29/04/2010

Açık olan formu kapatıp başka bir formu açmak içinde

Kod:

Private Sub Formac_Click()

On Error GoTo Err_Formac_Click



    Dim stDocName As String

    Dim stLinkCriteria As String

 'Açık olan formu kapatır



DoCmd.Close 

'İstediğiniz formu açar

    stDocName = "AcilacakFormadi"

    DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_Formac_Click:

    Exit Sub



Err_Formac_Click:

    MsgBox Err.Description

    Resume Exit_Formac_Click

    

End Sub

Tekrar söylüyorum araç kutusundan oluşturulan kodları buraya aldım

Cvp: Access quit butonu - margeaux54 - 29/04/2010

BU tek formu kapatıyor fakat ben bütün formların kapanmasını istiyorum.

Zahmet oluyorum fakat

A button to quit (not close!) from the Access application.
Bu ne anlama geliyor onu da anlasam daha iyi olur

Cvp: Access quit butonu - Puletin - 29/04/2010

Sn Seruz Hoca dan alıntıdır.

Kod:

Private Sub Komut0_Click()

Dim TumFormlar As Object

    For Each TumFormlar In Application.CurrentProject.AllForms

        If Me.Form.Name <> TumFormlar.Name Then 'Aktif olan formu kapatmasın.

            DoCmd.Close acForm, TumFormlar.Name, acSaveNo

        End If

    Next



End Sub

Cvp: Access quit butonu - Kur@l - 29/04/2010

Sizin aradığınız Kod bu Deneyin Ha Bundan Başkada yok yani bende .... kolay gelsin

Kod:

Private Sub Komut24_Click()

Dim formad As String

Dim abc, fl As Integer

abc = CurrentProject.AllForms.Count

For fl = 0 To abc - 1

formad = CurrentProject.AllForms(fl).Name

DoCmd.Close acForm, formad

Next fl

End Sub