Fwd: Re: [belajar-access] Error in Loading DLL

---------- Forwarded message ----------
From: "Aksan Kurdin aksan.kurdin@gmail.com [belajar-access]" <belajar-access@yahoogroups.com>
Date: Apr 18, 2015 3:08 PM
Subject: Re: [belajar-access] Error in Loading DLL
To: <belajar-access@yahoogroups.com>
Cc:

 

format nya ?
format 2002 bisa dibuka di 2013,
tetapi tidak bisa sebaliknya, format 2013 tidak bisa di buka di 2002.
anda harus convert dulu.

yakinkan versi anda dari intermediate window:
?currenproject.fileformat


aksan kurdin

On 4/18/2015 11:35 AM, endro.ssl@gmail.com [belajar-access] wrote:

 

Yth. Para Suhu dan Master,

Akhir-akhir ini aplikasi yang saya buat kok tiba2 tidak bisa dibuka ya? Setiap loading form selalu muncul pesan kesalahan "Error in loading DLL". Saya sudah coba repair, sudah coba uninstall officenya tetapi tetap tidak bisa.

Saya pakai access 2002 dan windows 7.

Tetapi kalo aplikasi tsb saya buka pake access 2013 bisa dibuka dengan lancar, kira-kira apanya yang salah ya?

Oh ya....saya barusan bersih-bersih registry pakai regseeker, apakah ini mungkin yang jadi penyebabnya?

Atas bantuannya saya ucapkan banyak terima kasih.

Salam,

Endro

__._,_.___

---

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 (2)

SPAM IS PROHIBITED

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___

Fwd: Re: Bls: [belajar-access] query dengan case ??

---------- Forwarded message ----------
From: "Aksan Kurdin aksan.kurdin@gmail.com [belajar-access]" <belajar-access@yahoogroups.com>
Date: Apr 18, 2015 11:06 AM
Subject: Re: Bls: [belajar-access] query dengan case ??
To: <belajar-access@yahoogroups.com>
Cc:

 

bisa,
tetapi sebagai programmer yang mengerti efisiensi, kerja kalau bisa diperingan, kenapa dipersulit :D
memang tidak mudah mengubah sistem yang sudah berjalan, apalagi jika terkait dengan kebiasaan yang sudah berjalan.

tidak ada salahnya anda coba lagi mengusulkan model excel yang diinput diubah sesuai dengan kaidah normalisasi, jadi kerja anda mudah.

cara yang saya tempuh di tempat kerja adalah memaksa user mengikuti template import excel dari kami, bukan user apa2 maunya di ikuti.

ini sabtu, waktunya anak2 menagih hak bermain dengan papa nya :D
nanti ada waktu ntar malam, saya kasih yang model anda ya, bang safei.
mau keluar main dulu...

aksan kurdin

On 4/18/2015 10:07 AM, Muhamad Safei safeimuhamad@yahoo.com [belajar-access] wrote:

 

iya mas..awalnya mau sy buat sprti itu..tp dari atasan pengennya untuk data barang dibuat seperti itu..tanggal berlakunya dibuat kesamping supaya mereka input barangnya tidak terlalu banyak..karna item barang diambil dari data excel yang jumlahnya ribuan dengan mekanisme upload saja...jd data master barang..awalnya dari file excel yang mereka input..nah..mereka mintanya program yang dibuat mengikuti file excel yang sudah ada....

apakah kemungkinan jika tblmaster1 dibuat seperti itu tidak bisa ya mas???

Pada Jumat, 17 April 2015 17:52, "Aksan Kurdin aksan.kurdin@gmail.com [belajar-access]" <belajar-access@yahoogroups.com> menulis:

 

[Attachment(s) from Aksan Kurdin aksan.kurdin@gmail.com [belajar-access] included below]

dear bang safei,
pertama2 desain tabel anda tidak normal.
anda jadi harus menambahkan field baru setiap kali periode tanggal perlu ditambahkan kembali.

