Liste Kutusu Columun Değerine Göre Formu Açtırma

Liste Kutusu Columun Değerine Göre Formu Açtırma - 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ığı: Liste Kutusu Columun Değerine Göre Formu Açtırma (/konu-liste-kutusu-columun-degerine-gore-formu-actirma.html)

Sayfalar: 1 2

Liste Kutusu Columun Değerine Göre Formu Açtırma - yahzee_61 - 07/03/2021

Arkadaşlar
liste kutusunun columun değerine göre şartlı rapor açtırmak istiyorum. aşağıdaki kodu farklı şekillerde denememe rağmen bir yol uyduramadım buna bakabilirmisiniz.

If IsNull(Izin_Listesi.Column(0)) Or Izin_Listesi.Column(0) = "" Then
MsgBox "Hata"
Exit Sub
Else
If Me.Izin_Listesi.Column(8) = "Yıllık İzin" Then
DoCmd.OpenForm "FrmYillikİzin", acNormal
Else
If Me.Izin_Listesi.Column(8) = "Rapor" Then (buradaki değeri )
DoCmd.OpenForm "FrmRapor", acNormal
Else
End If
End If
End If
Dim rs As New ADODB.Recordset
Dim FrmAdi As String
rs.Open "Tbl_İzinler", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[idxizin]=" & Me.Izin_Listesi.Value
FrmAdi = "FrmYillikİzin" (BU ALANA yazdırabilirmiyiz)
DoCmd.OpenForm FrmAdi, acNormal ' Form açma kodu
With Forms(FrmAdi)
.idxizin = rs("idxizin")
.TxİzinTarih = rs("İzinTarih")
.TxİzinBaslama = rs("İzinBaslama")
.TxİzinYili = rs("İzinYili")
.TxİzinGun = rs("İzinGun")
.TxİzinYili1 = rs("İzinYili1")
.TxİzinGun1 = rs("İzinGun1")
.TxİzinYol = rs("İzinYol")
.TxHaftaSonu = rs("İzinHaftaSonu")
.TxİzinNot = rs("İzinNot")
.TxİzinAdres = rs("İzinAdres")
.TxPrsId = rs("İzinPrsId")
End With
End Sub

şunu söylemeliyimki ıf şartı değiştikce orada değişecek

RE: Liste Kutusu Columun Değerine Göre Formu Açtırma - berduş - 07/03/2021

Liste kutusuna yeni bir alan ekleyip form adları eklenebilir

RE: Liste Kutusu Columun Değerine Göre Formu Açtırma - yahzee_61 - 07/03/2021

hocam liste kutusunda adlar var ben onları FrmAdi kısmına çekmeye çalışıyorum.

yani koşulu sağlayan form adı orada yazsın ki doğru bilgiler doğru formda açılsın.

RE: Liste Kutusu Columun Değerine Göre Formu Açtırma - berduş - 08/03/2021

elseif yada case kodları işinize yarayabilir

RE: Liste Kutusu Columun Değerine Göre Formu Açtırma - yahzee_61 - 09/03/2021

maalesef kurguyu oturtamadım kod aşağıda bunu düzenleyebilirmiyiz
Private Sub Izin_Listesi_DblClick(Cancel As Integer)

Dim rs As New ADODB.Recordset
rs.Open "Tbl_İzinler", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[idxizin]=" & Me.Izin_Listesi.Value
Dim FrmAdi As String
Select Case Izin_Listesi.Column(8)
Case "Yıllık İzin"
FrmAdi = "FrmYillikİzin"
Case "Rapor"
FrmAdi = "FrmRapor"
Case "Mazeret İzni"
FrmAdi = "FrmMazeretİzni"
DoCmd.OpenForm FrmAdi, acNormal ' Form açma kodu
With Forms(FrmAdi)
.idxizin = rs("idxizin")
.TxİzinTarih = rs("İzinTarih")
.TxİzinBaslama = rs("İzinBaslama")
.TxİzinYili = rs("İzinYili")
.TxİzinGun = rs("İzinGun")
.TxİzinYili1 = rs("İzinYili1")
.TxİzinGun1 = rs("İzinGun1")
.TxİzinYol = rs("İzinYol")
.TxHaftaSonu = rs("İzinHaftaSonu")
.TxİzinNot = rs("İzinNot")
.TxİzinAdres = rs("İzinAdres")
'.TxPersonelId = rs("PersonelId")
End With
End Select
End Sub

RE: Liste Kutusu Columun Değerine Göre Formu Açtırma - berduş - 09/03/2021

diğer kodları Case içine yazılmamamlıydı



....

....

Select Case Me.Izin_Listesi.Column(8)

    Case "Yıllık İzin"

    FrmAdi = "FrmYillikİzin"

    Case "Rapor"

    FrmAdi = "FrmRapor"

    Case "Mazeret İzni"

    FrmAdi = "FrmMazeretİzni"

End Select



DoCmd.OpenForm FrmAdi, acNormal 

....

....