Public Sub VersiyonNedir()
Dim versiyon_adresi As String
Dim temp, strLineInput As String
Dim fieldname As String
Dim GProgVer As String
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
Dim db As DAO.Database
Dim strSQL As String
Dim strTableName, GDosyaDizin, GEskiDosya, GYeniDosya, GProgVerLink As String
Dim FileNum As Integer
Dim accapp As Access.Application


GProgVer = Environ("TEMP") & "\progver.txt"
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 Len(Dir(GProgVer)) > 0 Then
        Kill GProgVer
    End If
    
    versiyon_adresi = Dlookup ("versiyonkontrolurl", "tbl_uygulama_ayarlari")
    
   If InStrRev(versiyon_adresi, "drive.google.com") > 0 Then

    If Len(MetinVeriBul(versiyon_adresi, "/d/", "/view")) > 0 Then
    
        GProgVerLink = "https://drive.google.com/uc?export=download&id=" & MetinVeriBul(versiyon_adresi, "/d/", "/view")
       
    End If
    
    
ElseIf InStrRev(versiyon_adresi, "dropbox.com") > 0 Then

    GProgVerLink = "https://dl.dropboxusercontent.com/" & Mid(versiyon_adresi, InStr(1, versiyon_adresi, "dropbox.com") + 12)
                   
Else

    GProgVerLink = versiyon_adresi
        
End If
       
    URLDownloadToFile 0, GProgVerLink, GProgVer, 0, 0
        
    lbl_programin_versiyonu.Caption = Nz(DLookup("uygulama_versiyonu", "tbl_uygulama_ayarlari"), "0.0.00")
                
    If Len(Dir(GProgVer)) = 0 Then
    lbl_guncel_versiyon.Caption = ""
    MsgBox GProgVer & vbNewLine & vbNewLine & "Dosyasi Bulunamadi...", vbCritical, "Hata"
    Exit Sub
    End If
               
               
    
    FileNum = FreeFile()
    Open GProgVer For Input As #FileNum
    
    Do While Not EOF(FileNum)
    Line Input #FileNum, strLineInput
    temp = strLineInput
    Loop
    Close #FileNum
    
    If InStrRev(temp, "versiyon:") > 0 Then
        
    GVersiyon = Mid$(temp, InStr(temp, ":") + 1, 6)
        
    Else
        
    MsgBox "Versiyon Dosyası Hatalı. Lütfen dosya linkini kontrol ediniz."
    Exit Sub
        
    End If
           

    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

            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
            
   

            Set accapp = New Access.Application

            accapp.OpenCurrentDatabase Environ("TEMP") & "\" & GGuncelleDosyaAdi
 
           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