/* */

Tuesday, February 28, 2012

[belajar-access] Tanya artikel tentang references

 

Dear rekan-rekan belajar access,,

Mohon pencerahan dari rekan-rekan semua tentang references yang terdapat dalam editor VBA.
Mungkin dari rekan-rekan ada yang mempunyai artikel tentang references secara lengkap?
Saya masih belum memahami penuh kegunaan masing-masing references yang ada, terutama pada saat ada trouble "missing references" pada saat aplikasi dijalankan pada komputer lain (pada saat dijalankan dikomputer pertama aplikasi berjalan normal).
Yang kedua apakah ada tool khusus untuk memastikan bahwa code VBA & references yang kita pakai sudah benar sesuai dengan yang seharusnya?

Terimakasih atas bantuan rekan-rekan semua..

Salam Access,,

Adi

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: [belajar-access] link untuk combobox

 

Silahkan di coba,

Pada comboboxnya pilih event On Focus,

Kemudian buat vba, docmd.openform "Form A"

Salam
Roland


-----Original Message-----
From: "reza anggara" <reza.angga@gmail.com>
Sender: belajar-access@yahoogroups.com
Date: Thu, 23 Feb 2012 14:25:01
To: <belajar-access@yahoogroups.com>
Reply-To: belajar-access@yahoogroups.com
Subject: [belajar-access] link untuk combobox

dear para master acces

mohon bantuannya nih.
kendala saya adalah.
ketika saya memilih combobox seperti
1. A
2. B
3. C

ketika memilih salah satu combobox tsb secara otomatis akan membuka form A, B atau C.
mohon para bantuan master
saya memakai VBA untuk codingnya, tidak familiar dgn macro

regards

Reza



------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links



__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

[belajar-access] Menghitung Jumlah di Subform di Transaksi Form




Dear All

Bagaimana rumus  sum (jumlah) yg ada di subform lalu memunculkan di Transaksi form
pada program kasir


salam
Yokanan


Re: [belajar-access] menghitung umur

 

coba dipilah hari bulan tahun
baru di operasikan
 contoh kode

Private Sub Text0_AfterUpdate()

' text0 input tgl lahir
' text2 input sampai tanggal
' text4 output keluaran umur dlm tahun

Text4 = (Month([Text2]) - Month([text0])) + ((Year([Text2]) - Year([text0])) * 12)
If Day([text0]) > Day([Text2]) Then Text4 = (Text4) - 1 Else Text4 = Text4 
Text4 = Int((Text4 / 12))

End Sub





--- On Tue, 2/21/12, nur kholis <nur_ceper@yahoo.co.id> wrote:

From: nur kholis <nur_ceper@yahoo.co.id>
Subject: [belajar-access] menghitung umur
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Tuesday, February 21, 2012, 7:45 AM

 

assalamu'alaikum para master acces ...

saya sedang membuat database pemilih .... dan terkendala pada saat menghitung umur ...
pada saat tanggal 17-04-2112 pemilh harus berusia 17 tahun (paling muda lahir tgl 17-07-1995)

