/* */

Wednesday, May 26, 2010

[belajar-access] Form berpassword

----- Original Message -----
From: "Muntahar" <eyoung24@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, May 26, 2010 10:32 AM
Subject: Re: [belajar-access] Form berpassword


Private Sub Form_Open(Cancel As Integer)
mypass = "sembarangnama"
If LCase(InputBox("masukkan password :", "Konfirmasi")) <> mypass Then
MsgBox "password salah !!", vbExclamation
Cancel = True
End If
End Sub

Monday, May 24, 2010

[belajar-access] REPORT BERBENTUK ADOBE / PDF

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Monday, May 24, 2010 12:51 PM
Subject: Re: [belajar-access] REPORT BERBENTUK ADOBE / PDF


> di access 2007 coba dengan ini:
> docmd.OutputTo acOutputReport,"nama
> report",acFormatPDF,".\namapdfnya.pdf",true,,,acExportQualityPrint
>
>
> aksan kurdin
>

Friday, May 14, 2010

[belajar-access] Report Print Quality

----- Original Message -----
From: "Maulana" <maulana_pup@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, May 15, 2010 10:17 AM
Subject: Re: [belajar-access] Report Print Quality


trims Bank Aksan, ngefek tuh...
salam
----- Original Message -----
From: Aksan Kurdin
To: belajar-access@yahoogroups.com
Sent: Friday, May 14, 2010 5:49 PM
Subject: Re: [belajar-access] Report Print Quality

copas dari http://bytes.com/topic/access/answers/641738-catalog-program:

DoCmd.OpenReport "<your report here>", acViewDesign
Reports!rptEmployees.Printer.PrintQuality = acPRPQHigh
DoCmd.OpenReport "<your report here>", acViewPreview, , , acWindowNormal


bagaimana ? ngefek ?

aksan kurdin

Wednesday, May 12, 2010

[belajar-access] Conversi Access 97 ke 2007 (Solved)

----- Original Message -----
From: "Ria" <re_laydeez@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, May 12, 2010 11:16 AM
Subject: Re: [belajar-access] Conversi Access 97 ke 2007 (Solved)

All,
sudah solved dengan merubah jumlah line pada file excelnya.(saran dari
wedhi2002)
mugkin object excel itu yg dimaksudkan error object defined.

Terimakasih banyak para master.. :)


________________________________
From: Aksan Kurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Wed, May 12, 2010 9:26:56 AM
Subject: Re: [belajar-access] Conversi Access 97 ke 2007


sertakan screen shot, atau sebutkan references apa saja yang sudah di
contreng.

aksan kurdin

On 5/12/2010 8:25 AM, Ria wrote:
trims pak masukannnya.
>pada saat saya klik option itu ada warning, conflict with other library.
>kira2 librari apa ya?
>thanks
>
>
>
>
________________________________
From: Aksan Kurdin <aksan.kurdin@ gmail.com>
>To: belajar-access@ yahoogroups. com
>Sent: Tue, May 11, 2010 4:31:24 PM
>Subject: Re: [belajar-access] Conversi Access 97 ke 2007
>
>Periksa Refference (VB Editor > Tools > Refference)
>
>
>
>
>Microsoft DAO 3.x sudah harus ikut terpilih.
>
>
>aksan kurdin
>
>
>
>
>On 5/11/2010 4:03 PM, Ria wrote:
>
>>Thanks Pak..
>>masih sama error messagenya.
>>
>>
>>
>>
________________________________
From: Aksan Kurdin <aksan.kurdin@ gmail.com>
>>To: belajar-access@ yahoogroups. com
>>Sent: Tue, May 11, 2010 3:33:15 PM
>>Subject: Re: [belajar-access] Conversi Access 97 ke 2007
>>
>>
>>On 5/11/2010 3:10 PM, Nuria wrote:
>>
>>>selamat siang para master, saya sedang mengconvert aplikasi access dari
Access 97 ke access 2007.
>>>aplikasi ini untuk mngupdate exchange rate setiap bulannya
>>>setelah saya convert ke access 2007, tombol save saya mengalami error
ketika saya mengkliknya (error message: application- object define error)
>>>mohon bantuannya
>>>terimakasih banyak ..
>>>
>>>berikut codenya untuk button save tersebut:
>>>Private Sub cmdSave_Click( )
>>> Dim DB As DAO.Database
>>> Dim objExcel As Object
>>> Dim intRow As Integer
>>> Dim intRows As Integer
>>> Dim strCellName As String
>>> Dim strCurr As String
>>> Dim intMonth As Integer
>>> Dim intYear As Integer
>>> Dim strQuery As String
>>> Dim NewValue As Double
>>> Dim strExcelFile As String
>>>
>>>On Error GoTo Err_cmdSave_ Click
>>>
>>> DoCmd.Hourglass True
>>> Set DB = CurrentDb
>>>
>>>
>>> 'strExcelFile = "I:\test\UpdateCurr .xls"
>>> Set objExcel = GetObject(strExcelF ile)
>>>
>>> intRows = objExcel.ActiveShee t.Range(" NumLines" ).Value
>>> intMonth = objExcel.ActiveShee t.Range(" Month").Value
>>> intYear = objExcel.ActiveShee t.Range(" Year").Value
>>>
>>> For intRow = 1 To intRows
>>> strCurr = objExcel.ActiveShee t.Range(" CUR" & Format(intRow) ).Value
>>> NewValue = objExcel.ActiveShee t.Range(" USD" & Format(intRow) ).Value
>>> strQuery = "UPDATE CurrExchRate SET USD = " & Format(NewValue) & " ,
Year = " & _
>>> Format(intYear) & " WHERE Month = " & Format(intMonth) & " AND Code = '"
& strCurr & "';"
>>> DB.Execute (strQuery)
>>> Next
>>>
>>> DoCmd.Hourglass False
>>> MsgBox "Currency Exchange Rates have been updated !", vbInformation
>>>
>>>Exit_cmdSave_ Click:
>>> Set objExcel = Nothing
>>> Set DB = Nothing
>>> Exit Sub
>>>
>>>Err_cmdSave_ Click:
>>> DoCmd.Hourglass False
>>> MsgBox Err.Description, vbExclamation
>>> Resume Exit_cmdSave_ Click
>>>End Sub
>>>