sayın üyeler, forumda araştırdım ama bulamadım. bir tane
Excel örnek var access'te bulamadım
konu şu;
puantajda her bir gün için metin kutusunun üzerine çift tıklayınca inputbox benzeri bir mesaj girilecek açıklama yazılabilecek
bir ileti kutusu açılsın ve bir açıklama ve ya not yazabilelim bunuda daha sonra yine alana girince veya çiift tıklamada olur,,
açıkalamayı görelim ve gerekirse değiştirebilelim..
mümkün mü?
Sayın üye abey.
tblAcıklama diye tablo ekledim.
Ve resimdeki gibi kod ekledim diğet textboxlarada ekleyip devam edebilirsinizyada classilede yapılır.
Gifte gösterdimçift tıklayıp deneyiniz.
Kodlarda belki yanlışlık olabilir accessten fazla anlamıyorum.
(30/05/2021, 03:46)feraz yazdı: Sayın üye abey.
tblAcıklama diye tablo ekledim.
Ve resimdeki gibi kod ekledim diğet textboxlarada ekleyip devam edebilirsinizyada classilede yapılır.
Gifte gösterdimçift tıklayıp deneyiniz.
Kodlarda belki yanlışlık olabilir accessten fazla anlamıyorum.
https://resim.accesstr.net/do.php?img=11076
https://resim.accesstr.net/do.php?img=11075
sayın feraz güzel bir örnek ancak farklı aylarda aynı kişi için açıklama eklemek mümkün olabilir mi
A kişisine 01 mayısta bir açıklama
01 haziranda başka bir açıklama vs..
Alttaki gibi mesaj kutusuna gerek kalmadı.
Alıntı:farklı aylarda aynı kişi için açıklama eklemek mümkün olabilir mi
Bunun için uğraşmam gerek bilmiyorum yapabiliriyim.Ay ve yıl içinde bir alan ekleyip sorgular ekleme ile yapılır gibi.
Sub aciklamaEkle(veri As String)
Dim x As String, y As String, z As Long
y = Nz(DLookup("[aciklama]", "tblAciklama", "[id] =" & PERNO & " and [ay] ='" & veri & "'"), "")
If y <> "" Then
x = InputBox("aciklama: " & y, "aciklama yaz")
Else
x = InputBox("aciklama: Bos", "aciklama yaz")
End If
If x = "" Then Exit Sub
z = Nz(DLookup("[id]", "tblAciklama", "[id] =" & PERNO & " and [ay] ='" & veri & "'"), 0)
If z = 0 Then
CurrentDb.Execute "INSERT INTO [tblAciklama]([id], [ay], [aciklama]) " & "VALUES (" & PERNO & ", '" & veri & "','" & x & "')"
ElseIf z > 0 Then
CurrentDb.Execute "UPDATE [tblAciklama] SET [aciklama] = '" & x & "' Where [id] = " & PERNO & " And [ay] = '" & veri & "'"
End If
End Sub
iki adet tablo(ay ve yıl) ekledim kod altta.Deneyin teferruatlıca benim denememde sorun olmadı.
Sub aciklamaEkle(veri As String)
Dim x As String, y As String, z As Long
Dim aycmb As Integer, yilcmb As Integer
aycmb = cmbMonth
yilcmb = cmbYear
'inputboxta aciklama göstermek icin
y = Nz(DLookup("[aciklama]", "tblAciklama", "[id] =" & PERNO & " and " & _
"[ay] ='" & veri & "' and " & _
"[aycombo] =" & aycmb & " and " & _
"[yilcombo] =" & yilcmb & "" & _
""), "")
'eger kriterlere göre aciklama varsa inputboxtta gösteriri yoksa bos olarak gösterir
If y <> "" Then
x = InputBox("aciklama: " & y, "aciklama yaz")
Else
x = InputBox("aciklama: Bos", "aciklama yaz")
End If
'inputbox ok ile kapatilmazsa bisey yapma
If x = "" Then Exit Sub
'tblAciklama tablosuna veri aciklama girmek yada varsa güncellemek icin
z = Nz(DLookup("[id]", "tblAciklama", "[id] =" & PERNO & " and " & _
"[ay] ='" & veri & "' and " & _
"[aycombo] =" & aycmb & " and " & _
"[yilcombo] =" & yilcmb & "" & _
""), 0)
If z = 0 Then
CurrentDb.Execute "INSERT INTO [tblAciklama]" & _
"([id], [ay], [aciklama], [aycombo], [yilcombo]) " & _
"VALUES " & _
"(" & PERNO & ", '" & veri & "','" & x & "'," & aycmb & "," & yilcmb & ")"
ElseIf z > 0 Then
CurrentDb.Execute "UPDATE [tblAciklama] SET [aciklama] = '" & x & "' " & _
"Where [id] = " & PERNO & " And " & _
"[ay] = '" & veri & "' And " & _
"[aycombo] =" & aycmb & " and " & _
"[yilcombo] =" & yilcmb & ""
End If
End Sub