- Katılım
- 27 Ağustos 2021
- Mesajlar
- 2
- Excel Vers. ve Dili
- 2016 türkçe
Herkese merhaba,
Stok takip programı için bir stok kartı tasarlıyorum. Stok kartının içerisinde her ürün için bir kod oluşturuyorum.
Bir klasörün içerisinde stokların görselleri mevcut ve her görselin adı stok kartındaki ürün koduyla aynı. Görüntülemek istediğim ürünü görüntüleyebiliyorum istediğim görsel geliyor ancak görseli olmayan bir ürün seçtiğimde görsel kısmı boş görünmesi gerekirken bir önceki görüntülediğim ürünün görüntüsü görünüyor. Örneğin görseli klasörde mevcut olan matkap adlı ürün için matkap görseli gelirken, klasörde görseli mevcut olmayan dübel ürününü görüntülediğimde tekrar matkap görüyorum.
Aşağıdaki kodla görseli kaydediyorum.
Private Sub CommandButton13_Click()
On Error GoTo bitir
Dim imagelocation As String
Dim j As String
Application.FileDialog(msoFileDialogOpen).Show
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
imagelocation = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Image1.Picture = LoadPicture(imagelocation)
Image1.PictureSizeMode = fmPictureSizeModeStretch
j = TextBox20.Value
FileCopy imagelocation, "C:\malzemeresimleri\" & j & ".JPG"
bitir:
End Sub
Bu kodla ise ürünü açtığımda görseli geliyor.
Sub KayitlariGoster(urunkodu As String)
UserForm2.Image1.Picture = _
LoadPicture(Sayfa4.Range("b1").Value & "\" & UserForm2.TextBox20 & ".jpg")
Yardımcı olabilirseniz sevinirim. İyi forumlar
Stok takip programı için bir stok kartı tasarlıyorum. Stok kartının içerisinde her ürün için bir kod oluşturuyorum.
Bir klasörün içerisinde stokların görselleri mevcut ve her görselin adı stok kartındaki ürün koduyla aynı. Görüntülemek istediğim ürünü görüntüleyebiliyorum istediğim görsel geliyor ancak görseli olmayan bir ürün seçtiğimde görsel kısmı boş görünmesi gerekirken bir önceki görüntülediğim ürünün görüntüsü görünüyor. Örneğin görseli klasörde mevcut olan matkap adlı ürün için matkap görseli gelirken, klasörde görseli mevcut olmayan dübel ürününü görüntülediğimde tekrar matkap görüyorum.
Aşağıdaki kodla görseli kaydediyorum.
Private Sub CommandButton13_Click()
On Error GoTo bitir
Dim imagelocation As String
Dim j As String
Application.FileDialog(msoFileDialogOpen).Show
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
imagelocation = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Image1.Picture = LoadPicture(imagelocation)
Image1.PictureSizeMode = fmPictureSizeModeStretch
j = TextBox20.Value
FileCopy imagelocation, "C:\malzemeresimleri\" & j & ".JPG"
bitir:
End Sub
Bu kodla ise ürünü açtığımda görseli geliyor.
Sub KayitlariGoster(urunkodu As String)
UserForm2.Image1.Picture = _
LoadPicture(Sayfa4.Range("b1").Value & "\" & UserForm2.TextBox20 & ".jpg")
Yardımcı olabilirseniz sevinirim. İyi forumlar