Access

[sakura05 0]

Assalamualaikum...

saye nak tanye,camne klau kite buat satu combo box name user..

bile kite klik kat name tu..keluar query masing2..

saye nak tanye,klau nak buat camtu kene gune coding atau ubah2 kat properties je..

klau coding..camne codingnye..saye dah blurr ni.ye la,tak penah buat sistem..

tolong saye!!

thanks..

[MalaysianSecurityForce 0]

Ada banyak cara... tp aku prefer cara nih :

private sub combo1_click()

data1.recordset.findfirst "nama=' " & combo1.text &" ' "

end sub

textbox dll set mcm kt properties biasa

[macaisuci 0]

Assalamualaikum sumer...

aku tau ramai pakar database kat sini.... aku cuma nak tanya sket arr...

aku di tugaskan untuk buat satu sistem guna visual basic ataupun visual foxpro masaalahnya aku tak tau apapun pasal database management...

aku dah create table dan form...masaalahnya camner plak aku nak create medan untuk password...pastu aku nak buat programming code....korang ader contoh database tak aku nak refer...

untuk maklumat korang sistem ini adalah untuk invoice dan juga admin punya sistem..termasuklah inventory,lettering,maklumat kakitangan.....dulu aku tak sempat arr belajar menantng nih....tolong lah daku..........thanks for all

[TJ-Ariff 40]

Teman pun sedang membina satu database guna VB + access

buat flow chart dulu macam mane perjalanan dan gerak kerja database yang miker mau tu,

lepas tu baru kita rangka form dan mdb fail nyer...

ok...

[intan_comel 0]

erm kalau nak wat paassword bleh guna cara nih...erm actually ni intan wat antuk set password utk assingment...so ubah2 yer...

/*******

Option Explicit

Public LoginSucceeded As Boolean

Const KEY_ENTER = 13

Private Sub Textname_KeyPress(KeyAscii As Integer)

If KeyAscii = KEY_ENTER Then

SendKeys "{Tab}"

KeyAscii = 0

End If

End Sub

Private Sub Textpassword_KeyPress(KeyAscii As Integer)

If KeyAscii = KEY_ENTER Then

SendKeys "{Tab}"

KeyAscii = 0

End If

End Sub

Private Sub cmdEnter_Click()

Dim S1, S2 As Integer

Select Case S1

Case S1

If Textname.Text = "user" And Textpassword = "staff" Then

LoginSucceeded = True

Form3.Show

Form1.Hide

Else

If Textname.Text = "unimas" And Textpassword = "student" Then

LoginSucceeded = True

Form2.Show

Form1.Hide

Else

MsgBox " Your password is uncorrect,make sure ur Caps Lock off. Insert new password", , "Login"

'txtpassword = ""

End If

End If

End Select

Textname.Text = ""

Textpassword.Text = ""

End Sub

Private Sub cmdExit_Click()

Dim r As Integer

r = MsgBox("Are You Really Want To Exit From The Systems?", vbExclamation + vbYesNo + vbSystemModal, "THANK YOU FOR USING UNIMAS MAIL CHECKERS!")

Select Case r

Case vbYes

Case vbNo

End Select

End

End Sub

******/

erm abit complecated tapi bleh aaa..untuk password saja tau...

erm kalau ubah kat properties ja ok x kalau for combo box???