kayıt işlemi bitirdiğimde 3 tablo ile ilgli rapor oluşturup tek tıkla son kaydedilen doneme ait bilgileri yazdırmak istiyorum.. yazdır buttonuna ne yazmalıyım ??
bu kodu denedim fakat dirty hata verdi? ve bu kod tek rapor üstüne...
Dim strWhere As String
Dim sonkayit As Integer
If Me.Dirty Then '
Me.Dirty = False
End If
If Me.NewRecord Then
MsgBox "Kayıt Seçiniz"
Else
sonkayit = DLast("DONEMID", "T_DONEM")
strWhere = "[DONEMID] = " & sonkayit
DoCmd.OpenReport "S_KATILIMCI_ILETISIM", acViewPreview, , strWhere
End If