Sipariş Aktarma

[programer]

Arkadaşlar herkese iyi geceler. Siparişler için bir form hazırladım. Bul'u kullanarak veriyi ListView'e alıyorum. ListView'deki veriye çift tıkladığım zaman Siparis_Tnt sayfasındaki verileri Siparis_Frm üzerine alıyorum buraya kadar bir problem yok. Fakar Siparis_Frm üzerindeki MAMUL BİLGİLERİ kısmınada Siparis_Detay_Tnt sayfasındaki verileri de tek tek TextBoxlara almak istiyorum. Bunu nasıl yapabilirim. Örnek Dosya ektedir.

 

[Skorpiyon]

Sayın programer,

Dosyanızda küçük bir bölümü düzenledim. İnceleyip ona göre geri kalan kısmı kendiniz ayarlayabilirsiniz.

Kolay gelsin, Saygılarımla...

 

[programer]

Sayın Sertkaya yardımınız için teşekkür ederim. Yalnız benim istediğim gibi değil. Benim yapmak istedigim ListView'e çift tıkladığımda VSIPNO2.Text'indeki veriyi Siparis_Detay_Tnt sayfasında C sütününda arayıp bu veriye karşılık gelen kodların aktarılmasını istiyorum.

 

[programer]

Arkadaşlar ListView Kodunu aşağıdaki gibi değiştirdim Çalışıyor ama sada 1 tane stok kodunu aktarıyor

Private Sub ListView1_DblClick()
Dim Y As Integer
Select Case TextBox1.Value
       Case "Siparis_Tnt"
            Select Case txtsira.Value
                   Case "0"
                        Siparis_Frm.VSIPNO1 = ListView1.SelectedItem.ListSubItems(1).Text
                        Siparis_Frm.VSIPNO2 = ListView1.SelectedItem.ListSubItems(2).Text
                        Siparis_Frm.SIPTAR = ListView1.SelectedItem.ListSubItems(3).Text
                        Siparis_Frm.STUR = ListView1.SelectedItem.ListSubItems(4).Text
                        Siparis_Frm.TESTAR = ListView1.SelectedItem.ListSubItems(5).Text
                        Siparis_Frm.TOL = ListView1.SelectedItem.ListSubItems(6).Text
                        Siparis_Frm.DURUM = ListView1.SelectedItem.ListSubItems(7).Text
                        Siparis_Frm.OSRT = ListView1.SelectedItem.ListSubItems(8).Text
                        Siparis_Frm.SELM = ListView1.SelectedItem.ListSubItems(9).Text
                        Siparis_Frm.PCNS = ListView1.SelectedItem.ListSubItems(10).Text
                        Siparis_Frm.AMBKD = ListView1.SelectedItem.ListSubItems(11).Text
                        Siparis_Frm.ACIKLAMA = ListView1.SelectedItem.ListSubItems(12).Text
                        Siparis_Frm.FK = ListView1.SelectedItem.ListSubItems(13).Text
                        Siparis_Frm.FRMISK = ListView1.SelectedItem.ListSubItems(14).Text
                        Siparis_Frm.FRMISK1 = ListView1.SelectedItem.ListSubItems(15).Text
                        Siparis_Frm.KDV = ListView1.SelectedItem.ListSubItems(16).Text
                        Siparis_Frm.STUT = ListView1.SelectedItem.ListSubItems(17).Text
                        Siparis_Frm.ISKTUT = ListView1.SelectedItem.ListSubItems(18).Text
                        Siparis_Frm.ARTOP = ListView1.SelectedItem.ListSubItems(19).Text
                        Siparis_Frm.KDVTUT = ListView1.SelectedItem.ListSubItems(20).Text
                        Siparis_Frm.GTOP = ListView1.SelectedItem.ListSubItems(21).Text

                    For Each t In Worksheets("Siparis_Detay_Tnt").Range("C2:C" & WorksheetFunction.CountA(Worksheets("Siparis_Detay_Tnt").[C1:C65000]))
                        If t = Siparis_Frm.VSIPNO2.Text Then
                            For X = 1 To 25
                            If Siparis_Frm.Controls("STK" & X) = "" Then
                                Y = Sheets("Siparis_Detay_Tnt").Range("C:C").Cells.Find(What:=Siparis_Frm.VSIPNO2, LookIn:=xlValues).Row
                                Siparis_Frm.VSIPNO2.Value = Siparis_Frm.VSIPNO2
                                Siparis_Frm.Controls("STK" & X) = Sheets("Siparis_Detay_Tnt").Cells(Y, 4)
                                Exit For
                            End If
                            Next
                            Exit Sub
                        End If
                    Next t
            
            End Select
End Select
Unload Me
End Sub

 

[programer]

Arkdaşlar aşağıda kırmızı renkli satırı kaldırdığım zamanda TextBoxların hepsine aynı kodu yazıyor. Bu Kodu nasıl düzenleye bilirim yardımcı olabilirmisiniz.

                    For Each t In Worksheets("Siparis_Detay_Tnt").Range("C2:C" & WorksheetFunction.CountA(Worksheets("Siparis_Detay_Tnt").[C1:C65000]))
                        If t = Siparis_Frm.VSIPNO2.Text Then
                            For X = 1 To 25
                            If Siparis_Frm.Controls("STK" & X) = "" Then
                                Y = Sheets("Siparis_Detay_Tnt").Range("C:C").Cells.Find(What:=Siparis_Frm.VSIPNO2, LookIn:=xlValues).Row
                                Siparis_Frm.VSIPNO2.Value = Siparis_Frm.VSIPNO2
                                Siparis_Frm.Controls("STK" & X) = Sheets("Siparis_Detay_Tnt").Cells(Y, 4)
                                [COLOR="Red"]Exit For[/COLOR]
                            End If
                            Next
                            Exit Sub
                        End If
                    Next t

 

[Ferhat Pazarçevirdi]

Ekteği örneği inceleyiniz.

 

[programer]

Ekteği örneği inceleyiniz.

Sayın fpc yardımınız için çok teşekkür ederim kodlarda baya bi değişiklik yapmışsınız.