metin kutusuna bağlı sekmeler

[devvrimm]

sekmeli bir form hazırladım sekmenişn birinde kız lara diğerinde erkeklere yönelik bilgi giriş formu var. (yalnız bu formlar alt form ve ana forma kayıt numarası ile bağlılar.)

kayıtlar arasında dolaşırken cinsiyet metin kutusuna bağlı olarak bu sekmelerin de güncellenmesini istiyorum bu olay mümkün mü acaba. erkek kayda geldiğimde ekek sekmesinin aktif olmasını istiyorum

bu konuda yardımlarınızı bekliyorum.

şimdiden çok teşekkürler

 

[devvrimm]

güncel

arkadaşlar yardımcı olabilecek kimse yok mu

 

[modalı]

Sayın devrimm,

Aşağıdaki kodları kullanabilirsiniz:

Private Sub Form_Current()
If Me.Metin3 = "Erkek" Then
    Me.ERKEK.SetFocus
Else
    Me.KIZ.SetFocus
End If
End Sub

Private Sub Form_Load()
If Me.Metin3 = "Erkek" Then
    Me.ERKEK.SetFocus
Else
    Me.KIZ.SetFocus
End If
End Sub

Private Sub Metin3_AfterUpdate()
If Me.Metin3 = "Erkek" Then
    Me.ERKEK.SetFocus
Else
    Me.KIZ.SetFocus
End If
End Sub

İyi çalışmalar

 

[devvrimm]

teşekkürler

çok teşekkür ederim sayın hocam hemen deneyeceğim

ellerinize sağlık

 

[madix]

sekmeli form hazırladım olan bilgileri girdim. forma yeni bir kayıt yaparken malzeme bölümünde birçok malzeme adı var bunların tam adını yazmak yerine çağırma modeli olabilirmi listeden.birtürlü yapamadım.çalıştıramadım.( stok kaydı yapıyorum.)

 

[modalı]

Sayın madix,

Doğru anladıysam, metin kutusu yerine açılan kutu kullanın. Kutunun liste verisi olarak stok tablosunun stok no ve adını ekleyin, listeyi iki sütunlu yapıp, ilk sütun genişliğini 0 a eşitleyin.

İyi çalışmalar

 

[devvrimm]

unutulan bir ihtimal

sayın modalı hocam kodlarınız kız ve erkek ikilisi olarak çok güzel çalıştı teşekkürler yalnız

veriler geldikçe bir durum ortaya çıktı o da cinsiyetin boş bırakılmış olma ihtimali. bu doğrultuda ben kodu değiştirip 3. bir ihtimal yazmaya kalktım ama olmadı bu konuda nasıl bir kod yazmalıyım 3 yada 4 farklı değişkene uygun olarak bu kod nasıl değiştirilebilir.

yardımcı olursanız sevinirim kolay gelsin

 

[modalı]

Sayın devvrimm,

O zman Select Case i kullanabiliriz:

Select Case Me.Metin3.Value

Case "KIZ"
     Me.KIZ.SetFocus
Case "ERKEK"
     Me.ERKEK.SetFocus
Case "...."
     Me. ... .SetFocus
Case Else
     Me. .... .SetFocus
End Select

İyi çalışmalar

 

[devvrimm]

saolun

hocam çok teşekkür ederim kod çok güzel çalışıyor ellerinize sağlık