Secilen Verileri Gelmesi

[casua]

Arkadaslar Bİr Tablo Hazirladim Ve Bunlarla İlglİ Soruyu Tablonun Icine Yazdim.yardimci Olursaniz Sevinirim.Şİmdİden Tesekkur Ederİm.

 

[modalı]

Sayın casua,

Aşağıdaki kodları form kod yazım penceresine kopyalayıp yapıştırın.

Private Sub AMAC_BeforeUpdate(Cancel As Integer)
    If AMAC = "NUMUNE" Then
        Me.EUR_DK = 1
        Else
    End If
    If AMAC = "COPY" Then
        Me.EUR_DK = 2
        Else
    End If
        
    If AMAC = "DÜZELTME" Then
        Me.EUR_DK = 3
        Else
    End If
    If AMAC = "DESEN" Then
        Me.EUR_DK = 4
    End If
End Sub

Kullanılan Süre metin kutusunun veri kısmına ise aşağıdaki ifadeyi kopyalayıp yapıştırın:

=DateDiff("n";[BASLAMA_SAATI];[BITIS_SAATI])

İyi çalışmalar:hey:

 

[casua]

Sayın "modalı"..

yardımın için tesekkur ederim.Cok sağolasın...

iyi çalışmalar dilerim..

 

[casua]

Sayın "modalı"..
ya bir sorunum çıktı.o rakamlar vardı ya.ben o rakamı 0,33 ile değiştirdiğimde makro çalışmadı.yardıomcı olabilirmisin.