Input Data

[Sesemut 0]

Salam semua..

Semasa masukkan data nak bagi keluar message data dah di recordkan..??

contoh..

recod yg dah ada..(3 column)
1. merah.. abu.. basikal
2. merah.. abu.. selipar
3. merah.. abu.. demam
4. merah.. ali.. selipar

Kalau recod no 2 dimasuk sekali lagi akan keluar message..

macam senang tapi aku tak boleh buat..

[darkwinz_volrath 0]

hmm .. ko tanya camne nak wat coding dia ker? klu coding, aper language ko pakai?

[Sesemut 0]

hmm .. ko tanya camne nak wat coding dia ker? klu coding, aper language ko pakai?

aku guna kat form to ada ni [Event Procedure].. code vb kot.. aku pun tak pasti.. kalau boleh nak buat coding jee.. tak payah nak tambah form lagi.. aku nk letak kat "save button".. kalau clik keluar message dan pon tak save..
aku guna microsoft access 97 jee..

[azdin 0]

oh tu senang jer, awak kena setkan kolum tersebut sebagai index, no duplicate. nanti jika perkataan yang sama dimasukkan 2 kali,dia akan bagi mesej, "Duplicate data"

[Sesemut 0]

oh tu senang jer, awak kena setkan kolum tersebut sebagai index, no duplicate. nanti jika perkataan yang sama dimasukkan 2 kali,dia akan bagi mesej, "Duplicate data"

Yg tu untuk 1 column saje.. Macam nk buat 2 column..?

Jika di masukkan data..(3 column)
1. merah.. abu.. basikal
2. merah.. abu.. selipar
3. merah.. abu.. demam
4. merah.. ali.. selipar

kalau di masukkan data Merah..abu..selipar.. akan keluar msgbox
data ke 4 masih boleh di dalam record dlm database merah.. ali.. selipar

[azdin 0]

kena buat [Event procedure], yang boleh kesan duplicate data, kemudian keluar msg box.

Kalau nak senang buat satu query find duplicate data kemudian save. Didalam form pula , bahagian bawah buatkan satu subform untuk query find duplicate data tadi.

[Sesemut 0]

Cara tu aku dh buat untuk view record..

Tapi sekarang aku ada masalah kat input data..
semasa input data ke 5 jika sama dgn data no 2 msgbox akan keluar
selepas click save button.

kalau tak silap aku kalau dlm vb lebih kurang macam ni..

do until eof
if RecA$ = DataA and ReCB$ = DataB$ then goto goext
'kat sini tempat pembandingan data
loop
'kat sini coding save
exit sub

goext:
msg1$ = msgbox "Data dah ada dalam record"
exit sub


contoh vb tu mungkin tak lengkap

Tapi dlm access 97 aku tak tau nak guna command ape..
kalau boleh nk buat coding jee.. jadi form to tak payah nk ubah2 dah..