Bazı Kodlar;

[ayhan2122]

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

 

[cry_of_dark]

teşekkürler

 

[karaayhan]

sayın ayhan2122 döngü ile ilgili örnek ve kod var mı?

 

[gitarisyen]

Sayın ayhan2122;

Verdiğiniz kodlar ve özellikle Türkçe olarak açıklamalarının bulunması hem uygulamalarımızı anlayarak yapmamız hem de kod mantığını anlamamız açısından çok yararlı bence.

Bu güzel bilgiler için çok teşekkür ediyorum...

 

[assenucler]

Sn. ayhan2122;

Çok güzel ve hepimizin yararlanacağı bir arşiv çalışmasını başlattınız.

Değerli ustaların paylaşım ve katkıları ile bu arşivin büyüyeceğine inanıyorum.

Tebrikler ve teşekkürler.

 

[TEKNİKAHMET]

Teşekkürler

 

[ERTANNN41]

teşekkürler

 

[broker88]

Teşekkürler