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

Bu dosyadada resimdeki kodları ekleyip tag olaylarına resimdeki gibi ekledim.

Yani tüm ay textboxlarına uyguladım bişey yapmanıza gerek kalmadı.


https://resim.accesstr.net/do.php?img=11077


https://resim.accesstr.net/do.php?img=11078