ubah tabel tblMaster1 menjadi:
code
hargaJual
hargaBeli
tglBerlaku

lalu isikan data2 nya dijadikan satu lajur kolom saja.



sekarang mari berlogika untuk memperoleh harga di tanggal tertentu berdasarkan tabel di atas.
misalkan harga A1 di tanggal 2 April 2015

maka range yang masuk itu adalah batasBawah <= 4/2/2015 < batasAtas



bagaimana memperoleh harga terakhir di tanggal tersebut ?
caranya dengan menyusun daftar untuk kode barang tertentu, yang lebih kecil dari tanggal yang dimaksud, dan di sort descending by dateApplied.
Jika sudah terbentuk datanya, baru kita selesaikan dengan mengambil TOP 1 informasi yang diperlukan.

ini sql querynya:
SELECT tblTmp.GoodID, tblTmp.PODate, getmaster1value("sprice",[goodid],[podate]) AS SPrice, getmaster1value("bprice",[goodid],[podate]) AS BPrice, getmaster1value("dateapplied",[goodid],[podate]) AS dateCheck
FROM tblTmp;


dan ini fungsi ajaibnya untuk memperoleh selling price dan buying price:
Function getMaster1Value(fieldname As String, goodsid As String, dateapplied As Date) As Variant
    On Error GoTo errHandle
   
    Dim db As DAO.Database
    Set db = CurrentDb
   
    Dim sql As String
    sql = "select TOP 1 goodsid, sprice, bprice, dateapplied "
    sql = sql & "from tblmaster1 "
    sql = sql & "where goodsid = '" & goodsid & "' and dateapplied <= #" & Format(dateapplied, "mm/dd/yyyy") & "# "
    sql = sql & "order by dateApplied DESC"
   
    Dim rs As DAO.Recordset
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)
   
    Dim result As Variant
    If Not (rs.BOF And rs.EOF) Then
        result = rs(fieldname)
    End If
   
    rs.Close
    Set rs = Nothing
   
    Set db = Nothing
   
    getMaster1Value = result
   
    Exit Function
   
errHandle:
    Set rs = Nothing
    Set db = Nothing
End Function

hasilnya:





regards,
Aksan Kurdin

On 4/13/2015 11:28 AM, Muhamad Safei safeimuhamad@yahoo.com [belajar-access] wrote:

 

Selamat siang..mhn pencerahannya....

berdasarkan gambar diatas...sy ingin membuat query dengan kondisi sebagai berikut :

1.menampilkan code dimana kode pada tbltmp =code pada tblmaster1

2.menampilkan harga jual dimana :jika tgl_po pada tbltmp >/= tgl berlaku1 pada tblmaster maka harga jual=harga jual1 dan     harga beli=harga beli1.

    tapi jika  tgl_po pada tbltmp >/= tgl berlaku2 pada tblmaster maka harga jual=harga jual2 dan     harga beli=harga beli2.

    tapi jika  tgl_po pada tbltmp >/= tgl berlaku3 pada tblmaster maka harga jual=harga jual3 dan     harga beli=harga beli3.

    tapi jika  tgl_po pada tbltmp >/= tgl berlaku4 pada tblmaster maka harga jual=harga jual4 dan     harga beli=harga beli4.

jadi query yang ingn ditampilkan adala seperti dihbahaw ini

code        harga jual     harga beli

-                -                    -

-                -                    -

sy sudah coba seperti dibawah ini,tp kagak bisa jalan...

