Sn hoopmars;
ilgili satiri asagida ki gibi degistirebilirsiniz.
.InitialFileName = currentproject.path & "\KlasorAdi"
projenizin bulundugu klasor adi ile resimlere ulasacaktir.

Private Sub Resimi_DblClick(Cancel As Integer)
Dim aa As String
aa = Resimi.Value
Call Shell("explorer " & aa, vbMaximizedFocus)
End Sub
olarak degistirebilirsiniz.

Sezgin Bey merhaba, sorgulamada bir sıkıntım var. Konu, sorguda aynı olan kayıtları saymamak. Ek_2Srg da öyle bir sorgulama yapılmalı ki, örneğin 212 nolu çalışmada geçen hafta çalışan makine sayısı öğrenmek işitiyorum. Her seferinde 7 adet gösteriyor. Fakat aynı makine çalıştığı için 1 olması gerekiyor. Aynı çalışmada farklı makineler varsa onları da görmek. Örneğin; ÇalışmaNo(212)-Cinsi(Paletli Ekskavatör)-Marka(abcd)-Model(efdg)-adet(1) devamı ÇalışmaNo(212)-Cinsi(Yükleyici)-Marka(abcd)-Model(efdg)-adet(1) gibi. Ve bunları raporda göstermek.

Sn hoopmars;
Dlookup, dsum, dcount komutlarini inceleyebilirsiniz. Sizin icin capraz soru ile makinalarin gruplanmasi ile haftalik calisma saatlerinin toplamlarini orneklemeye calistim. Benzer ozet listeleri yukarda ki komutlar ile yapabilirsiniz.

  Antalya.rar (Boyut: 1,95 MB / İndirilme: 106)