saya coba pake datediff ("yyyy";[tgllahir];#17-04-2112) kok munculnya pembulatan tahun

seharusnya klo lahirnya tanggal 18-04-1995 masih usia 16 kok keluarnya 17 tahun ... mohon bantuan para master acces ...

wassalamu'alaikum ....

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: [belajar-access] ACCESS GO ONLINE

 

wah menarik nih topiknya, harus ngatur waktu biar bisa hadir.


btw community gathering masih gratiskah? dulu pernah ikut juga sekitar 2007/2008 kalo gak salah. berapa kontribusi peserta (kalo emang ada?)




On Thu, Feb 23, 2012 at 6:56 PM, Dhimas Prasetyo <dhimas@rumahaccess.com> wrote:
 

ACCESS GO ONLINE

Sekarang zamannya zaman online! Semua serba online. Begitu juga dengan aplikasi database, sekarang kudu online!

Maka mulailah geliat programmer dan developer Access mengunduh teknologi online untuk aplikasi mereka. Mulai dari aplikasi web, trik dengan CiTrix atau bahkan remote desktop, hingga teknologi awan alias Cloud.

Geliat developer Access ini akan terlihat lebih nyata lagi dalam acara Community Gathering yang insya Allah akan dilaksanakan:

Hari, Tanggal: Kamis, 19 April 2012
Waktu: 09:00 - 17:00
Tempat: Auditorium, Microsoft Indonesia
Gedung BEJ, Jl. Jend Sudirman Kav 52-53 Senayan Kebayoran Baru Jakarta Selatan

GET READY!

Selain acara kumpul-kumpul komunitas pemakai MS Access di Indonesia, akan diisi juga dengan presentasi para pakar Access tentang pemakaian Access secara online.

Akan diadakan juga lomba membuat aplikasi praktis menggunakan MS Access.
Keterangan lengkapnya akan terus diposting di www.RumahAccess.com




--
--------------------------------------------------------------------
Syahmin Sukhairi
http://syahmins.wordpress.com
--------------------------------------------------------------------

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: Bls: [belajar-access] menghitung umur

 

itu access 2007, saya kirimnya

--- On Thu, 2/23/12, nur kholis <nur_ceper@yahoo.co.id> wrote:

From: nur kholis <nur_ceper@yahoo.co.id>
Subject: Bls: [belajar-access] menghitung umur
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Thursday, February 23, 2012, 7:43 PM

 

Bang Jay saya buka di Access 2003 kok ndak bisa ya ....

Tolongin dung ....

Dari: jay kur <jayridwan@yahoo.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Rabu, 22 Februari 2012 8:21
Judul: Re: [belajar-access] menghitung umur [1 Attachment]

 
nih database barangkali  bisa jadi contoh,

tinggal sedikit modif

makasih,
Jaya

--- On Tue, 2/21/12, nur kholis <nur_ceper@yahoo.co.id> wrote:

From: nur kholis <nur_ceper@yahoo.co.id>
Subject: [belajar-access] menghitung umur
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Tuesday, February 21, 2012, 8:45 AM

 
assalamu'alaikum para master acces ...

saya sedang membuat database pemilih .... dan terkendala pada saat menghitung umur ...
pada saat tanggal 17-04-2112 pemilh harus berusia 17 tahun (paling muda lahir tgl 17-07-1995)

saya coba pake datediff ("yyyy";[tgllahir];#17-04-2112) kok munculnya pembulatan tahun

seharusnya klo lahirnya tanggal 18-04-1995 masih usia 16 kok keluarnya 17 tahun ... mohon bantuan para master acces ...

wassalamu'alaikum ....


__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Saturday, February 25, 2012

Re: [belajar-access] menghitung umur [1 Attachment]

 
[Attachment(s) from Aksan Kurdin included below]

Ini ada fungsi yang saya ambil dari http://putravb.blogspot.com/2010/05/fungsi-hitung-umur.html:
Saya tambahkan penjelasan seperlunya

Public Function HitungUmur(ByVal TglLahir As Date) As String     Dim d As Integer, m As Integer, y As Integer      'Jika belum lahir, jangan dihitung     If TglLahir >= Now Then         HitungUmur = ""         Exit Function     End If      'cari selisih hari, selisih bulan, dan selisih tahun     d = Day(Now) - Day(TglLahir)     m = Month(Now) - Month(TglLahir)     y = Year(Now) - Year(TglLahir)      'fungsi sgn untuk mengecek hasil selisih negatif (-1), nol (0), atau positif (1)     If Sgn(d) = -1 Then         'jika negatif, maka berarti masih 30 - d hari lagi,         'satu bulan dianggap 30 hari         d = 30 - Abs(d)         m = m - 1     End If          If Sgn(m) = -1 Then         'jika negatif, maka berarti masih 12 - m bulan lagi         m = 12 - Abs(m)         y = y - 1     End If      HitungUmur = y & " Tahun, " & m & " Bulan, " & d & " Hari" End Function 

Silakan jalankan dengan misalnya :

select nama, tglLahir, HitungUmur(tglLahir) as umur from table


Nah untuk kasus anda, manipulasi fungsi tersebut untuk menerima dua parameter tanggal (tanggal 1, dan tanggal 2):

Public Function HitungUmur2Tanggal(ByVal TglLahir1 As Date, ByVal TglLahir2 As Date) As String     Dim d As Integer, m As Integer, y As Integer      If TglLahir1 >= TglLahir2 Then         HitungUmur2Tanggal = ""         Exit Function     End If      d = Day(TglLahir2) - Day(TglLahir1)     m = Month(TglLahir2) - Month(TglLahir1)     y = Year(TglLahir2) - Year(TglLahir1)      If Sgn(d) = -1 Then         d = 30 - Abs(d)         m = m - 1     End If          If Sgn(m) = -1 Then         m = 12 - Abs(m)         y = y - 1     End If      HitungUmur2Tanggal = y & " Tahun, " & m & " Bulan, " & d & " Hari" End Function 

berikut hasilnya dari immediate window:







Aksan Kurdin




On 2/21/2012 8:45 PM, nur kholis wrote:
 
assalamu'alaikum para master acces ...

saya sedang membuat database pemilih .... dan terkendala pada saat menghitung umur ...
pada saat tanggal 17-04-2112 pemilh harus berusia 17 tahun (paling muda lahir tgl 17-07-1995)

saya coba pake datediff ("yyyy";[tgllahir];#17-04-2112) kok munculnya pembulatan tahun

seharusnya klo lahirnya tanggal 18-04-1995 masih usia 16 kok keluarnya 17 tahun ... mohon bantuan para master acces ...

wassalamu'alaikum ....

__._,_.___

Attachment(s) from Aksan Kurdin

1 of 1 Photo(s)

Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: [belajar-access] Memunculkan Angka di Form Transaksi [1 Attachment]

 
[Attachment(s) from Aksan Kurdin included below]


Dear Yokanan,




aksan kurdin



On 2/25/2012 11:59 AM, Yokanan wrote:

 

Dear All

mohon bagaimana memunculkan Jumlah yg harus di bayar di forms Transaksi In

Lihat attach

salam

yokanan


__._,_.___

Attachment(s) from Aksan Kurdin

1 of 1 File(s)

Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

[belajar-access] Menghitung Jumlah di Subform di Transaksi Form




Dear All

Bagaimana rumus  sum (jumlah) yg ada di subform lalu memunculkan di Transaksi form
pada program kasir


salam
Yokanan


Re: [belajar-access] Tanya artikel tentang references

 

Benar,
sangat menjengkelkan kalau aplikasi tidak bisa jalan di 'semua' stasiun yang kita pasang.

coba google, beberapa artikel menarik, tetapi sudah berumur:

http://access.mvps.org/access/modules/mdl0022.htm

coba yang lain:
http://www.trigeminal.com/usenet/usenet026.asp
http://www.accessmvp.com/djsteele/AccessReferenceErrors.html
http://allenbrowne.com/ser-38.html
http://stackoverflow.com/questions/5612640/ms-access-2007-setting-object-library-references-dynamically-possible


aksan kurdin


On 2/25/2012 8:36 AM, adi_srpd wrote:

 

Dear rekan-rekan belajar access,,

Mohon pencerahan dari rekan-rekan semua tentang references yang terdapat dalam editor VBA.
Mungkin dari rekan-rekan ada yang mempunyai artikel tentang references secara lengkap?
Saya masih belum memahami penuh kegunaan masing-masing references yang ada, terutama pada saat ada trouble "missing references" pada saat aplikasi dijalankan pada komputer lain (pada saat dijalankan dikomputer pertama aplikasi berjalan normal).
Yang kedua apakah ada tool khusus untuk memastikan bahwa code VBA & references yang kita pakai sudah benar sesuai dengan yang seharusnya?

Terimakasih atas bantuan rekan-rekan semua..

Salam Access,,

Adi


__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: [belajar-access] link untuk combobox

 

Manfaatkan event after update dari combo box.
Misalkan pilihan yang ada di combobox combo0 adalah nama form, maka gunakan event berikut:

Private Sub Combo0_AfterUpdate()     DoCmd.OpenForm Me.Combo0 End Sub


aksan kurdin

On 2/23/2012 9:25 PM, reza anggara wrote:
 

dear para master acces

mohon bantuannya nih.
kendala saya adalah.
ketika saya memilih combobox seperti
1. A
2. B
3. C

ketika memilih salah satu combobox tsb secara otomatis akan membuka form A, B atau C.
mohon para bantuan master
saya memakai VBA untuk codingnya, tidak familiar dgn macro

regards

Reza


__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

[belajar-access] Memunculkan Angka di Form Transaksi [1 Attachment]

 
[Attachment(s) from Yokanan included below]

Dear All

mohon bagaimana memunculkan Jumlah yg harus di bayar di forms Transaksi In

Lihat attach

salam

yokanan

__._,_.___

Attachment(s) from Yokanan

1 of 1 File(s)

Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

[belajar-access] Tanya artikel tentang references

 

Dear rekan-rekan belajar access,,

Mohon pencerahan dari rekan-rekan semua tentang references yang terdapat dalam editor VBA.
Mungkin dari rekan-rekan ada yang mempunyai artikel tentang references secara lengkap?
Saya masih belum memahami penuh kegunaan masing-masing references yang ada, terutama pada saat ada trouble "missing references" pada saat aplikasi dijalankan pada komputer lain (pada saat dijalankan dikomputer pertama aplikasi berjalan normal).
Yang kedua apakah ada tool khusus untuk memastikan bahwa code VBA & references yang kita pakai sudah benar sesuai dengan yang seharusnya?

Terimakasih atas bantuan rekan-rekan semua..

Salam Access,,

Adi

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: [belajar-access] link untuk combobox

 

Silahkan di coba,

Pada comboboxnya pilih event On Focus,

Kemudian buat vba, docmd.openform "Form A"

Salam
Roland


-----Original Message-----
From: "reza anggara" <reza.angga@gmail.com>
Sender: belajar-access@yahoogroups.com
Date: Thu, 23 Feb 2012 14:25:01
To: <belajar-access@yahoogroups.com>
Reply-To: belajar-access@yahoogroups.com
Subject: [belajar-access] link untuk combobox

dear para master acces

mohon bantuannya nih.
kendala saya adalah.
ketika saya memilih combobox seperti
1. A
2. B
3. C

ketika memilih salah satu combobox tsb secara otomatis akan membuka form A, B atau C.
mohon para bantuan master
saya memakai VBA untuk codingnya, tidak familiar dgn macro

regards

Reza



------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links



__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: [belajar-access] menghitung umur

 

coba dipilah hari bulan tahun
baru di operasikan
 contoh kode

Private Sub Text0_AfterUpdate()

' text0 input tgl lahir
' text2 input sampai tanggal
' text4 output keluaran umur dlm tahun

Text4 = (Month([Text2]) - Month([text0])) + ((Year([Text2]) - Year([text0])) * 12)
If Day([text0]) > Day([Text2]) Then Text4 = (Text4) - 1 Else Text4 = Text4 
Text4 = Int((Text4 / 12))

End Sub





--- On Tue, 2/21/12, nur kholis <nur_ceper@yahoo.co.id> wrote:

From: nur kholis <nur_ceper@yahoo.co.id>
Subject: [belajar-access] menghitung umur
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Tuesday, February 21, 2012, 7:45 AM

 

assalamu'alaikum para master acces ...

saya sedang membuat database pemilih .... dan terkendala pada saat menghitung umur ...
pada saat tanggal 17-04-2112 pemilh harus berusia 17 tahun (paling muda lahir tgl 17-07-1995)

saya coba pake datediff ("yyyy";[tgllahir];#17-04-2112) kok munculnya pembulatan tahun

seharusnya klo lahirnya tanggal 18-04-1995 masih usia 16 kok keluarnya 17 tahun ... mohon bantuan para master acces ...

wassalamu'alaikum ....

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: [belajar-access] ACCESS GO ONLINE

 

wah menarik nih topiknya, harus ngatur waktu biar bisa hadir.


btw community gathering masih gratiskah? dulu pernah ikut juga sekitar 2007/2008 kalo gak salah. berapa kontribusi peserta (kalo emang ada?)




On Thu, Feb 23, 2012 at 6:56 PM, Dhimas Prasetyo <dhimas@rumahaccess.com> wrote:
 

ACCESS GO ONLINE

Sekarang zamannya zaman online! Semua serba online. Begitu juga dengan aplikasi database, sekarang kudu online!

Maka mulailah geliat programmer dan developer Access mengunduh teknologi online untuk aplikasi mereka. Mulai dari aplikasi web, trik dengan CiTrix atau bahkan remote desktop, hingga teknologi awan alias Cloud.

Geliat developer Access ini akan terlihat lebih nyata lagi dalam acara Community Gathering yang insya Allah akan dilaksanakan:

Hari, Tanggal: Kamis, 19 April 2012
Waktu: 09:00 - 17:00
Tempat: Auditorium, Microsoft Indonesia
Gedung BEJ, Jl. Jend Sudirman Kav 52-53 Senayan Kebayoran Baru Jakarta Selatan

GET READY!

Selain acara kumpul-kumpul komunitas pemakai MS Access di Indonesia, akan diisi juga dengan presentasi para pakar Access tentang pemakaian Access secara online.

Akan diadakan juga lomba membuat aplikasi praktis menggunakan MS Access.
Keterangan lengkapnya akan terus diposting di www.RumahAccess.com




--
--------------------------------------------------------------------
Syahmin Sukhairi
http://syahmins.wordpress.com
--------------------------------------------------------------------

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___