Skip to main content

AccessTr.neT


Metin Kutusuna Açıklama Eklemek

Metin Kutusuna Açıklama Eklemek

Çözüldü #1
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ü?
.rar PUANTAJ.rar (Dosya Boyutu: 336,94 KB | İndirme Sayısı: 2)
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#2
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]
.rar PUANTAJ.rar (Dosya Boyutu: 192,07 KB | İndirme Sayısı: 1)
Cevapla
#3
(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..
.rar PUANTAJ_farklı aylarda.rar (Dosya Boyutu: 194,48 KB | İndirme Sayısı: 1)
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#4
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
Cevapla
#5
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
.rar PUANTAJ_farklı aylarda.rar (Dosya Boyutu: 194,51 KB | İndirme Sayısı: 0)
Cevapla
#6
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
.rar PUANTAJ_farklı aylarda.rar (Dosya Boyutu: 192,58 KB | İndirme Sayısı: 7)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da