SELECT tbltmp.[MC Seq#], tbltmp.[PO Date],case when tbltmp.[PO Date]>tblmaster1.[tgl berlaku1] then tblmaster1.[harga jual1]
when tbltmp.[PO Date]>tblmaster1.[tgl berlaku2] then tblmaster1.[harga jual2]
when tbltmp.[PO Date]>tblmaster1.[tgl berlaku3] then tblmaster1.[harga jual3]
when tbltmp.[PO Date]>tblmaster1.[tgl berlaku4] then tblmaster1.[harga jual4]
end as harga_jual from tbltmp.[PO date],
FROM tblmaster1 INNER JOIN tbltmp ON tblmaster1.Mc = tbltmp.[MC Seq#];

 

Sekian Terimakasih....!!!

__._,_.___

---

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 (4)

---

Check out the automatic photo album with 7 photo(s) from this topic.

---

SPAM IS PROHIBITED

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___

Fwd: Re: [belajar-access] query dengan case ?? [3 Attachments]

---------- Forwarded message ----------
From: "Aksan Kurdin aksan.kurdin@gmail.com [belajar-access]" <belajar-access@yahoogroups.com>
Date: Apr 17, 2015 5:52 PM
Subject: Re: [belajar-access] query dengan case ?? [3 Attachments]
To: <belajar-access@yahoogroups.com>
Cc:

 

[Attachment(s) from Aksan Kurdin aksan.kurdin@gmail.com [belajar-access] included below]

dear bang safei,
pertama2 desain tabel anda tidak normal.
anda jadi harus menambahkan field baru setiap kali periode tanggal perlu ditambahkan kembali.

ubah tabel tblMaster1 menjadi:
code
hargaJual
hargaBeli
tglBerlaku

lalu isikan data2 nya dijadikan satu lajur kolom saja.



sekarang mari berlogika untuk memperoleh harga di tanggal tertentu berdasarkan tabel di atas.
misalkan harga A1 di tanggal 2 April 2015

maka range yang masuk itu adalah batasBawah <= 4/2/2015 < batasAtas



bagaimana memperoleh harga terakhir di tanggal tersebut ?
caranya dengan menyusun daftar untuk kode barang tertentu, yang lebih kecil dari tanggal yang dimaksud, dan di sort descending by dateApplied.
Jika sudah terbentuk datanya, baru kita selesaikan dengan mengambil TOP 1 informasi yang diperlukan.

ini sql querynya:
SELECT tblTmp.GoodID, tblTmp.PODate, getmaster1value("sprice",[goodid],[podate]) AS SPrice, getmaster1value("bprice",[goodid],[podate]) AS BPrice, getmaster1value("dateapplied",[goodid],[podate]) AS dateCheck
FROM tblTmp;


dan ini fungsi ajaibnya untuk memperoleh selling price dan buying price:
Function getMaster1Value(fieldname As String, goodsid As String, dateapplied As Date) As Variant
    On Error GoTo errHandle
   
    Dim db As DAO.Database
    Set db = CurrentDb
   
    Dim sql As String
    sql = "select TOP 1 goodsid, sprice, bprice, dateapplied "
    sql = sql & "from tblmaster1 "
    sql = sql & "where goodsid = '" & goodsid & "' and dateapplied <= #" & Format(dateapplied, "mm/dd/yyyy") & "# "
    sql = sql & "order by dateApplied DESC"
   
    Dim rs As DAO.Recordset
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)
   
    Dim result As Variant
    If Not (rs.BOF And rs.EOF) Then
        result = rs(fieldname)
    End If
   
    rs.Close
    Set rs = Nothing
   
    Set db = Nothing
   
    getMaster1Value = result
   
    Exit Function
   
errHandle:
    Set rs = Nothing
    Set db = Nothing
End Function

hasilnya:





regards,
Aksan Kurdin

On 4/13/2015 11:28 AM, Muhamad Safei safeimuhamad@yahoo.com [belajar-access] wrote:

 

Selamat siang..mhn pencerahannya....

berdasarkan gambar diatas...sy ingin membuat query dengan kondisi sebagai berikut :

1.menampilkan code dimana kode pada tbltmp =code pada tblmaster1

2.menampilkan harga jual dimana :jika tgl_po pada tbltmp >/= tgl berlaku1 pada tblmaster maka harga jual=harga jual1 dan     harga beli=harga beli1.

    tapi jika  tgl_po pada tbltmp >/= tgl berlaku2 pada tblmaster maka harga jual=harga jual2 dan     harga beli=harga beli2.

    tapi jika  tgl_po pada tbltmp >/= tgl berlaku3 pada tblmaster maka harga jual=harga jual3 dan     harga beli=harga beli3.

    tapi jika  tgl_po pada tbltmp >/= tgl berlaku4 pada tblmaster maka harga jual=harga jual4 dan     harga beli=harga beli4.

jadi query yang ingn ditampilkan adala seperti dihbahaw ini

code        harga jual     harga beli

-                -                    -

-                -                    -

sy sudah coba seperti dibawah ini,tp kagak bisa jalan...

SELECT tbltmp.[MC Seq#], tbltmp.[PO Date],case when tbltmp.[PO Date]>tblmaster1.[tgl berlaku1] then tblmaster1.[harga jual1]
when tbltmp.[PO Date]>tblmaster1.[tgl berlaku2] then tblmaster1.[harga jual2]
when tbltmp.[PO Date]>tblmaster1.[tgl berlaku3] then tblmaster1.[harga jual3]
when tbltmp.[PO Date]>tblmaster1.[tgl berlaku4] then tblmaster1.[harga jual4]
end as harga_jual from tbltmp.[PO date],
FROM tblmaster1 INNER JOIN tbltmp ON tblmaster1.Mc = tbltmp.[MC Seq#];

 

Sekian Terimakasih....!!!

__._,_.___

Attachment(s) from Aksan Kurdin aksan.kurdin@gmail.com [belajar-access] | View attachments on the web

3 of 3 Photo(s)

aiffjbhh.png

afgacach.png

fbgiedgf.png

---

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 (2)

---

Check out the automatic photo album with 4 photo(s) from this topic.

---

SPAM IS PROHIBITED

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___

Fwd: Re: [belajar-access] bagaimana cara convert ke angka Romawi

---------- Forwarded message ----------
From: "'Roland Tambunan' rolandtambunan@gmail.com [belajar-access]" <belajar-access@yahoogroups.com>
Date: Apr 17, 2015 5:32 PM
Subject: Re: [belajar-access] bagaimana cara convert ke angka Romawi
To: <belajar-access@yahoogroups.com>
Cc:

 

kalau pakainya cuma 12 saja, pakai choose() saja kang.

choose(bulan,"I","II","III","IV","V","VI","VII","VIII","IX","X","XI","XII")

Salam,
Roland

----- Original Message -----
From: harry siswanto hsiswanto@yahoo.com [belajar-access]
To: belajar-access@yahoogroups.com
Sent: Friday, April 17, 2015 1:13 PM
Subject: [belajar-access] bagaimana cara convert ke angka Romawi [1
Attachment]

[Attachment(s) from harry siswanto hsiswanto@yahoo.com [belajar-access]
included below]

Dear senior,

bagaimana caranya untuk convert dari angka (bulan dalam tanggal) ke angka
Romawi ?

terlampir contoh kalau di excel.

terimakasih atas perhatian dan kerjasamanya
Regards

Harry Siswanto

__._,_.___

---

Posted by: "Roland Tambunan" <rolandtambunan@gmail.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

SPAM IS PROHIBITED

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___

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

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___

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

---------- Forwarded message ----------
From: "'Roland Tambunan' rolandtambunan@gmail.com [belajar-access]" <belajar-access@yahoogroups.com>
Date: Apr 17, 2015 10:42 AM
Subject: Re: [belajar-access] MOHON PENCERAHAN UNTUK LOGIN
To: <belajar-access@yahoogroups.com>
Cc:

 

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: "Roland Tambunan" <rolandtambunan@gmail.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

SPAM IS PROHIBITED

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___