Dh,
Thanks sebelumnya atas masukannya.
Jika muncul pesan error saat proses mengeprint : 20500 Not Enough
memory for operation, kira2 masalahnya dimana?
Saat program saya compile dan di run pada komputer saya , tidak ada
masalah. Tapi saat saya coba install ke komputer lain, muncul pesan
tsb.
Kalau memory, komputer yang akan diinstall malah lebih besar dari
pada memory komputer saya. Jadi masalahnya dimana? Mohon bantuannya.
Program menggunakan VB6 dan crystal report v8.
Listing program yang berhubungan saya sertakan:
Private Sub Cmd_Print_Click()
Cr_Kantin.ReportFileName = App.Path & "\" & "kantin.rpt"
Cr_Kantin.SelectionFormula = "{transaksi.kode}='" + Lbl_Kantin
(0) + "'"
Cr_Kantin.RetrieveDataFiles
Cr_Kantin.Action = 1
End Sub
Sub Bersih()
On Error GoTo SL
Txt_NIK = ""
For a = 1 To 4
Lbl_Kantin(a) = ""
Next a
Exit Sub
SL:
MsgBox "Error : " & Err & " " & Err.Description
End Sub
Private Sub Txt_NIK_KeyPress(KeyAscii As Integer)
On Error GoTo Salah
If KeyAscii = 13 Then
Rs_Member.Find "Nik = '" + Trim(Txt_NIK) + "'", ,
adSearchForward, 1
If Rs_Member.EOF Then
MsgBox "Nik tidak ditemukan ...!" + Chr(13) + _
"Silakan ulangi penginputan kembali", vbOKOnly +
vbInformation, "Nik tidak ditemukan"
Txt_NIK = ""
Exit Sub
Else
Lbl_Kantin(1) = Rs_Member(1)
Lbl_Kantin(2) = Rs_Member(3)
Lbl_Kantin(5) = Frm_Menu.lbl_shift.Caption
Lbl_Kantin(3) = Format(Now, "MM/DD/YYyy")
Lbl_Kantin(4) = Format(Time, "hh:mm:ss")
Lbl_Kantin(0) = Lbl_Kantin(5) & "-" & Txt_NIK & "-" &
Lbl_Kantin(3)
Rs_Transaksi.Find "Kode = '" + Lbl_Kantin(0) + "'", ,
adSearchForward, 1
If Rs_Transaksi.EOF Then
Rs_Transaksi.AddNew
Rs_Transaksi!kode = Lbl_Kantin(0)
Rs_Transaksi!nik = Txt_NIK
Rs_Transaksi!nama = Lbl_Kantin(1)
Rs_Transaksi!tgl = Lbl_Kantin(3)
Rs_Transaksi!jam = Lbl_Kantin(4)
Rs_Transaksi!shift = Lbl_Kantin(5)
Rs_Transaksi!dept = Lbl_Kantin(2)
Rs_Transaksi!User = Frm_Menu.lbl_User.Caption
Rs_Transaksi.Update
Rs_Transaksi.Requery
Cmd_Print_Click
Else
MsgBox " Data telah ada, seseorang dilarang makan 2x
pada shift dan tanggal yang sama", vbOKOnly + vbInformation, "Tidak
Boleh Makan 2x"
End If
Bersih
End If
End If
Txt_NIK.SetFocus
Exit Sub
Salah:
MsgBox "Error : " & Err & " " & Err.Description
End Sub
Best Regard
Chen
