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