tolong diperjelas dong sintax dibawah ini untuk kutipnya ????
.find ("User_Name" = '" & trim(TextUserName.Text) & "' ")
---------------------------- Original Message ----------------------------
Subject: [indoprog-vb] Cari data & edit
From: [EMAIL PROTECTED]
Date: Mon, January 22, 2007 15:49
To: [email protected]
----------------------------------------------------------
Halo rekan2.. Mo nanya dong ???
Kalo saya mo cari data yang ada di tabel fields 2 yang namanya User_Name...
Tapi koq kalo saya masukan user name yang uda ada di fields itu tapi ga
ketemu.. gImana ya ??? ini codingnya...
yang saya bingung.. Giamana yah buat coding bwt cari data yang ada di
field itu ???? Dan coding dibawahnya untuk mengedit data..... juga
codingnya gimana ????
Private Sub TextUserName_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
TextUserName.Text = UCase(TextUserName.Text)
If TextUserName.Text = "" Then
TextUserName.SetFocus
Else
If rcusr.Open!User_Name = TextUserName.Text Then
MsgBox "User yang anda maksud sudah terdaftar.", vbOKOnly,
"Informasi"
TextUserName.SetFocus
Else
TextPass1.Enabled = True
TextPass1.SetFocus
End If
End If
End If
End Sub
----------------------------------------------------------
rcusr.open
rcusr!User_Name = TextUser.Text
rcusr!Pass1 = TextPass1.Text
rcusr.Update
[Non-text portions of this message have been removed]
--
Universitas Bunda Mulia
IT Department
04022002-271900
Basmal
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
