tarih ve saat kaydı ile kontrol - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: tarih ve saat kaydı ile kontrol (/konu-tarih-ve-saat-kaydi-ile-kontrol.html) Sayfalar:
1
2
|
tarih ve saat kaydı ile kontrol - anlarturk - 22/02/2009 merhaba arkadaşlar personellerin işe giriş-çıkış saatlerini kaydedebileceği ,aylık kaç saat çalıştığını görebileceğim bir program gerekiyor.access 2003 te 2 tablo oluşturdum. 1- personel bilgileri tablosu 2-işe giriş-çıkış saatlerinin girileceği tablo bu iki tabloyu birbiriyle ilişkilendirdim. -personelin sadece kodunu girerek işe giriş ve çıkış saatini kaydedebileceği bir form tasarlayabilmek. -x personelin aylık çalışma saatini hesaplayacak rapor bu konuda acil yardımınıza ihtiyacım var. Cvp: tarih ve saat kaydı ile kontrol - esrefigit - 22/02/2009 yeni bir form aç üzerine bir adet metin kutusu iki adet düğme koy metinkutusunun adı no düğmelerin adı ise giris çıkıs kiişi işe geldiği zaman no sunu metin kutusuna girecek giris düğmesine tıkladığızaman bu tarihe ait bir giriş yoksa yeni kayıt olarak eklecek varsa daha önce giriş yapmışsınız diyecek çıkış düğmesine tıkladığı zaman ise bu günü bulacak ve çıkış saaatini yazacak yalnız tablolarında türkçe karakterler kullanma ve arada boşluk alan isimlerinde boşluk bırakma giriş için Option Compare Database Public rstkayit As ADODB.Recordset Public intCount As Integer Dim strSQL As String Private Sub giris_Click() 'güncelleme için kod strSQL = "SELECT * FROM giriscikis " strSQL = strSQL & "giriscikis.no=" & Me.no & " AND " strSQL = strSQL & "giriscikis.isbasi=" & Date Set rstkayit = New ADODB.Recordset rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic With rstkayit If rskayit.RecordCount > 0 Then MsgBox "Daha önce bu kişiye ait giriş kaydı yapılmış" Exit Sub Else .AddNew .Fields("no") = Me.no .Fields("isbasi") = Date .Update End If End With End Sub çıkış için ise Private Sub cikis_Click() 'güncelleme için kod strSQL = "SELECT * FROM giriscikis " strSQL = strSQL & "giriscikis.no=" & Me.no & " AND " strSQL = strSQL & "giriscikis.iscikis=" & Date Set rstkayit = New ADODB.Recordset rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic With rstkayit If rskayit.RecordCount > 0 Then .Update .Fields("no") = Me.no .Fields("iscikis") = Date .Update Else MsgBox "Daha önce bu kişiye ait giriş kaydı yoktur" Exit Sub End If End With End Sub Cvp: tarih ve saat kaydı ile kontrol - anlarturk - 22/02/2009 öncelikle çok teşekkür ederim.fakat olmadı yada ben yapamadım.veritabanını tekrar gönderdim.bakarsanız.şimdiden teşekkürler. Cvp: tarih ve saat kaydı ile kontrol - C*e*l*o*y*c*e - 22/02/2009 sayın anlartürk siz eşref hocanın dediği gibi bir metinkutusu,buton yapmamışsınız en azından isimleri yanlışmış ben ben düzelttim ancak kod konusunda birşey diyemem,bende OLEDB 4.0 hatası gösteriyor,referanslarla alakalı sanırım siz bunun üzerinde deneyin Cvp: tarih ve saat kaydı ile kontrol - anlarturk - 22/02/2009 ilgilendiğiniz için teşekkür ederim.kod konusunu nasıl halledeceğiz onu bilemiyorum.burda bu konuda yardım bekliyorum. teşekkürler Cvp: tarih ve saat kaydı ile kontrol - Nurullah_Serdar - 24/02/2009 umarım işine yarar. saati sen giris veya çıkış butonuna bastığın zaman otomatik alıyor. elinle düzenleme tablo üzerinden yapabilirsin. |