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
iki adet tablo(ay ve yıl) ekledim kod altta.Deneyin teferruatlıca benim denememde sorun olmadı.
PUANTAJ_farklı aylarda.rar
(Dosya Boyutu: 194,51 KB | İndirme Sayısı: 0)
