/* */

Friday, April 17, 2015

Fwd: Re: [belajar-access] MOHON PENCERAHAN UNTUK LOGIN

---------- Forwarded message ----------
From: "Bambang Hartoko bambanghartoko@yahoo.com [belajar-access]" <belajar-access@yahoogroups.com>
Date: Apr 17, 2015 12:58 PM
Subject: Re: [belajar-access] MOHON PENCERAHAN UNTUK LOGIN
To: <belajar-access@yahoogroups.com>
Cc:

 

coba perintahnya sederhanakan menjadi seperti di bawah ini:

Private Sub cmdlogin_Click()
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("select * from tbl_user where user= '" & userx & "' and password= '" & pass & "'", dbOpenDynaset)
    If rs.RecordCount > 0 Then
        pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
        DoCmd.OpenForm "frm_Utama", acNormal
        DoCmd.Close acForm, "frm_login"
    Else
        pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly, "Gagal")
    End If
End Sub

 
Salam,
 
 Bambang Hartoko



On Friday, April 17, 2015 10:42 AM, "'Roland Tambunan' rolandtambunan@gmail.com [belajar-access]" <belajar-access@yahoogroups.com> wrote:


 
Atau cek ketika loginnya boleh saya koreksi pak, saya biasanya pakai ini
(maaf merubah vbanya)

Private Sub cmdlogin_Click()
if isnull(trim(userx))= true then exit sub 'kalau textbox userx dan pass
tidak diisi maka tidak terjadi apa2
if isnull(trim(pass))= true then exit sub 'silahkan dibuat sesuai
dengan kebutuhan

if dlookup("[password]","[tbl_user]","[user]='"& userx &"'") = pass then
docmd.openform acform "frm_Utama"
docmd.close, acform "frm_login"
else
msgbox "User atau password salah", vbYesNo+vbCritical, "Salah
login")
userx=null
pass=null
end if
end sub

btw, dipastikan bahwa nama user tidak ada yang sama, sehingga akses yang
diharapkan bisa sesuai
dengan yang bapak harapkan.

Salam,
Roland

----- Original Message -----
From: khoirudin budiman khoirudinbudiman@yahoo.com [belajar-access]
To: belajar-access@yahoogroups.com
Cc: rolandtambunan@gmail.com
Sent: Friday, April 17, 2015 5:27 AM
Subject: Re: [belajar-access] MOHON PENCERAHAN UNTUK LOGIN [1 Attachment]

[Attachment(s) from khoirudin budiman khoirudinbudiman@yahoo.com
[belajar-access] included below]

Dear bapak bambang,

berikut saya kirimkan untuk screen shoot loginnya, yang mana hanya terbaca
di tabel paling pertama admin dan passwordnya xx

namun untuk tabel selanjutnya tidak terbaca, (admin2 dan irud) berhasil
login namun tidak berhasil masuk ke frm_Utama..

untuk coding loginnya sebagai berikut :

Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from tbl_user where user= '" & userx &
"' and password= '" & pass & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
Else
pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly,
"Gagal")
End If

Dim s As String
s = "SELECT tbl_User.* FROM tbl_User;"
Set rs = db.OpenRecordset(s)
If Me!password <> Me!pass Or Me!user <> Me!userx Then
MsgBox "Password Tidak Benar...Masukkan Password ", vbCritical, "SORRY.."
Me!password.SetFocus
Else
DoCmd.OpenForm "frm_Utama", acNormal
DoCmd.Close acForm, "frm_login"
End If
End Sub

Dear bapak roland,

untuk coding sudah saya deklarasikan seperti yang di sarankan,

namun kenapa masih belum bisa login untuk admin2, dan irud untuk masuk ke
frm_utama ya ?

yang bisa masuk login, login ok, ke form utama hanya admin saja.

Apakah perlu ada yang di tambahkan pak ? mohon informasinya ?

Terima kasih.

Khoirudin Budiman | @koirudinbudiman
0878 8398 7429 | Writter & Entrepreuneur
CEO Budiman Bersinegri Corporation
Mau tambah SEXY dan TJAKEP ?
follow @inimaneemo
visit www.inimaneemo.com

