Barangkali Bpk bisa buat module baru dahulu: Public Function JmlData(ByVal MyStr, Simbol As String) As Integer Dim HitungKata As Integer, Posisi As Integer If VarType(MyStr) <> 8 Or Len(MyStr) = 0 Then JmlData = 0 Exit Function End If HitungKata = 1 Posisi = InStr(MyStr, Simbol) Do While Posisi > 0 HitungKata = HitungKata + 1 Posisi = InStr(Posisi + 1, MyStr, Simbol) Loop JmlData = HitungKata End Function
Public Function Dataku(ByVal MyStr, MyIndex As Integer, Simbol As String) Dim HitungKata As Integer, HitungAwal As Integer Dim PosisiAwal As Integer, PosisiAkhir As Integer HitungKata = JmlData(MyStr, Simbol) If MyIndex < 1 Or MyIndex > HitungKata Then Dataku = Null Exit Function End If HitungAwal = 1 PosisiAwal = 1 For HitungAwal = 2 To MyIndex PosisiAwal = InStr(PosisiAwal, MyStr, Simbol) + 1 Next HitungAwal PosisiAkhir = InStr(PosisiAwal, MyStr, Simbol) - 1 If PosisiAkhir <= 0 Then PosisiAkhir = Len(MyStr) Dataku = Trim(Mid(MyStr, PosisiAwal, PosisiAkhir - PosisiAwal + 1)) End Function Nanti diquerynya tinggal ditambahkan column baru berisi rumus: Key: Dataku([NamaField] ,1,"#") Nama: Dataku([NamaField] ,2,"#") Kelas: Dataku([NamaField] ,3,"#") Nilai: Dataku([NamaField] ,4,"#") Thank's ----- Original Message ----- From: noorshiam To: [email protected] Sent: Monday, 15 March 2010 2:43 PM Subject: [belajar-access] Tanya Fungsi Pemisah Kalimat Rekan-rekan Belajar-Access yang baik, Bagaimana caranya memecah kalimat berikut : NILAI#NURUL UMIAH#IX-C#80 Sehingga masing-masing menjadi value pada field-field di TBL_NILAI, yaitu : ----------------------------------- KEY | NAMA | KELAS | NILAI | NILAI |NURUL UMIAH | IX-C | 80 | ==================================== Saya sudah berusaha mencari solusi baik di milis ini maupun bertanya pada mbah Google, tapi masih belum paham untuk penggunaan fungsi Split dengan tanda # sebagai delimiternya. Mohon bantuan rekan-rekan Terima kasih Arief Noorshiam
