ellerinize sağlık,yapmış olduğunuz program çok işime yaradı.
size bir sorum olacak;
programınızda sadece jpg formatında resimler jpg olarak resim klasörü içine kaydediliyor.Acaba jpg,ico vb formatta olan resimleri bmp formatına değiştirerek kaydedebilirmiyiz.
ben acemice sizin kodlarınızda aşağıdaki değişikleri yaptım.tabiki çalışmadı
yardımcı olursanız sevinirim
Private Sub RESIM_DblClick(Cancel As Integer)
Dim ekocan As String
Dim altan As String
Dim bute As String
altan = StrReverse(CurrentDb.Name)
bute = Trim(Mid(altan, 13))
help = "help.file" '?
If Resim.Picture = StrReverse(bute) & "vetpro08\resim\" & Form_HASTAMASTERFM.PROTOKOL.Value & ".BMP" Then
ekocan = "C:\Program Files\IrfanView\i_view32.exe " & StrReverse(bute) & "VETPRO08\resim\" & Form_HASTAMASTERFM.PROTOKOL.Value & ".BMP"
Call Shell(ekocan, 1)
Exit Sub
Else
Dim r
r = MsgBox("Hastamızın Resmi Kayıtlarımızda Bulunmamaktadır!", 32 + vbYesNo, "VetPro08 Bilgilendirme!")
If r = vbYes Then
Dim Kaynak, Hedef
Kaynak = GetOpenFile_CLT("C:\", "VetPro08-Resim Seçiniz...")
Hedef = StrReverse(bute) & "vetpro08\resim\" & Form_HASTAMASTERFM.PROTOKOL.Value & ".bmp"
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
Me.Requery
End If
End If
End If
End Sub
