Bu öğreticide, VBA kullanarak Access formlarının nasıl açılacağını veya kapatılacağını öğreneceğiz.
Erişim Formu Açma
Access'te bir form açmak için DoCmd.OpenForm yöntemini kullanın:
DoCmd.OpenForm "ErişimFormu"
Bu, “AccessForm” adlı Formu açacaktır:
Gezinti Bölmesinde Gösterilen AccessForm
Ölçütlü Açık Formu
Bu kod, Access'te belirli kriterlere sahip bir form açacaktır:
DoCmd.OpenForm "ErişimFormu", normal, , "Kimlik=10"
DoCmd.OpenForm Sözdizimi
Yöntemin tam sözdizimi şöyledir:
DoCmd.OpenForm(FormAdı, Form Görünümü, FiltreAdı, NeredeKoşul, Veri Modu, Pencere modu, Açık Args) nerede:
| Parametre | Açıklama |
|---|---|
| NameOfForm | Gerekli ve açmak istediğiniz formun adıdır. |
| FormGörünüm | İsteğe bağlı ve formun görünümünü belirtmenize olanak tanır. Bu, acDesign, acFormDS, acFormPivotChart, acFormPivotTable, acLayout, acNormal, acLayout veya acPreview olabilir. Varsayılan, acNormal'dir. |
| FiltreAdı | İsteğe bağlıdır ve filtre olarak kullanılacak bir sorgunun veya SQL dizesinin adını belirtmenize olanak tanır. |
| NeredeKoşul | İsteğe bağlıdır ve nerede sözcüğünü kullanmadan bir where türü sorgusu yürütmenize olanak tanır. |
| Veri Modu | İsteğe bağlı ve veri giriş modunuzu belirlemenizi sağlar. Bu şunlardan biri olabilir: acFormAdd, acFormEdit, acFormPropertySettings veya acFormReadOnly. Varsayılan, acFormPropertySettings'dir. |
| Pencere modu | İsteğe bağlı ve Pencere modunun görüntüsünü ayarlar. Bu şunlardan biri olabilir: acDialog, acHidden, acIcon, acWindowNormal. Varsayılan, acWindowNormal'dır. |
| Açık Args | İsteğe bağlı olarak makrolarda ve ifadelerde başvurulabilir. |
VBA Programlama | Code Generator sizin için çalışıyor!
Access'te bir Formu Kapatın
Açık bir formu kapatmak için DoCmd.Close kullanın:
DoCmd.Close acForm, "ErişimFormu"
Formu Kapat ve Kaydet
Bu VBA kodu bir Erişim formunu kapatacak ve kaydedecektir:
DoCmd.Close acForm, "AccessForm", acSaveEvet
Formu Kapatmadan Önce Sor
Bu prosedür, bir formu kapatmadan önce kullanıcıya soracaktır:
Public Sub CloseFormWithConfirmation(FormName As String) If MsgBox("Bu pencereyi kapatmak istediğinizden emin misiniz?", vbYesNo + vbQuestion, "Onay") = vbYes Then DoCmd.Close acForm, FormName End If End Sub
Bunu şu şekilde arayabilirsiniz:
Private Sub CloseFormWithConfirmation_Example() CloseFormWithConfirmation("AccessForm") End Sub çağırın
VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!
DoCmd.Close Sözdizimi
Yöntemin tam sözdizimi şöyledir:
DoCmd.Close (Nesne türü, Nesne adı, NesneKaydet) nerede:
| Parametre | Açıklama |
|---|---|
| Nesne türü | İsteğe bağlı ve bu, kapatmak istediğiniz nesne türüdür. Bu bir form veya rapor vb. olabilir. |
| Nesne adı | İsteğe bağlı ve kapatmak istediğiniz nesnenin adıdır. |
| NesneKaydet | İsteğe bağlı ve yapılan değişiklikleri kaydetmek isteyip istemediğinizi belirtmek için kullanılır. |
