AccessTr.neT

Bul · 22/04/2009, 14:24

Ben 3. maddeden anladığım kadarını yaptım, tabloya benzersiz değer için Sno adında (otomatik sayı) alan ekleyip Is_Kodu alanının Veri Türünü Metin olarak değiştirdim.

Forma veri kaydederken Isin_Turu Açılan Kutusunun Güncelleştirme sonrasında olayını aşağıdaki kodu yazdım,

Kod:

Is_Kodu = Left(StrConv([Isin_Turu].Column(1), 1), 3) & "" & Format([Sno], "00000")

Bu şekilde açılan kutudan seçilen kayıt Web Tasarımı ise ve Sno 2 ise Is_Kodu Alanına WEB00002 yazacak.

Bul · 22/04/2009, 14:24

Alıntı:14-) Foruma ekleyeceğiniz eklentileri herhangi bir sıkıştırma programıyla (Winrar, Winzip, 7zip vs) sıkıştırın. Ekleyeceğiniz örnek Access ise; Araçlar / Veritabanı Hizmet Programları / Veritabanı Sıkıştır ve Onar yolunu kullanarak programı Access ortamında sıkıştırdıktan sonra sıkıştırma programları ile sıkıştırıp ekleyin.
[Sürekli ihlal halinde Uyarı Puanı: +2]

Göz Doktoru vaktiniz gelmiş... Img-grin

Bul · 22/04/2009, 16:43

sled kardeşim 3. sorudaki kodlama ile ilgili istediğim çözüm bu idi teşekkür ederim.

Harun Bey,
Kodlarınızdan anladığım kadarı ile İş Türünü ne seçersem onun detay formu açılacak. Doğru mu?

Benim istediğim ise; (sanırım anlatırken kulağımı çapraz kolla tutuyorum) işler formunda "detay aç" isminde bir buton olsun butona tıkladığımda ilgili alt detay formunu açsın. Bu kadar. Yada İşler ana formunu liste halinde gösterdiğimi varsayalım. işin üzerine çift tıkladığımda ilgili detay formunu açsın. Eğer o işle ilgili detay yoksa aynı iş kodu ile boş kayıt açsın ki ben detay bilgilerini gireyim.

Bul · 22/04/2009, 17:08

Alıntı:Benim istediğim ise; (sanırım anlatırken kulağımı çapraz kolla tutuyorum) işler formunda "detay aç" isminde bir buton olsun butona tıkladığımda ilgili alt detay formunu açsın. Bu kadar.

sn hezarfen70, tdsharun'un 11. mesajda belirttiği kod bahsettiğiniz olay için, siz sadece

Kod:

IsinTuruAlani = Me.Isin_Turu.Text

yerine

Kod:

IsinTuruAlani = Me.Isin_Turu.Column(1)

yazacaksınız.

Bu kodu Isin_Turu açılır kutusunun çift tıklama olayına veya butona yazabilirsiniz.

Bul · 22/04/2009, 17:14

kodun tamamı aşağıdaki şekilde,

Kod:

Private Sub BUTONADI_Click()

    On Error GoTo hata

    Dim IsinTuruAlani As String 

    IsinTuruAlani = Me.Isin_Turu.Column(1) 

    Select Case IsinTuruAlani

Case "Ambalaj Tasarımı"

    DoCmd.OpenForm "Ambalaj", , , "[Is_Kodu]=" & Me![Is_Kodu]

Case "Web Tasarımı"

    DoCmd.OpenForm "Web", , , "[Is_Kodu]=" & Me![Is_Kodu]

Case "Baskılı İşler Tasarımı"

    DoCmd.OpenForm "Baskili", , , "[Is_Kodu]=" & Me![Is_Kodu]

Case "Diğer İşler"

    DoCmd.OpenForm "Diger", , , "[Is_Kodu]=" & Me![Is_Kodu]

End Select

hata: DoCmd.GoToRecord , , acNewRec

End Sub

Bul · 22/04/2009, 17:19

Yok hocam, bu yeterli olmayacak Sayın hezarfen70 için. Çünkü o sizin yaptığınız şekilde, başındaki WEB00002 falan da olsun istiyor anladığım kadarıyla.

Ben biraz uğraşayım. Birazdan dönerim...

AccessTr.neT

Access Mimarisi

Access Mimarisi

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri