Rekan-rekan,
Saya mau tanya soal penambahan data baru di form excel yang sudah ada isinya,
penambahan data ini dibaris selanjutnya bila baris sebelumnya telah ada datanya
yang mana data baru tersebut berasal dari entry di vb.
Contoh layout di excel:
ABADI BARINDO CUSTOM CERAMAH P TEAM LEADER
CUSSONS IND INHOUSE TRAINING I TEAM LEADER
MULTIKON INHOUSE TRAINING I TEAM LEADER →
penambahan data dari data entry vb di baris ke-3 pada form excel
Sedangkan untuk field pada database access:
COY JASA CODE STATUS
ABADI BARINDO CUSTOM CERAMAH P TEAM LEADER
CUSSONS IND INHOUSE TRAINING I TEAM LEADER
MULTIKON INHOUSE TRAINING I TEAM LEADER
Dan untuk saat ini perintah save ke excel yang saya pakai tidak sempurna karena
akan mereplace data yang telah ada:
Dim X As Integer
Dim i As Integer
Dim Row, Col, F As Long
Dim XlApp1 As Excel.Application
Dim XlBook1 As Excel.Workbook
Set XlApp1 = CreateObject("Excel.Application")
Set XlBook1 =
XlApp1.Workbooks.Open("\\sparta\sys\hrd-pqm\catatan-pelatihan\AW-k.xls")
Dim XlSheet1 As Excel.Worksheet
Set XlSheet1 = XlBook1.Worksheets(1)
XlSheet1.Cells(1, 2) = frm_CRO1.Text2.Text 'COY
XlSheet1.Cells(1, 4) = frm_CRO1.Text27.Text 'JASA
XlSheet1.Cells(1, 5) = frm_CRO1.Combo2.Text 'CODE
XlSheet1.Cells(1, 6) = "Team Leader" 'STATUS
XlSheet1.Application.SaveWorkspace
XlSheet1.Application.Quit
Set XlSheet1 = Nothing
Mohon bantuan dari rekan-rekan sekalian dan terima kasih sebelumnya.
Salam,
Didi
