Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Ajanda gün olarak değil de, hafta olarak ilerlesin?

[FORM] Ajanda gün olarak değil de, hafta olarak ilerlesin?
abahceci
Aktif Üye 150-200

*
Kayıt Tarihi: 15.08.2013
Toplam 31 konu açtı.
Toplam 169 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#1
04-11-2017, 02:39
Herkese merhaba,

Ekteki örnek veritabanında ajanda her açıldığında en baştaki liste, o güne ait liste, yani bugün için 04.11.2017 Cumartesi listesi. Bunu yarın açtığımızda da 05.11.2017 Pazar listesi olacak.

Benim yapmak istediğim ajandayı her açtığımda günler sabit kalsın (Pazartesi ile başlasın ve Pazar günü ile bitsin), ama her hafta haftalık olarak ilerlesin.

İlgilenebilecek arkadaşlara şimdiden çok teşekkür ediyorum.


Eklenti Dosyaları
.rar   tarih.rar (Boyut: 89,14 KB / İndirilme: 125)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#2
04-11-2017, 22:42
Private Sub Form_Load()
...
CalcParam Fix(DateAdd("d", 1 - Weekday(Date, vbMonday), Date))
...
End Sub

Formun ilk acilisinda haftaya ait pazartesinden baslayan ekran goruntusu olusturabilirsiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
abahceci
Aktif Üye 150-200

*
Kayıt Tarihi: 15.08.2013
Toplam 31 konu açtı.
Toplam 169 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#3
05-11-2017, 13:42 (En son düzenleme: 05-11-2017, 14:11 abahceci.)
Sayın dsezgin hocam,

İlginize çok teşekkür ederim. Sorun çözülmüştür.

Yalnız bu soruyla ilgili olduğu için tekrar konu açmak istemedim.

İlgili haftayı açtığımızda "Bugün"ü hangi listede gösteriliyorsa; farklı bir renkte göstermek için nasıl bir kod yazmamız gerekir?

Tekrar çok teşekkür ediyorum.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#4
05-11-2017, 17:26
AJANDA Modulun icinde Public Const cBK_SEL = 11599871(Sari) rakami, renk sayisi ile degistirin.

Gune ait odaklama icin RANDEVU formu gecerli oldugu proseduru asagida ki ile degistirin.


Visual Basic
  1. Private Sub Form_Load()
  2.  Me.tarih = Date
  3.    DoCmd.ShowToolbar "web", acToolbarNo
  4.    If Len(Me.OpenArgs) = 0 Or IsNull(Me.OpenArgs) Then
  5.       CalcParam Fix(DateAdd("d", 1 - Weekday(Date, vbMonday), Date))
  6.    Else
  7.       CalcParam CDate(Me.OpenArgs)
  8.    End If
  9.    Dim SW As Long, Odak As Long, AyBil As Variant, TrhDs As Date
  10.    For SW = 0 To 6
  11.    TrhDs = CDate(Left(Me.Controls("lbl" & SW).Caption, InStr(1, Me.Controls("lbl" & SW).Caption, ",") - 1))
  12.       If CLng(Date) = CLng(TrhDs) Then Odak = SW: Exit For
  13.    Next SW
  14.    Me.Controls("lst" & Odak).SetFocus
  15.    Me.Controls("lst" & Odak).BackColor = cBK_SEL
  16.       ctlOld = "lst" & Odak
  17.       ctlBCOld = cBK_NOW
  18. Call hastasayisi
  19. End Sub


Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Kritere Bağlı Olarak Değerlerin Toplanması M_Kemal_Askeri 2 70 10-04-2026, 01:05
Son Mesaj: M_Kemal_Askeri
  Son Endeks In Ikinci Yeni Kayıtta Ilk Endeks Olarak Gelmesi özgülapt 4 404 22-03-2025, 23:43
Son Mesaj: özgülapt
  [SORGU] çarpraz Sorguda Sütun Değeri Olarak Birden çok Alan Seçebilir Miyiz? abkbek 2 409 13-08-2024, 21:18
Son Mesaj: abkbek
  [RAPOR] Access De Ki Raporu Word Belgesi Olarak Vba Kodu Ile Açma Ahmet51 10 879 01-08-2024, 10:28
Son Mesaj: dsezgin
  [SORGU] List BoX'a Gelen Verinin Ismi Değil ıd'si Görünüyor TheREDROSE 4 502 11-07-2024, 10:17
Son Mesaj: TheREDROSE
  [FORM] Onay Kutususun şarta Bağlı Olarak Otomatik Olarak Işaretlenmesi Samih KARSLI 2 437 06-04-2024, 18:49
Son Mesaj: Samih KARSLI
  [FORM] Veri Girişine Bağlı Olarak Veri çeşidi Toplam Sayısının Artması M_Kemal_Askeri 2 392 07-03-2024, 20:03
Son Mesaj: M_Kemal_Askeri
  Virgülle Ayrılmış Verilerin Her Bir Değerini Yeni Kayıt Olarak Ekleme adnnfrm 5 679 28-11-2023, 01:37
Son Mesaj: dsezgin

Foruma Git:


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