tarih ve saat kaydı ile kontrol
Tarih
22/02/2009 00:04
Konu Sahibi
anlarturk
Yorumlar
6
Okunma
2321
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



anlarturk
Üye
Kullanici Avatari
Üye
13
3
13/02/2009
0
İstanbul
Ofis 2003
05/06/2012,12:41
Çözüldü 
Sponsor Reklam
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.


Ek Dosyalar
.rar   PERSONELvt1.rar (Dosya Boyutu: 87,77 KB / İndirme Sayısı: 19)
Cevapla

esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
359
Konya
Ofis 2003
06/11/2015,13:38
Çözüldü 
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.Recor DCount > 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.Recor DCount > 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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

anlarturk
Üye
Kullanici Avatari
Üye
13
3
13/02/2009
0
İstanbul
Ofis 2003
05/06/2012,12:41
Çözüldü 
Sponsor Reklam
öncelikle çok teşekkür ederim.fakat olmadı yada ben yapamadım.veritabanını tekrar gönderdim.bakarsanız.şimdiden teşekkürler.


Ek Dosyalar
.rar   PERSONELvt1.rar (Dosya Boyutu: 84,46 KB / İndirme Sayısı: 10)
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.837
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Çözüldü 
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


Ek Dosyalar
.mdb   PERSONELvt1.mdb (Dosya Boyutu: 1,29 MB / İndirme Sayısı: 15)
Cevapla

anlarturk
Üye
Kullanici Avatari
Üye
13
3
13/02/2009
0
İstanbul
Ofis 2003
05/06/2012,12:41
Çözüldü 
Sponsor Reklam
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
Cevapla

Nurullah_Serdar
FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
umarım işine yarar. saati sen giris veya çıkış butonuna bastığın zaman otomatik alıyor. elinle düzenleme tablo üzerinden yapabilirsin.


Ek Dosyalar
.rar   PERSONELvt1.rar (Dosya Boyutu: 114,56 KB / İndirme Sayısı: 39)
İyiki Varsın Access Img-grin
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  access iki tarih arası verileri datetimepicker vasıtasıyla çağırma usescrt 9 177 15/01/2017, 12:43 usescrt
  saat ücreti hesaplama dsmelbistan 5 187 12/01/2017, 13:01 atoz112
  İki Tarih Arası Rapor Hatası m_demir 14 294 24/12/2016, 23:03 m_demir
  İki Tarih Arası Hk. Serkan Çevik 2 129 24/12/2016, 20:24 Serkan Çevik
  İki Tarih Arası Rapor Almak m_demir 20 596 23/12/2016, 12:11 m_demir


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya