Kod:
Dim a As String
a = Metin4.Value
If Me.Liste15.Value = "Baskı Önizleme" And Metin4.Value = a Then
DoCmd.OpenForm a, acNormal, "", "", , acNormal
End IfFormunuzdaki Liste15'den Baskı önizlemeyi seçerseniz, Metin4'den (Form) seçtiğiniz form açılır. Açılır kutudaki diğer rapor, form yazdırma vs. de yapılabilir.
Ancak, kaydetme ve tablo açtırmanın amacını anlayamadım.
aşağıdaki kodu metin6 nın güncellenme sonrasındaki olayına yazarsanız seçtiğiniz raporu liste15'e göre yazdır veya önizleme yapar.
Kod:
Dim a As String
a = Metin6.Value
If Me.Liste15.Value = "Yazdır" And Metin6.Value = a Then
DoCmd.OpenReport a, acViewNormal, "", ""
End If
If Me.Liste15.Value = "Baskı Önizleme" And Metin6.Value = a Then
DoCmd.OpenReport a, acViewPreview, "", "", acNormal
End If