Function Ara_progver(textt As String)

    Dim DosyaAd_progver As String
    Dim kacinci As Byte
    Dim ara_ilk As String
    
    DosyaAd_progver = textt
    
    Const Ara = ":"
    
    If Dir(DosyaAd_progver) = "" Or Dir(DosyaAd_progver) = Null Then
        Ara_progver = ""
        Exit Function
    End If
    
    Open DosyaAd_progver For Input As #1
    Do While Not EOF(1)
        Line Input #1, ara_ilk
        
        kacinci = InStr(1, ara_ilk, Ara)
        If kacinci > 0 Then
            Ara_progver = Mid(ara_ilk, kacinci + 1, Len(ara_ilk))
            Exit Do
        End If
    Loop
    Close #1
    
    
    
End Function

Public Sub VersiyonNedir()
Dim versiyon_adresi As String
'Dim IEb As Object
Dim temp As String

Dim textDosya_progver As String

textDosya_progver = Environ("TEMP") & "\progver.txt"

Dim GVersiyon, GGuncelleDosyasiUrl, GYeniSurumUrl, GGuncelleDosyaAdi, GYeniSurumAdi As String
Dim sim_major_vers, sim_midi_vers, sim_minor_vers, gun_major_vers, gun_midi_vers, gun_minor_vers As Byte

GYeniSurumUrl = Dlookup ("yenidosyaurl", "tbl_uygulama_ayarlari")
GYeniSurumAdi = Dlookup ("yenidosyaadi", "tbl_uygulama_ayarlari")
GGuncelleDosyasiUrl = Dlookup ("guncellemedosyasiurl", "tbl_uygulama_ayarlari")
GGuncelleDosyaAdi = Dlookup ("guncellemedosyasiadi", "tbl_uygulama_ayarlari")


DeleteUrlCacheEntry GYeniSurumUrl
DeleteUrlCacheEntry GGuncelleDosyasiUrl
    
If Len(Dir(Environ("TEMP") & "\" & GGuncelleDosyaAdi)) > 0 Then
    Kill Environ("TEMP") & "\" & GGuncelleDosyaAdi
End If

If Dir(textDosya_progver) <> "" Or Not Dir(textDosya_progver) = Null Then
    Kill textDosya_progver
End If



    versiyon_adresi = Dlookup ("versiyonkontrolurl", "tbl_uygulama_ayarlari")
    
    URLDownloadToFile 0, versiyon_adresi, textDosya_progver, 0, 0
    
    
    
    temp = Ara_progver(textDosya_progver)

            lbl_programin_versiyonu.Caption = Nz(DLookup("uygulama_versiyonu", "tbl_uygulama_ayarlari"), "0.0.00")
            
          If Dir(Environ("TEMP") & "\progver.txt") = "" Or Dir(Environ("TEMP") & "\progver.txt") = Null Then
          lbl_guncel_versiyon.Caption = ""
                MsgBox Environ("TEMP") & "\progver.txt" & vbNewLine & vbNewLine & "Dosyasi Bulunamadi...", vbCritical, "Hata"
                Exit Sub
          End If
'    Set IEb = Nothing
    
    GVersiyon = Mid$(temp, InStr(temp, ":") + 1, 6)
    

    sim_major_vers = Mid$(lbl_programin_versiyonu.Caption, 1, 1)
    sim_midi_vers = Mid$(lbl_programin_versiyonu.Caption, 3, 1)
    sim_minor_vers = Mid$(lbl_programin_versiyonu.Caption, 5, 2)
    
    
    gun_major_vers = Mid$(GVersiyon, 1, 1)
    gun_midi_vers = Mid$(GVersiyon, 3, 1)
    gun_minor_vers = Mid$(GVersiyon, 5, 2)
    
    If IsNull(gun_major_vers) And IsNull(gun_midi_vers) And IsNull(gun_minor_vers) Then
    
    Exit Sub
    End If
    
    lbl_guncel_versiyon.Caption = GVersiyon
    
    If gun_major_vers > sim_major_vers Then
    
        lbl_guncel_versiyon.ForeColor = RGB(255, 0, 0)
        
        If MsgBox("A Kullandýðýnýz programdan daha yeni bir versiyon bulunmaktadýr." & vbCrLf & vbCrLf & "Yeni versiyonu indirmek istiyor musunuz?", vbExclamation + vbYesNo, "Yeni Sürüm Mevcut") = vbYes Then
        
            
            URLDownloadToFile 0, GYeniSurumUrl, Environ("TEMP") & "\" & GYeniSurumAdi, 0, 0
            URLDownloadToFile 0, GGuncelleDosyasiUrl, Environ("TEMP") & "\" & GGuncelleDosyaAdi, 0, 0
            
        End If
        
    ElseIf gun_midi_vers > sim_midi_vers Then
    
        lbl_guncel_versiyon.ForeColor = RGB(255, 0, 0)
        
        If MsgBox("B Kullandýðýnýz programdan daha yeni bir versiyon bulunmaktadýr." & vbCrLf & vbCrLf & "Yeni versiyonu indirmek istiyor musunuz?", vbExclamation + vbYesNo, "Yeni Sürüm Mevcut") = vbYes Then
        
            URLDownloadToFile 0, GYeniSurumUrl, Environ("TEMP") & "\" & GYeniSurumAdi, 0, 0
            URLDownloadToFile 0, GGuncelleDosyasiUrl, Environ("TEMP") & "\" & GGuncelleDosyaAdi, 0, 0
            
        End If
        
    ElseIf gun_minor_vers > sim_minor_vers Then
    
        lbl_guncel_versiyon.ForeColor = RGB(255, 0, 0)
        
        If MsgBox("C Kullandýðýnýz programdan daha yeni bir versiyon bulunmaktadýr." & vbCrLf & vbCrLf & "Yeni versiyonu indirmek istiyor musunuz?", vbExclamation + vbYesNo, "Yeni Sürüm Mevcut") = vbYes Then
        
            URLDownloadToFile 0, GYeniSurumUrl, Environ("TEMP") & "\" & GYeniSurumAdi, 0, 0
            URLDownloadToFile 0, GGuncelleDosyasiUrl, Environ("TEMP") & "\" & GGuncelleDosyaAdi, 0, 0
            
            
            Dim db As DAO.Database
Dim strSQL As String
Dim strTableName, GDosyaDizin, GEskiDosya, GYeniDosya As String


GDosyaDizin = CurrentProject.Path & "\"
GEskiDosya = Dlookup ("uygulamaadi", "tbl_uygulama_ayarlari")
GYeniDosya = Dlookup ("yenidosyaadi", "tbl_uygulama_ayarlari")

Set db = OpenDatabase(Environ("TEMP") & "\" & GGuncelleDosyaAdi)


db.Execute "Delete * FROM tbl_guncellemeayar;"

db.Execute "INSERT INTO tbl_guncellemeayar (dosyadizin, eskidosyaadi,yenidosyaadi) VALUES ('" & GDosyaDizin & "', '" & GEskiDosya & "', '" & GYeniDosya & "');"
            
db.Close
            
            
            Dim accapp As Access.Application

            Set accapp = New Access.Application

          accapp.OpenCurrentDatabase Environ("TEMP") & "\" & GGuncelleDosyaAdi
          'accapp.Visible = True
            
          Application.Quit
            
            
            
        End If
        
    Else
    
        'MsgBox "Þu anda en son güncel versiyonu kullanýyorsunuz", vbInformation + vbOKOnly, ProgramAdi
        lbl_guncel_versiyon.ForeColor = RGB(0, 0, 0)
    
    End If
        
    
End Sub