Form Olayları

Option Compare Database
Dim frm_deneme As Form
Sub form_olay()
'**********************************________Form Oluşturma_______________
'Set frm_deneme = CreateForm
'DoCmd.Close acForm, "Deneme", acSaveYes
'**********************************________Form Kapatma_______________
'DoCmd.Close acForm, "Kapatılacak Formun İsmi", acSaveYes
'DoCmd.Close 'bütün formları kapatır . Kaydetmeyi sorar
'**********************************________Form Adı Değiştirme_______________
'DoCmd.Close acForm, "Form1", acSaveYes
'DoCmd.Rename "deneme", acForm, "Form1"
'**********************************________Form Açma_______________
'DoCmd.OpenForm "deneme"
'**********************************________Form Silme_______________
DoCmd.DeleteObject acForm, "deneme"


'**********************************________Forma Nesne Ekleme_______________

DoCmd.OpenForm "Form1", acDesign
Dim nesne As Control
Set nesne = Application.CreateControl("Form1", acTextBox, acDetail, "ilişkisiz", "Ad", 1000, 1000)
Set nesne = Application.CreateControl("Form1", acTextBox, acDetail, "ilişkisiz", "Soyadı", 1000, 2000)
Set nesne = Application.CreateControl("Form1", acCommandButton, acDetail, "ilişkisiz", "Buton", 1000, 3000)
End Sub