--------------------------------------------
On Thu, 4/16/15, Bambang Hartoko bambanghartoko@yahoo.com [belajar-access]
<belajar-access@yahoogroups.com> wrote:

Subject: Re: [belajar-access] MOHON PENCERAHAN UNTUK LOGIN
To: belajar-access@yahoogroups.com
Date: Thursday, April 16, 2015, 2:11 PM

saya baru
melihat saja, ada dua buah end sub, tetapi hanya ada satu
sub (command click), mungkin menyalinnya tidak lengkap,
karena kalau ini dijalankan pasti error.
akan lebih
baik kalau dilampirkan contoh aplikasinya
HTML
clipboardSalam,

Bambang Hartoko

On Thursday, April
16, 2015 12:11 PM, "khoirudinbudiman@yahoo.com
[belajar-access]"
<belajar-access@yahoogroups.com> wrote:

Selamat pagi,
mohon pencerahannya juragan, untuk
pembuatan login dengan kondisi tabel hanya ada user dan
password tapi ketika dijalankan hanya mau di tabel paling
atas saja, user selanjutnya diinformasikan password salah
terus...berikut kodingnya :

Private Sub
cmdlogin_Click()Dim db As DatabaseDim
rs As RecordsetSet db = CurrentDb()Set
rs = db.OpenRecordset("select * from tbl_user where
user= '" & userx & "' and
password= '" & pass & "'",
dbOpenDynaset)If rs.RecordCount > 0
Thenpesan = MsgBox("Login Sukses",
vbOKOnly, "Sukses")Elsepesan
= MsgBox("Login Gagal, masukan userid dan
password", vbOKOnly, "Gagal")End
IfEnd Sub
s="select tbl_user.*form
tbl_user;"set
rs=db.openrecordset(s)if me!pass<>me!pass
or me!user<>me!userx
thenmsgbox"password salah,
benerin!",vbcritical,"sory"me!.pass.setfocuselsedocmd.openform"frm_utama",acNormaldocmd.close
acform,"frm_login"end ifend
sub

MOHON INFORMASINYA APAKAH SAYA SALAH
KODING ATAU DIPERLUKAN PENYESUAIAN ??
Terima kasih sebelumnya,
wassalam.

#yiv4411314542 #yiv4411314542 --
#yiv4411314542ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px

0;padding:0 10px;}

#yiv4411314542 #yiv4411314542ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv4411314542 #yiv4411314542ygrp-mkp #yiv4411314542hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv4411314542 #yiv4411314542ygrp-mkp #yiv4411314542ads {
margin-bottom:10px;}

#yiv4411314542 #yiv4411314542ygrp-mkp .yiv4411314542ad {
padding:0 0;}

#yiv4411314542 #yiv4411314542ygrp-mkp .yiv4411314542ad p {
margin:0;}

#yiv4411314542 #yiv4411314542ygrp-mkp .yiv4411314542ad a {
color:#0000ff;text-decoration:none;}
#yiv4411314542 #yiv4411314542ygrp-sponsor
#yiv4411314542ygrp-lc {
font-family:Arial;}

#yiv4411314542 #yiv4411314542ygrp-sponsor
#yiv4411314542ygrp-lc #yiv4411314542hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv4411314542 #yiv4411314542ygrp-sponsor
#yiv4411314542ygrp-lc .yiv4411314542ad {
margin-bottom:10px;padding:0 0;}

#yiv4411314542 #yiv4411314542actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv4411314542 #yiv4411314542activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv4411314542 #yiv4411314542activity span {
font-weight:700;}

#yiv4411314542 #yiv4411314542activity span:first-child {
text-transform:uppercase;}

#yiv4411314542 #yiv4411314542activity span a {
color:#5085b6;text-decoration:none;}

#yiv4411314542 #yiv4411314542activity span span {
color:#ff7900;}

#yiv4411314542 #yiv4411314542activity span
.yiv4411314542underline {
text-decoration:underline;}

#yiv4411314542 .yiv4411314542attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv4411314542 .yiv4411314542attach div a {
text-decoration:none;}

