Ana içeriğe atla

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
Etiketler:

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

SQL İŞLEMLERİ

Option Compare Database Sub secme_islemi() 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 ORDER BY MESLEK DESC" 'Tablo1deki ad alanındaki verileri YENI adındaki tabloya aktar ad yerine * olursa tüm verileri tabloya ekler 'ORDER BY..... küçükten büyüye sıralama yapar 'ORDER BY .....DESC büyükten küçüğe sıralama yapar '<bİRDEN FAZLA ALAN İÇİN ARAYA ..A...,....B... KONUR 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MESLEK='DOKTOR'" 'WHERE ........='string değeri' KOŞUL OLUŞTURUR 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE LEFT(AD,1)='U'" 'sayısal değerde kullanılabilir: 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=2000" DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=1 AND MAAŞ<=2000" 'İKİ DEĞER ARASINDAKİLERİ ALDIRMAK End Sub
Yorum Gönder
Devamı

Bir tablo içindeki verileri formdaki değerlerle sınırlandırmak

Private Sub Komut4_Click() Dim db As Database Dim rst, rs As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") Set rs = db.OpenRecordset("yeni") Do Until rst.EOF If rst("yaş").Value >= CInt(Metin0) And rst("yaş").Value <= CInt(Metin2) Then rs.AddNew rs("ad").Value = rst("ad").Value rs("yaş").Value = rst("yaş").Value rs.Update End If rst.MoveNext Loop End Sub
Yorum Gönder
Devamı

Hesaplama

Sub hesapla() Dim db As Database Dim rst As Recordset Set db = CurrentDb toplam = 0 Set rst = db.OpenRecordset("giriş") Do Until rst.EOF If rst.Fields(2).Value = "teknosa" Then toplam = toplam + (rst.Fields(3).Value * rst.Fields(4).Value) End If rst.MoveNext Loop MsgBox toplam End Sub
Yorum Gönder
Devamı