Form alanları arasında geçiş

[aksoyahmet1]

Arkadaşlar formun üzerimdeki alanlarda tab tuşu ile değilde bir sonraki
alana enter tuşu ile nasıl geçilir.yardımcı olursanız sevinirim.

 

[simendifer]

Çift tıklama ile diğer forma gidiş
Access te form içinde bir alan veya açılan kutuya çift tıklayarak başka bir forma yönlene biliriz bunun için gerekli kod aşağıdadır

Private Sub ÜrünNo_NotInList(NewData As String, Response As Integer)
MsgBox "Listeye bir girdi eklemek için bu alanı çift tıklatın."
Response = acDataErrContinue
End Sub
----------------------------------------
birde sekmeli formda geciş için kod

Sayfanın son metin kutusunun odaklanma kaybetme olayına: Bir sonraki sayfanın ilk metin kutusuna odaklanmayı yazın
Kod:
Private Sub Metin5_LostFocus()
Me.Metin7.SetFocus
End Sub
-----------------------
Bazı Kodlar; 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