AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Access quit butonu

1 2
29/04/2010, 11:28

Puletin

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
29/04/2010, 11:33

margeaux54

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
29/04/2010, 11:40

Puletin

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
29/04/2010, 11:40

Kur@l

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
1 2