Tolong anda cek variabel ORS nya
anda belum menentukan ORS itu mewakili tabel apa dalam database.
contohnya :
dim ors as new adodb.recorset
set ors = db.openrecordset("transaksi")
'Variabel db adalah variabel yang berisikan tentang ADODB.CONECTION
Tustadi I Made <[EMAIL PROTECTED]> wrote:
Tolong dicek skrip ini keluar error " object variable or with bock
variable not set " dimana letak errornya.
Tolong dibetulin.........
Private Sub TextSuplier_Validate(Cancel As Boolean)
On Error GoTo iniEror
Dim oRS As ADODB.Recordset
If Trim(TextSuplier.Text) <> "" Then
If CariGolongan = False Then
Cancel = True
End If
If DateValue(oRS!tgl_expr) < DateValue(Now) Then
MsgBox "Kartu Anda telah Expired"
'Msukkan scripnya selanjutnya disini jika kartu expired
Else
'masukkan scripnya jika kartu bisa dipakai
End If
Else
Label8.Caption = ""
End If
Exit Sub
iniEror:
MsgBox Err.Description, vbCritical
End Sub
----- Original Message ----
From: Andrie Baskara <[EMAIL PROTECTED]>
To: [email protected]
Sent: Monday, 2 April, 2007 8:22:40 PM
Subject: Re: [indoprog-vb] Tanya skrip tgl ???
Pake perintah Datevalue()
if datevalue(rs! tgl_akhir) < datevalue(now) then
msgbox "Kartu Anda telah Expired"
'Msukkan scripnya selanjutnya disini jika kartu expired
else
'masukkan scripnya jika kartu bisa dipakai
end if
----- Original Message -----
From: "Tustadi I Made" <[EMAIL PROTECTED] co.uk>
To: <indoprog-vb@ yahoogroups. com>; <indoprog-vb@ yahoogroups. com>
Sent: Sunday, April 01, 2007 5:54 PM
Subject: [indoprog-vb] Tanya skrip tgl ???
> Minta tolong :
>
> Saya punya tabel berisi field : kd_member, nm_member, tgl_mulai dan
tgl_selesai.
> (type tgl menggunakan datetime)
>
> Kemudian di program aplikasi saya mau memasuk-kan kd_member kedalam
text5.text.
>
> Pertanyaaan saya :
>
> Jika tgl_selesai dari kd_member yang akan dimasukkan kedalam text5.text
kurang dari tanggal sekarang, maka keluar pesan " Kartu anda sudah Expired
", sebaliknya jika tgl_selesai dari kd_member lebih dari tanggal sekarang,
maka kursor lanjut ke proses berikutnya.
>
> Gimana membuat skrip-nya.
>
> Trims
>
>
>
__________________________________________________________
The all-new Yahoo! Mail goes wherever you go - free your email address from
your Internet provider. http://uk.docs.yahoo.com/nowyoucan.html
[Non-text portions of this message have been removed]
---------------------------------
Sekarang dengan penyimpanan 1GB
http://id.mail.yahoo.com/
[Non-text portions of this message have been removed]
