Access'te kullanılabilecek ve bir çok soruna çözüm olacak EN TEMEL KODLAR.
Eğer bu kodlara ekleme yapmak isteyen varsa lütfen eklesin.
Saygılar, iyi çalışmalar.
YENİLE-1;
DoCmd.RunCommand acCmdRefresh
-------------------------------------------------------
YENİLE-2;
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
-------------------------------------------------------
DENETİMİ YENİLE;
Forms![DenetiminBulunduğuFormAdı]![DenetimAltFormdaİseAltFormAdı]![AltFormAdı].Requery
-------------------------------------------------------
ALT FORMU YENİLE;
Forms![AltFormunBulunduğuFormAdı]![AltFormAdı].Requery
-------------------------------------------------------
SQL ÇALIŞTIR
DoCmd.OpenQuery "SorguAdı", acNormal, acEdit
-------------------------------------------------------
FORM AÇ-1
DoCmd.OpenForm "FormAdı"
-------------------------------------------------------
FORM AÇ-2
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FormAdı"
DoCmd.OpenForm stDocName, , , stLinkCriteria
-------------------------------------------------------
EKLEME MODUNDA FORM AÇ
DoCmd.OpenForm "FormAdı", acNormal, "", "", acAdd, acNormal
-------------------------------------------------------
SÜZEREK FORM AÇ
'Açan formdaki denetim ile eşleşen açılacak formdaki denetime göre form açma kodu;
DoCmd.OpenForm "FormAdı", , , "[AçılacakFormdakiAlanAdı]=" & Me![AçanFormdakiAlanAdı]
-------------------------------------------------------
IF (EĞER) KOŞULU
If _Mantıksal_ Then
'Yanlışsa
Else
'Doğruysa
End If
-------------------------------------------------------
MESAJ KOŞULU
If MsgBox("Değişiklikleri onaylıyor musunuz?", 1) = 1 Then
'onaylanırsa yapılacaklar
Else
'onaylanmazsa yapılacaklar
End If
-------------------------------------------------------
LİSTE BAŞINA METİN EKLEMEK
Normal SQL deyiminin sonuna ';' den önce
UNION (SELECT"YeniEkle"AS [AlanAdı] FROM [Tablo/SorguAdı])
-------------------------------------------------------
BİR TABLODAKİ VERİLERİN TÜMÜNÜ SİLEN KOD;
OtomatiSayı alanı sıfırlanmaz.
CurrentDb.Execute ("DELETE * FROM [TabloAdı] ")
-------------------------------------------------------------------------
DÜĞMENİN GÖRÜNÜR OLMA(MA)SI
If [Alan] = 0 Then
Me!Komut40.Visible = False 'görünmez
Else
Me!Komut40.Visible = True 'görünür
End If
--------------------------------------------------------------------------
Eğer bu kodlara ekleme yapmak isteyen varsa lütfen eklesin.
Saygılar, iyi çalışmalar.
YENİLE-1;
DoCmd.RunCommand acCmdRefresh
-------------------------------------------------------
YENİLE-2;
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
-------------------------------------------------------
DENETİMİ YENİLE;
Forms![DenetiminBulunduğuFormAdı]![DenetimAltFormdaİseAltFormAdı]![AltFormAdı].Requery
-------------------------------------------------------
ALT FORMU YENİLE;
Forms![AltFormunBulunduğuFormAdı]![AltFormAdı].Requery
-------------------------------------------------------
SQL ÇALIŞTIR
DoCmd.OpenQuery "SorguAdı", acNormal, acEdit
-------------------------------------------------------
FORM AÇ-1
DoCmd.OpenForm "FormAdı"
-------------------------------------------------------
FORM AÇ-2
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FormAdı"
DoCmd.OpenForm stDocName, , , stLinkCriteria
-------------------------------------------------------
EKLEME MODUNDA FORM AÇ
DoCmd.OpenForm "FormAdı", acNormal, "", "", acAdd, acNormal
-------------------------------------------------------
SÜZEREK FORM AÇ
'Açan formdaki denetim ile eşleşen açılacak formdaki denetime göre form açma kodu;
DoCmd.OpenForm "FormAdı", , , "[AçılacakFormdakiAlanAdı]=" & Me![AçanFormdakiAlanAdı]
-------------------------------------------------------
IF (EĞER) KOŞULU
If _Mantıksal_ Then
'Yanlışsa
Else
'Doğruysa
End If
-------------------------------------------------------
MESAJ KOŞULU
If MsgBox("Değişiklikleri onaylıyor musunuz?", 1) = 1 Then
'onaylanırsa yapılacaklar
Else
'onaylanmazsa yapılacaklar
End If
-------------------------------------------------------
LİSTE BAŞINA METİN EKLEMEK
Normal SQL deyiminin sonuna ';' den önce
UNION (SELECT"YeniEkle"AS [AlanAdı] FROM [Tablo/SorguAdı])
-------------------------------------------------------
BİR TABLODAKİ VERİLERİN TÜMÜNÜ SİLEN KOD;
OtomatiSayı alanı sıfırlanmaz.
CurrentDb.Execute ("DELETE * FROM [TabloAdı] ")
-------------------------------------------------------------------------
DÜĞMENİN GÖRÜNÜR OLMA(MA)SI
If [Alan] = 0 Then
Me!Komut40.Visible = False 'görünmez
Else
Me!Komut40.Visible = True 'görünür
End If
--------------------------------------------------------------------------