ağlamak istiyorum ;(bu ne yaw abi bana bir telefon ver ya allah aşkına şu işi özellikle şu kısmı öğrenip derhal uygulamaya koymam lazım nasıl yaptın detaylı anlatır mısın
işin aslını bana bi açıkla (lar mısın?)
Çok çok özür dilerim geç gördüm dediğim gibi ümidi kestimdi
başta ümitsizdim zaten
ama bir şey söylesem yeni kayıt dediğimde bu sefer alt forma giremez oluyorum neden?
bişey mi eksik?
hadi kodları sonraki kısmını hatılıyorum:
ama önceki kısmı yani şu kısmı
ne neyi ifade ediyor:
Private Sub Form_Current()
Me.Liste71.Requery
End Sub
Private Sub oluştur_Click()
On Error Resume Next
Dim WordApp As Word.Application
Dim yol As String
Dim Urunler, Kodlar As Variant
Urunler = ""
Kodlar = ""
For x = 0 To Me.Liste71.ListCount - 2
Urunler = Urunler & ", " & Me.Liste71.Column(0, x)
Kodlar = Kodlar & ", " & Me.Liste71.Column(1, x)
Next x
Urunler = Urunler & " ve " & Me.Liste71.Column(0, Me.Liste71.ListCount - 1)
Urunler = Right([Urunler], Len([Urunler]) - 2)
Kodlar = Kodlar & " ve " & Me.Liste71.Column(1, Me.Liste71.ListCount - 1)
Kodlar = Right([Kodlar], Len([Kodlar]) - 2)