Herkese merhaba,
İhtiyaç duymam üzerine access e merak saldım ve yeni yeni birşeyler öğrenmeye çalışıyorum.
Yapmaya çalıştığım personel takip ile ilgili çalışmamda personel izinlerinde tıkandım.
Yine yardımla personelin iş tecrübesini bulmayı öğrendim. (İki tarih arası farkı buldum) Tecrübesine görede izin hakkı vermek istiyorum, select case kullanarak fonksiyonumu yazdım fakat bir yerde hata var ve bulamıyorum.
Şöyleki 1 ile 5 yıl arasındaki tecrübeye sahip personel 18 gün
6 ile 15

Ekteki örnekte Snt_GIRIS ve SNT_TAKSIT alt formu var alt formda ödeme şekine göre Tbl_ODENEN tablosuna kayıt yapmak istiyorum ama birtürlü yapamadım galiba alt form olduğundan değeri alamıyorum.

[code=vba]Private Sub ODE_Click()
Select Case Me.ODEMESEKLI.Column(1) 'ÖDEME ŞEKLİ SENET İSE
Case "SENET"

On Error Resume Next
Dim cnr As New ADODB.Recordset
Set cnr = New ADODB.Recordset
Dim sql As String
sql = "select * from Tbl_ODENEN"

GİRİŞ

Access ile hazırladığımız uygulamalarımızda yapmak istediklerimiz arttıkça artık menülerin, sihirbazların, makroların yetersiz kaldığını hissederiz.. Ama biz uygulamalarımızın daha özgün, esnek ve de kullanışlı olmasını istiyoruz.. Bu da demektir ki artık ufak ufak kod yazmayı öğrenmenin zamanı gelmiştir..




Merhaba arkadaşlar..

Select Case karar yapısı bir önceki konuda işlediğimiz İf - Then - Else karar yapısının (öz

Aşağıdaki kod ile personel alacağına kayıt yapıyorum personel_hesap tablomda borç alacak kısımları var bu işlem persenelin alacağına kayıt yapıyor ama bir kritere daha ihtiyacım var SUBE değeri 2 ve örneğin IPTAL alanı I ise personelin borç tarafına kayıt yapmam gerek case ile yalnızca 1 kritere göre kayıt yapabiliyorum 2.krıtere göre kayıt yapabilirmiyim kriteri nasıl belirleyebilirim.

[code=vba]Select Case Me.SUBE
Case "2"
On Error Resume Next
Dim cnr As New ADODB

Merhaba ACCESS DOSTLARI;

Eklediğim örneğin konusu aslında (Buradaki konu) Taruz'a aittir.

Bende yeni gördüm.. Örnekleyeyim dedim..

İşte ..)

Arkadaşlar herkese hayırlı günler, yine bir konuda yardımınızı talep edeceğim.

Formda üç alanım var, ilk alanda ne seçiliyse diğer iki alana o seçilen katıyla ilişkili sayıların atanmasını istiyorum.

Yapılacak işlemi bildiğimi sanıyorum, örneklerden de uyguladım ama sonuç vermiyor.

Sonuç vermeyen yöntemlerimin 1.

[code=vba]
Select Case Dosya

Case "Elma"
Me.Sayisi.Setfocus
Sayisi=1
Me.Kodu.Setfocus
Kodu=122

Case" Armut"
Me.Sayisi.Setfocus
Sayisi=2
Me.Kodu.Setfocus
Kodu

Merhaba, ekteki dosyada gizlilik derecesine göre Grup Üstbilgisini göster/gizle yapmaya çalışıyorum ancak tam olarak yapamadım. Nerede hata yapıyorum onu da bulamıyorum. Lütfen bi el atın

SELECT * ,Durum=case SOZLU when SOZLU<45 then 'Kaldı' else 'Geçti' end FROM OGRENCİ

Arkadaşlar ben sözlü notuna göre durumu yazdırmak istiyorum fakat operatör hatası veriyor yardım edermisiniz nasıl olacak case yapısı.

Merhaba,

Personele ait yıllık izinleri sorgu içinde gün farklarına göre case ile hesaplamaya çalışıyorum, yalnız sorgu içinde Case kısmından sonra hata veriyor.


SELECT Tb_Personel_son.Sicil, Tb_İzin_Tah.Adi_Soyadi, Tb_Personel_son.Basin_Karti, Tb_Personel_son.T_C_Kimlik, Year(DateAdd("yyyy",1,[Tb_İzin_Tah.Hakedis_Tar])) AS Yil,

CASE ((Date()-[Ise_Giris_Tar]))
WHEN 365 <=1825 THEN ‘14’
WHEN 1826 <= 5475 THEN ‘21’
ELSE ‘26’
END

'0' AS kgun, (Tb_Personel_son.Ise_Giris_Tar) AS

Ekteki veritabanı bir önceki konu ile bağlantılı işleyiş aynı ancak yapılan kayıtların mükerrerliğinide kontrol etmek gerekiyor aksi halde her butona basıldığında aynı kaydı ekleyeceğinden karışıklık olacaktır.SNT_GIRIS formunda ODE butonuna bağlı çalışan kod
aşağıdaki gibi bu işlemden önce mükerrer kayıt kontrolü yaptırmam gerek kayıt varsa işlem durmalı yoksa yeni kayııt eklenmeli.

[code=vba]Private Sub ODE_Click()
Select Case Me.ODEMESEKLI.Column(0)
Case "1"
If MsgBox("kasaya tahsila