/* */

Wednesday, September 16, 2009

[belajar-access] mesin pencari

----- Original Message -----
From: "exz@nt" <exzantmilis@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, September 16, 2009 1:58 PM
Subject: Re: [belajar-access] mesin pencari


sy biasanya pake combo
yg sourcenya dimodif ditambahin kriteria where like
contoh sbg berikut :

Private Sub cmbCari_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[BARCODE] =" & Chr(34) & Me.cmbCari.Value & Chr(34)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.cmbCari.Value = ""

End Sub

Private Sub cmbCari_NotInList(NewData As String, Response As Integer)
Me.cmbCari.RowSource = "SELECT * FROM [Produk] WHERE produk.NM_BRG Like
" & Chr(34) & "*" & NewData & "*" & Chr(34) & ";"
Response = acDataErrContinue
End Sub

maksud kode diatas : jika kode yg diketikkan pada combo tidak terdaftar,
maka dilakukan seleksi sourcedata berdasarkan Nama Barang.

smg membantu.

salam,
exz@nt


2009/9/14 Masyruchi Se <

Friday, September 11, 2009

[belajar-access] Tidak bisa menghapus record

----- Original Message -----
From: "Ana Abdullah" <abdullahana@ymail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, September 11, 2009 2:24 PM
Subject: RE: [belajar-access] Tidak bisa menghapus record


Salam kenal semuanya.

sekalian mau coba jawab ya ...
saya copas dari arsip lama ini.

Sebagian besar masalah link table biasanya karena
- hubungan antara komputer dengan server terputus , jadi lakukan ping
misalnya: ping serverku , bila hasilnya bagus berarti sudah ada koneksi
antara komputer

dengan server. silahkan ke bagian ke dua

- lakukan refreshing link table. time-out artinya waktu yang diperlukan
untuk meretrieve data

ke server telah melewati batas yang diijinkan.
biasanya saya gunakan fungsi refreshing sbb:

Function RefreshLink()

sServerName="NAMASERVERMU" --> Namakomputer\SQLEXPRESS
sDatabase ="NAMADATABASEMU" --> misalnya MAYOR
sUserName ="USERLOGIN KE SQLSERVERMU" --> misalnya sa
sPassword ="USERPASSWORD KE SQLSERVERMU" --> misalnya 12999

Dim datDB As DAO.Database
Dim datRS As DAO.Recordset

Set datDB = CurrentDb
Set datRS = datDB.OpenRecordset("Select * From MsysObjects Where Connect is
not null")


If Not datRS.EOF Then
datRS.MoveLast
datRS.MoveFirst
End If


For datNo = 1 To datRS.RecordCount
'Debug.Print datRS!Name
datDB.TableDefs(datRS!Name).Connect = "ODBC;Driver={SQL Server};Server=" &

sServerName & ";Database=" & sDatabaseName & "; Uid=" & sUserName & ";Pwd="
& sPassword;"
datDB.TableDefs(datRS!Name).RefreshLink
datRS.MoveNext
Next

Set datRS = Nothing
Set datDB = Nothing
End Function

- Bila dengan kedua cara di atas belum bisa juga, coba lakukan maintenance
servernya.
a. lakukanlah shrink database.
b. lakukanlah shrink file databasenya.

- bila masih belum bisa juga, silahkan bertanya kembali
dengan mencantumkan errornya terjadi.


--- On Fri, 9/11/09, HENDRA <

Monday, September 7, 2009

[belajar-access] Membuat total jam kerja

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Monday, September 07, 2009 7:25 PM
Subject: RE: [belajar-access] Membuat total jam kerja


> Mas Wahyono, sebenarnya ide ini sangat sederhana, tapi mungkin bisa
berguna.
>
> Asumsi saya adalah bahwa benar2 hanya 2 kali dilakukan absensi yaitu waktu
> datang dan waktu pulang.
>
>
>
>
>
>
> 1. Urutkan tabel dalam dengan order by: nopegawai, tanggal, jam,
> functionkey
>
> Gambarnya akan terlihat sbb:
>
>
>
>
>
> foto-0001.jpg
>
>
>
>
>
> 2. Buat query sbb:
>
>
>
> SELECT a.RecordID AS RecordID,
>
> a.KodePegawai AS KodePegawai,
>
> a.TglRekam AS TglMasuk,
>
> a.WaktuRekam AS JamMasuk,
>
> b.TglRekam AS TglPulang,
>
> b.WaktuRekam AS JamPulang
>
> FROM (SELECT tblAbsen.*,
>
> DCount("RecordID","tblAbsen","[RecordID]<=" & [RecordID] & " AND
> [KodeFungsi]=1 ") AS NoUrut
>
> FROM tblAbsen WHERE (((tblAbsen.KodeFungsi)=1))
>
> ORDER BY tblAbsen.KodePegawai, tblAbsen.TglRekam, tblAbsen.WaktuRekam,
> tblAbsen.KodeFungsi) AS a
>
> INNER JOIN
>
> (SELECT tblAbsen.*,
>
> DCount("RecordID","tblAbsen","[RecordID]<=" & [RecordID] & " AND
> [KodeFungsi]=3") AS NoUrut
>
> FROM tblAbsen WHERE (((tblAbsen.KodeFungsi)=3))
>
> ORDER BY tblAbsen.KodePegawai, tblAbsen.TglRekam, tblAbsen.WaktuRekam,
> tblAbsen.KodeFungsi) AS b
>
> ON (a.noUrut=b.noUrut) AND (a.KodePegawai=b.KodePegawai);
>
>
>
> Simpan sebagai queryTotalJamKerja
>
> Dan hasilnya terlihat sbb:
>
>
>
>
>
> foto-0002.jpg
>
>
>
>
>
> Mudah-mudahan bisa membantu,
>
>
>
> MBA

Saturday, September 5, 2009

[belajar-access] Program Multi User

----- Original Message -----
From: "Kri" <sukros@ymail.com>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, September 05, 2009 3:55 PM
Subject: Re: [belajar-access] Program Multi User


Terima kasih, aku udah coba & berhasil .

-------Original Message-------

From: exz@nt
Date: 9/5/2009 09:49:12
To: belajar-access@yahoogroups.com
Subject: Re: [belajar-access] Program Multi User

pada tabel transaksi tambahkan 1 field USERNAME
pada form, saat save data, cb tambahin : Me.USERNAME=environ("USERNAME")
hasilnya, username yg dipake login di wind0w$ akan tersimpan di field
USERNAME tsb
kira2 spt itu, silahkan dicoba

nb :
environ("USERNAME") -> untuk mendapatkan nama username yg dipake login di
wind0w$
environ("COMPUTERNAME") -> untuk mendapatkan nama komputernya

kalo salah, mohon dikoreksi.

Salam,
exz@nt

"Ilmu yang bermanfaat, bekal ke akhirat"

2009/9/4 Kri <sukros@ymail.com>