#yiv4411314542 .yiv4411314542attach img {
border:none;padding-right:5px;}

#yiv4411314542 .yiv4411314542attach label {
display:block;margin-bottom:5px;}

#yiv4411314542 .yiv4411314542attach label a {
text-decoration:none;}

#yiv4411314542 blockquote {
margin:0 0 0 4px;}

#yiv4411314542 .yiv4411314542bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv4411314542 .yiv4411314542bold a {
text-decoration:none;}

#yiv4411314542 dd.yiv4411314542last p a {
font-family:Verdana;font-weight:700;}

#yiv4411314542 dd.yiv4411314542last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv4411314542 dd.yiv4411314542last p
span.yiv4411314542yshortcuts {
margin-right:0;}

#yiv4411314542 div.yiv4411314542attach-table div div a {

text-decoration:none;}

#yiv4411314542 div.yiv4411314542attach-table {
width:400px;}

#yiv4411314542 div.yiv4411314542file-title a, #yiv4411314542
div.yiv4411314542file-title a:active, #yiv4411314542
div.yiv4411314542file-title a:hover, #yiv4411314542
div.yiv4411314542file-title a:visited {
text-decoration:none;}

#yiv4411314542 div.yiv4411314542photo-title a,

#yiv4411314542 div.yiv4411314542photo-title a:active,
#yiv4411314542 div.yiv4411314542photo-title a:hover,
#yiv4411314542 div.yiv4411314542photo-title a:visited {
text-decoration:none;}

#yiv4411314542 div#yiv4411314542ygrp-mlmsg
#yiv4411314542ygrp-msg p a span.yiv4411314542yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv4411314542 .yiv4411314542green {
color:#628c2a;}

#yiv4411314542 .yiv4411314542MsoNormal {
margin:0 0 0 0;}

#yiv4411314542 o {
font-size:0;}

#yiv4411314542 #yiv4411314542photos div {
float:left;width:72px;}

#yiv4411314542 #yiv4411314542photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}

#yiv4411314542 #yiv4411314542photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv4411314542 #yiv4411314542reco-category {
font-size:77%;}

#yiv4411314542 #yiv4411314542reco-desc {
font-size:77%;}

#yiv4411314542 .yiv4411314542replbq {
margin:4px;}

#yiv4411314542 #yiv4411314542ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv4411314542 #yiv4411314542ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv4411314542 #yiv4411314542ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv4411314542 #yiv4411314542ygrp-mlmsg select,
#yiv4411314542 input, #yiv4411314542 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv4411314542 #yiv4411314542ygrp-mlmsg pre, #yiv4411314542
code {
font:115% monospace;}

#yiv4411314542 #yiv4411314542ygrp-mlmsg * {
line-height:1.22em;}

#yiv4411314542 #yiv4411314542ygrp-mlmsg #yiv4411314542logo {
padding-bottom:10px;}

#yiv4411314542 #yiv4411314542ygrp-msg p a {
font-family:Verdana;}

#yiv4411314542 #yiv4411314542ygrp-msg
p#yiv4411314542attach-count span {
color:#1E66AE;font-weight:700;}

#yiv4411314542 #yiv4411314542ygrp-reco
#yiv4411314542reco-head {
color:#ff7900;font-weight:700;}

#yiv4411314542 #yiv4411314542ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv4411314542 #yiv4411314542ygrp-sponsor #yiv4411314542ov
li a {
font-size:130%;text-decoration:none;}

#yiv4411314542 #yiv4411314542ygrp-sponsor #yiv4411314542ov

li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv4411314542 #yiv4411314542ygrp-sponsor #yiv4411314542ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv4411314542 #yiv4411314542ygrp-text {
font-family:Georgia;}

#yiv4411314542 #yiv4411314542ygrp-text p {
margin:0 0 1em 0;}

#yiv4411314542 #yiv4411314542ygrp-text tt {
font-size:120%;}

#yiv4411314542 #yiv4411314542ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv4411314542




__._,_.___

Posted by: Bambang Hartoko <bambanghartoko@yahoo.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (2)
SPAM IS PROHIBITED

.

__,_._,___

No comments:

Post a Comment