- KL-010275
- /Smps beslemeli Str20
- /04.25.2022
- /100204865
- /100204848
- ...
- ...
veri sıralamasının sabit olduğu varsayılmıştır
ilk / işaretinden önceki alan KOLI_DATA = KL-010275
ikinci / işaretinden önceki alan Açıklma = /Smps beslemeli Str20
üçüncü / işaretinden önceki alan KL_TARİH = /04.25.2022
geriye kalanlar ise eğer 100 ile başlıyorsa KOD_K1 = /100204865
Private Sub Komut1_Click()
DzTmp = Split(Me.KODE_TOP, "/")
xKoliData = DzTmp(0)
xAciklama = DzTmp(1)
xKlTarih = CLng(CDate(DzTmp(2)))
xPersonel = Me.PERSONEL
For x = 3 To UBound(DzTmp)
xKodK1 = DzTmp(x)
If Left(xKodK1, 3) = 100 Then
xSQL = "INSERT INTO KARE_2 ( KOLI_DATA, Açıklma, KOD_K1, PERSONEL,KL_TARİH) VALUES ('" & _
xKoliData & "','" & xAciklama & "','" & xKodK1 & "','" & xPersonel & "'," & xKlTarih & ");"
CurrentDb.Execute (xSQL)
End If
Next x
End Sub