frm_hesapla isimli formdaki VersiyonNedir kodunun tamamını aşağıdaki ile değiştirerek deneyiniz.
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
