Sayılara link vermek

[kalbinidinle]

Arkadaşlar yine bi sıkıntım var yardımcı olacak arkadaşlara teşekkür ediyorum.

Yine sayı olarar hazırlanmış bir alanım var.. ve olanda 15-25 bin kadar rakam yazılı, ve bu rakam kadar bilgisayar içinde ayrı ayrı word dosyası var.
Ben sayı alanı yanına bir buton ekleyerek tıkladığımda üzerinde bulunduğum kayıtın sayı kısmıyla eşleştirilmiş word dosyasını açtırmam mümkün mü?
Tabi bahsettiğim tüm kayıtlar için gerekli. Yapılması mümkünse örneğini yada tıklayınca kısmına yazılması gereken kodu yazacak arakadaşlara şimdiden teşekkürler ediyorum.:???:

 

[modalı]

Sayın kalbinidinle,

Yeni değiştirdiğim bir örneği ekliyorum. Sanırım işinizi görür.

İyi çalışmalar:hey:

 

[kalbinidinle]

Sayın kalbinidinle,

Yeni değiştirdiğim bir örneği ekliyorum. Sanırım işinizi görür.

İyi çalışmalar:hey:

Sayın modalı cidden elinize sağlık, gayet güzel uyarlıyacam.

 

[kalbinidinle]

Sayın modalı; cevap harika buda yeterli ama şöyle bi isteğim var ki bu konuda yardımcı olurmusun bilmiyorum.

O da sayı kısmının yanına bir buton koyarak, butona tıkladığımızda sayı alınana kod ile baktırılacak ve o anki sayıya uygun word dosyası varsa açacak,
Yani her kayıt için yol gösterilmese, yada kaydedilmese, belirlenecek bir klasöre kod kısmında baktırıp sayıya uygun word dosyası varsa açtırsak. Beyzikte yapıldığını biliyorum. Yani bi yolu olması lazım, yolu yazılmadan yapılması mümkün mü? varsa örneği var mı? Sabredip yardımcı olan tüm arkadaşlara teşekkürler ediyorum. :???:

 

[kalbinidinle]

Arkadaşlar keşke yardım etmeyi düşünen birileri olsaydı. Konu benim için cidden çok önemli, exe tabanlı beyzikte buna benzer ancak resimler için sistem yapılmış.

Yani; butona tıkladığında sayı alanına bakarak mevcut sayının karşılığında aynı sayı ile eşleştirilmiş jpg formatlı resim doysı açılıyor. Tıklanmadığında o resim açılmıyor. Yol göstermek yerine sayı alanına bakıp ilgili sayı ile uyuşan word dosyası açılamaz mı?

Bence mümkün ama ben bilmiyorum, bilen arkadaşların yardımına ihtiyacım var..

 

[abkbek]

dosya yolu ekleme kodu

Sayın kalbinidinle,
aşağıdaki kod ile (bir arkadaşımdan almıştım) resimler adlı bir klasördeki jpg formatlı ve adında parantez içerisinde sayı olan dosyaların adres dizinlerini access dosyasındaki RESIM_YOLLARI adlı tablodaki text alanına atıyor. sanırım bunu siz kendi sorununuzu çözmek amacıyla düzenleyebilirsiniz. düzenledikten sonra bir örneğini de bu bölüme koyabilirseniz memnun olurum.

Option Compare Database
Option Explicit
Dim dbs As Database, rst As Recordset
Sub ResimDosyaYollarınıBul()
On Error GoTo hata_RDYB

Dim KlasörYolu As String, ResimDosyası As String, Başlangıç As Integer, Bitiş As Integer
Dim SıraNumarası As Long

KlasörYolu = "K:\FOTOĞRAFLAR\"
'Öncelikle RESIM_YOLLARI tablosunun içeriğini silelim.
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("RESIM_YOLLARI", dbOpenDynaset)
If rst.RecordCount > 0 Then
rst.MoveLast
rst.MoveFirst
Do While Not rst.EOF
rst.Delete
rst.MoveNext
Loop 'Do While Not rst.EOF
End If 'If rst.RecordCount > 0 Then

'Şimdi RESIM_YOLLARI tablosunun içeriğini dolduralım.
ResimDosyası = Dir(KlasörYolu & "*.jpg")
'If ResimDosyası <> "" Then
Do While ResimDosyası <> ""
Başlangıç = Val(InStr(ResimDosyası, "(")) + 1
Bitiş = Val(InStr(ResimDosyası, ")"))
If (Başlangıç > 1) And (Bitiş > 0) Then
SıraNumarası = Val(Mid(ResimDosyası, Başlangıç, Bitiş - Başlangıç))
DosyaYolunuEkle SıraNumarası, KlasörYolu & ResimDosyası
End If 'If (Başlangıç > 0) And (Bitiş > 0) Then
'FOTOĞRAFLAR Klasöründeki tüm resimleri aynı işleme tabi tut.
ResimDosyası = Dir
Loop 'Do While ResimDosyası <> ""
'End If 'If ResimDosyası <> "" Then
çık_RDYB:
rst.Close
dbs.Close
Exit Sub
hata_RDYB:
MsgBox Err.Description
Resume çık_RDYB
End Sub
Sub DosyaYolunuEkle(sno As Long, yol As String)
On Error GoTo hata_DYE
rst.AddNew
rst!SIRANO = sno
rst!DOSYA_YOLU = yol
rst.Update
çık_DYE:
Exit Sub
hata_DYE:
MsgBox Err.Description
Resume çık_DYE
End Sub

 

[kalbinidinle]

Teşekkür ediyorum elinize sağlık.