Sanırım bu şekilde daha iyi.

Dim DosyaAdi, a, x, y, KlasorYolu1, KlasorYolu2, KlasorYolu3, KVarMi1, KVarMi2, KVarMi3 As String



        x = Me.hastane_adi

        y = Me.ihale_kodu

        a = Me.ihalenin_adi

        

        KlasorYolu1 = CurrentProject.Path & "\" & x

        KlasorYolu2 = CurrentProject.Path & "\" & x & "\" & y

        KlasorYolu3 = CurrentProject.Path & "\" & x & "\" & y & "\" & a

        

        KVarMi1 = Len(Dir(KlasorYolu1, vbDirectory))

                If KVarMi1 = 0 Then

                   MkDir KlasorYolu1

                End If

        KVarMi2 = Len(Dir(KlasorYolu2, vbDirectory))

                If KVarMi2 = 0 Then

                   MkDir KlasorYolu2

                End If

        KVarMi3 = Len(Dir(KlasorYolu3, vbDirectory))

                If KVarMi3 = 0 Then

                   MkDir KlasorYolu3

                End If

                      

        KlasorYolu3 = CurrentProject.Path & "/" & x & "/" & y & "/" & a

        DosyaAdi = KlasorYolu3 & "/Teklif Mektubu.pdf"



DoCmd.OutputTo acOutputReport, "rpr_teklifmektubu", "PDFFormat(*.pdf)", DosyaAdi, False, "", , acExportQualityPrint