AccessTr.neT
Metin Kutusuna Açıklama Eklemek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutusuna Açıklama Eklemek (/konu-metin-kutusuna-aciklama-eklemek.html)

Sayfalar: 1 2


Metin Kutusuna Açıklama Eklemek - karaayhan - 30/05/2021

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ü?


RE: Metin Kutusuna Açıklama Eklemek - feraz - 30/05/2021

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]


RE: Metin Kutusuna Açıklama Eklemek - karaayhan - 30/05/2021

(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..


RE: Metin Kutusuna Açıklama Eklemek - feraz - 30/05/2021

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



RE: Metin Kutusuna Açıklama Eklemek - feraz - 30/05/2021

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



RE: Metin Kutusuna Açıklama Eklemek - feraz - 30/05/2021

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