Skip to main content

AccessTr.neT


Access quit butonu

Access quit butonu

Çözüldü #7
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
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #8
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
margeaux54, 05-03-2010 tarihinden beri AccessTr.neT üyesidir
Son Düzenleme: 29/04/2010, 11:37, Düzenleyen: margeaux54.
Cevapla
Çözüldü #9
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

Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #10
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

komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task