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 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(strExcelFile)
intRows = objExcel.ActiveSheet.Range("NumLines").Value
intMonth = objExcel.ActiveSheet.Range("Month").Value
intYear = objExcel.ActiveSheet.Range("Year").Value
For intRow = 1 To intRows
strCurr = objExcel.ActiveSheet.Range("CUR" & Format(intRow)).Value
NewValue = objExcel.ActiveSheet.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
