- Katılım
- 3 Nisan 2007
- Mesajlar
- 235
- Excel Vers. ve Dili
- 2003 TR
Private Sub ComboBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call Baglan("\\sql\MALİYET K SYSTEM\VERİ.mdb", "SELECT [MAMÜL KODU]," & _
"[MAMÜL TANIMI], [YMAMÜL TANIMI], [FİRMA KODUGELİR],[SADET]," & _
"[SİPARİS LTL], [SİPARİS LEURO], [SİPARİS LDOLAR], " & _
"[TESLIM TARIHI], [ÜRETİM TARİHİ], [KKONTROL TARİHİ], [ÜRÜN NO]" & _
"FROM SİPARİS " & _
"WHERE [FATURA ACIKLAMASI]='PLAN' AND [MAMÜL KODU] = '" & ComboBox5 & "' ORDER BY [ÜRETİM TARİHİ] DESC ;")
TextBox26 = Rec![MAMÜL TANIMI]
For int1 = 0 To Rec.Fields.Count - 1
Controls("Textbox" & int1 + 14).Value = Rec.Fields(int1).Name
On Error Resume Next
Controls("Textbox" & int1 + 26) = Rec! & Controls("Textbox" & int1 + 26)
Next int1
Kodlarımda altı çizili olan bölümde şunu yapmak istedim ancak olmadı:
Alan adları Döngü ile textboxlara alındılar. Sonra bu alan adlarını içeren verilerin 26 ncı ve sonraki Textboxlara alınması işlemini yapmaya çalıştım.
10-15 sütunun alınması için gereken 10-15 satırlık kodları döngü ile kısaltmaya çalıştım ancak olmadı, yapılabilir mi?
Call Baglan("\\sql\MALİYET K SYSTEM\VERİ.mdb", "SELECT [MAMÜL KODU]," & _
"[MAMÜL TANIMI], [YMAMÜL TANIMI], [FİRMA KODUGELİR],[SADET]," & _
"[SİPARİS LTL], [SİPARİS LEURO], [SİPARİS LDOLAR], " & _
"[TESLIM TARIHI], [ÜRETİM TARİHİ], [KKONTROL TARİHİ], [ÜRÜN NO]" & _
"FROM SİPARİS " & _
"WHERE [FATURA ACIKLAMASI]='PLAN' AND [MAMÜL KODU] = '" & ComboBox5 & "' ORDER BY [ÜRETİM TARİHİ] DESC ;")
TextBox26 = Rec![MAMÜL TANIMI]
For int1 = 0 To Rec.Fields.Count - 1
Controls("Textbox" & int1 + 14).Value = Rec.Fields(int1).Name
On Error Resume Next
Controls("Textbox" & int1 + 26) = Rec! & Controls("Textbox" & int1 + 26)
Next int1
Kodlarımda altı çizili olan bölümde şunu yapmak istedim ancak olmadı:
Alan adları Döngü ile textboxlara alındılar. Sonra bu alan adlarını içeren verilerin 26 ncı ve sonraki Textboxlara alınması işlemini yapmaya çalıştım.
10-15 sütunun alınması için gereken 10-15 satırlık kodları döngü ile kısaltmaya çalıştım ancak olmadı, yapılabilir mi?