It's good.
Berusaha dengan cara lain menandakan logikanya berjalan, dan memiliki tekad yang keras.
komputer yang saya pakai kebetulan tidak diinstall access, nanti saja di rumah saya bukanya ya. kemarin fungsi vba itu saya buat di vbe excel :D
jika ada yang bingung dengan script yang saya kirim, silakan ditanya saja bagian mana, atau sorot saja dengan mouse dan press f1, cara cepat memperoleh bantuan dari access nya sendiri.
atau di vbe coba tekan f2 untuk membuka object browser, dan ketikkan fungsi bawaan access yang membuat anda bingung.
a.k.
Saya masih bingung dengan script yang bang Aksan buat, namun saya dapat dari file lama saya (kayaknya dapat juga di milis ini juga) saya pakai fungsi InStr([«start»];[«string»];[«stringmatch»];[«compare»]), untuk mencari lokasi "titik_spasi" sebagai pemisah antara nama dan gelar, kemudian saya kombinasikan dengan fungsi left/right/mid/len sehingga ketemu hasilnya sebagaimana file terlampir.
2015-10-22 19:33 GMT+07:00 Aksan Kurdin aksan.kurdin@gmail.com [belajar-access] <belajar-access@yahoogroups.com>:
Nah,
berangkat dari logika tersebut,
mencontoh dari script yang sudah saya berikan, ayo... dicoba...
ikan cukup sekali diberikan, selanjutnya kailnya sudah di tangan.
jangan ragu, coba implementasikan ... kalau buntu, coba bawa sini nanti kita pikirkan bersama-sama dimana buntunya...
silakang......
A.K.
mungkin gelar depan dan nama kita buat pemisah berupa titik dan spasi dan gelar belakang koma dan spasi. Nanti kalo gelar depan dua diantara kedua gelar tidak pakai spasi
Misal Prof.Dr. Bambang Raharjo, SH.Drs. SlametAksan Kurding, STMemang pengennya langsung di aplikasikan ke tabel/query aja.
2015-10-22 12:02 GMT+07:00 aksan.kurdin@gmail.com [belajar-access] <belajar-access@yahoogroups.com>:
betul,
jika tidak punya gelar yang ada dalam list prefix dan sufix, maka hanya nama yang terisi:
SplitName "aksan kurdin, st."Prefix :Name : aksan kurdinSufix : st.
saya perbaiki fungsi IsInArray:Public Function IsInArray(stringToBeFound As String, arr As Variant) As BooleanIsInArray = UBound(Filter(arr, UCase(stringToBeFound))) > -1End Function
yang di list dalam array dijadikan uppercase semua (kapital), jadi apa pun inputnya bisa di cek oleh fungsi tersebut.
Ini hanya salah satu jalan keluar.cara lain, tidak dengan array, tetapi dibawa ke tabel. nanti tinggal di lookup saja. maintenance lebih gampang, karena list nya ada di tabel, bukan di source code.
ok, sekarang coba kita bermain logika, mencari cara lain.bagaimana bisa membedakan kira-kira gelar depan itu bisa dikenali dengan pola apa ?gelar belakang juga bisa dikenali dengan pola apa ...
A.K.
--
Ahmad Qomaruddin
DPPKAD Kab. Rembang Jawa Tengah
email : ud13en@gmail.com
blog : ud13en.blogspot.com
--
Ahmad Qomaruddin
DPPKAD Kab. Rembang Jawa Tengah
email : ud13en@gmail.com
blog : ud13en.blogspot.com
Posted by: Aksan Kurdin <aksan.kurdin@gmail.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (8) |
Tidak ada komentar:
Posting Komentar