AccessTr.neT

Sayfalar: 1 2

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

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

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

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

Sayfalar: 1 2

Puletin

margeaux54

Puletin

Kur@l