AccessTr.neT

Tam Versiyon: Metin Kutusuna Açıklama Eklemek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.


[Resim: do.php?img=11076]


[Resim: do.php?img=11075]
(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.


[Resim: do.php?img=11076]
https://resim.accesstr.net/do.php?img=11076

[Resim: do.php?img=11075]
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ı.

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

[Resim: do.php?img=11078]
https://resim.accesstr.net/do.php?img=11078
Sayfalar: 1 2