Kod ihtiyacı

[icetiner]

Haluk Bey,

Ekte gönderdiğim resimde görüldüğü gibi İzin Belgesi Ekranında kayıtlı personel üç ayrı tarihte izin kullanmış.Kullanılan izinlerde yol süresi olup olmadığını belirten YOL isminde bir sütun var.Bu sütundaki değer (0) ise Yol Dahil, (0)'dan büyük bir rakam ise Yol Hariç demektir.

Beraber hazırladığımız ilk kod ile personelin kullandığı bütün izin sürelerini bir metin kutusunda;

10 gün DAÐITIM İZİNİ / 08.11.2004
17 gün YILLIK İZİN / 10.05.2005
3 gün TERHİS İZİNİ / 08.12.2005

bu şekilde toplamıştık.Þimdi ise Bu izinlerin başına aşağıda olduğu gibi Yol dahil veya Yol hariç şeklinde yol süresinide göstermek istiyorum.

Yol dahil 10 gün DAÐITIM İZİNİ / 08.11.2004
Yol hariç 17 gün YILLIK İZİN / 10.05.2005
Yol hariç 3 gün TERHİS İZİNİ / 08.12.2005

En son vermiş olduğunuz aşağıdaki kod ile
----------------------------------------------------------
STRSQL = "SELECT * FROM İZİNTABLO WHERE SIRANO = " & Me![Açilan Kutu0]
Set rst = dbs.OpenRecordset(STRSQL)
While Not rst.EOF
intyol = rst("YOL").Value
If intyol > 0 Then
iz = "Yol dahil" & iz
Else
iz = "Yol hariç" & iz
End If
iz = iz & " " & rst("SÜRE").Value & " " & "gün" & " " & rst("İZİN TÜRÜ").Value & " / " & rst("ÇIKIÞ").Value & VBA.Chr(13) & VBA.Chr(10)
rst.MoveNext
Wend
Me.izinler = iz
-----------------------------------------------
aşağıdaki sonuç çıkıyor.

Yol hariçYol dahilYol hariç 10 gün DAÐITIM İZİNİ / 08.11.2004
17 gün YILLIK İZİN / 10.05.2005
3 gün TERHİS İZİNİ / 08.12.2005

Dikkat ederseniz yol süresinin dahil olup olmadığını,kullanılan her izinin baş kısmına yazması gerekirken topluca yazmış.

Benim istediğim;

Yol dahil 10 gün DAÐITIM İZİNİ / 08.11.2004
Yol hariç 17 gün YILLIK İZİN / 10.05.2005
Yol hariç 3 gün TERHİS İZİNİ / 08.12.2005

şeklinde olması.

Umarım anlatabilmişimdir.Yardımlarınızı bekliyorum.Teşekkürler.
eklemek

 

[Haluk]

Bende WinRar yok.

Zip formatında gönderebilirmisiniz ?

 

[icetiner]

Winzip de bende yoktu.İndirmek biraz zaman aldı.Ondan dolayı geciktim.Resim ektedir.Teşekkürler.

 

[Haluk]

:mrgreen:

Ben de sizi beklerken WinRar indirdim.

Dosyayı ekleyeceğinizi sanıyordum ama hakkaten de sadece ekran görüntüsünü vermişsiniz.

Neyse, şimdilik aşağıdakini bir deneyin ...

STRSQL = "SELECT * FROM IZINTABLO WHERE SIRANO = " & Me![Açilan Kutu0]
Set rst = dbs.OpenRecordset(STRSQL)
While Not rst.EOF
    Msg = ""
    intYol = rst("YOL").Value
    If intYol > 0 Then
        Msg = "Yol dahil"
    Else
        Msg = "Yol hariç"
    End If
    iz = iz & Msg & rst("SÜRE").Value & " " & "gün" & " " & rst("IZIN TÜRÜ").Value _
         & " / " & rst("ÇIKIS,").Value
    rst.MoveNext
Wend
Me.izinler = iz

Not: Türkçe karakterli alan adlarını kontrol edin, bozulmuş olabilir .... (ÇIKIÞ, İZİN TÜRÜ .... gibi) ve tablo adı (İZİNTABLO)

 

[icetiner]

Dosya boyutu büyük olduğu için onu göndermeyi düşünmedim.

Msg=" " bölümü hata verdi.

yukarı kısımda bulunan yerde Msg'yi belirttim.Yani;

Dim Msg1 As String, Msg2 As String, Msg3 As String, Msg4 As String, assaygün, iz, intyol, Msg, STRSQL As String

fakat bu seferde;

Set rst = dbs.OpenRecordset(STRSQL)
alanında hata verdi.

 

[Haluk]

fakat bu seferde;

Set rst = dbs.OpenRecordset(STRSQL)
alanında hata verdi.

İlk önce, tablo adını kontrol edin.... İZİNTABLO

 

[icetiner]

Haluk Bey,

Teşekkür ederim.Þimdi tam oldu.Emeğinize sağlık.İyi geceler.