Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [SORGU] Vardiya Saatini Algılama Kodu

[SORGU] Vardiya Saatini Algılama Kodu
footprinting
Aktif Üye 100-150

*
Kayıt Tarihi: 09.01.2020
Toplam 41 konu açtı.
Toplam 141 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007, Office 2019,
Beğeniler: 1 / 0
#7
25-03-2020, 14:04
hocam yaptım ama her halde kod da sıkıntı var


Eklenti Dosyaları
.rar   deneme.rar (Boyut: 27,61 KB / İndirilme: 61)



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#8
25-03-2020, 14:11
en üstte Option Explicit olduğu için değişkenleri de tanımlamalısınız
Visual Basic
  1. Dim x  As String
  2. Dim BasX As Integer
  3. Dim y As Date


gibi



  Bul
  Alıntı
Bu mesajı beğenenler:
footprinting
Aktif Üye 100-150

*
Kayıt Tarihi: 09.01.2020
Toplam 41 konu açtı.
Toplam 141 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007, Office 2019,
Beğeniler: 1 / 0
#9
25-03-2020, 14:29
hocam çok teşekkürler çalıştı



  Bul
  Alıntı
Bu mesajı beğenenler:
footprinting
Aktif Üye 100-150

*
Kayıt Tarihi: 09.01.2020
Toplam 41 konu açtı.
Toplam 141 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007, Office 2019,
Beğeniler: 1 / 0
#10
28-03-2020, 08:18 (En son düzenleme: 28-03-2020, 08:19 footprinting.)
hocam resimde görünen boş hücrelere denk gelen hata yazılarını nasıl kaldıra bilirim

sonuc(kontrol_edilme_tarihi) AS kontrol_vardiyasi, CDate(CLng(kontrol_edilme_tarihi)) AS kontrol_tarihi


Eklenti Dosyaları
.png   hata kodu.png (Boyut: 23,61 KB / İndirilme: 55)



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#11
28-03-2020, 11:37
Visual Basic
  1. Function sonuc(Trh As Date) As String
  2. X = CStr(Trh)
  3. BasX = InStr(X, " ") + 1
  4. y = TimeValue(CStr(Mid(X, BasX)))
  5. If y >= TimeValue("16:00:00") Then sonuc = "16/00 var...." Else sonuc = "8/16 vardiyasi"
  6. If y <= TimeValue("08:00:00") Then sonuc = "00:00/08:00 vardiyasi"
  7. If err.number<>0 then  sonuc ="vardiya girilmemis"
  8. End Function


fonksiyona bu satırı ekledim deneyemedim dilerim işinize yarar.
If err.number<>0 then sonuc ="vardiya girilmemis"



  Bul
  Alıntı
Bu mesajı beğenenler:
footprinting
Aktif Üye 100-150

*
Kayıt Tarihi: 09.01.2020
Toplam 41 konu açtı.
Toplam 141 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007, Office 2019,
Beğeniler: 1 / 0
#12
28-03-2020, 11:47
hocam çalışmadı onun yerine 

sonuc(kapatma_tarihi) AS kapatma_vardiyasi, CDate(CLng(kapatma_tarihi)) AS kapanan_tarih 

yukarıdaki sql ekleme yapamazmıyız



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-9 Vardiya çizelgesi biLecikLi 1 301 27-11-2024, 00:33
Son Mesaj: dsezgin
  [RAPOR] Access De Ki Raporu Word Belgesi Olarak Vba Kodu Ile Açma Ahmet51 10 952 01-08-2024, 10:28
Son Mesaj: dsezgin
  [VBA] Yıl Ay Sayı Sıralama Kodu Hakkında Ahmet51 6 792 29-05-2023, 09:31
Son Mesaj: halily
  [SORGU] Sql Kodu Ahmet51 10 1.172 11-04-2023, 19:01
Son Mesaj: dsezgin
  ürün Kodu ankaram 2 315 09-12-2022, 20:46
Son Mesaj: ankaram
  [SORGU] Sözdizimi Hata Kodu Alıyorum golf2000 12 949 29-08-2022, 20:00
Son Mesaj: halily
  [FORM] Sipariş Kodu Oluşturma alikagan 4 544 02-06-2022, 21:59
Son Mesaj: alikagan
  [VBA] Veri Girişi Vba Kodu hedefkaya 2 430 26-03-2022, 22:19
Son Mesaj: hedefkaya

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 2 Ziyaretçi