20-02-2020, 12:00
Visual Basic
- Beep
- MsgBox "Bu Ay Ayrılanları İsim Giriş Formunda İşaretlediniz Mi?", vbQuestion, "DİKKAT"
- Dim KlsYol As String
- KlsYol = "C:\Users\ahmet.aydınlar\Desktop"
- If Len(Dir(KlsYol, vbDirectory)) = 0 Then
- MkDir KlsYol
- Else
- If yzdrsecenek = 1 Then
- DoCmd.OpenReport "ÜCRETLİLER LİSTESİ", acViewPreview
- ElseIf yzdrsecenek = 2 Then
- DoCmd.OutputTo acOutputReport, "ÜCRETLİLER LİSTESİ", "PDFFormat(*.pdf)", KlsYol & "\" & "ÜCRETLİLER LİSTESİ.pdf", True
- ElseIf yzdrsecenek = 3 Then
- DoCmd.OutputTo acOutputReport, "ÜCRETLİLER LİSTESİ", "XPSFormat(*.xps)", KlsYol & "\" & "ÜCRETLİLER LİSTESİ.xps", True
- End If
- End If
Saygıdeğer Hocalarım yukarıda ki kodda KlsYol = "C:\Users\ahmet.aydınlar\Desktop" de ahmet.aydınlar kullanıcı adıdır.
Kodumuz bu şekli ile şunu yapmaktadır. Ücretliler Listesi Raporunu " Masaüstüne" (Desktop) Pdf veya Xps olarak klasör olmadan kayıt yapmaktadır.
Bu uygulamamız bazı arkadaşlar ile paylaşılacağından, sizde takdir edersiniz ki içeriği ile oynanıp bozmamaları için kod alanına şifre konulacaktır.
Bu nedenle kişilerin koda girip ilgili yere kullanıcı adlarını yazmaları mümkün olmayacağından, bu alana ne yazılabilir.
Kodun yine aynı şekilde çalışması gerekmektedir.
Bu konuda değerli hocalarımın yardımlarını bekliyorum.
Şimdiden kendilerine teşekkürlerimi sunarım.