Nak Bantuan Cording Untuk Wt Reminder

[mellynda 0]

aku nk wt reminder gune vb tp xtahu cording die n cara die

reminder yg aku maksudkan tu cmni,

ade combo box,setiap data dlm kombo box tu akan di setkan siap2 brape hari yg perlu diremindkan untuk send report

contohnye,data pertama-3 hari

data kedua -1 hari

data ketiga -10 hari

so,bile dh save pilihan data,system akan remindkan sehari sebelum hari report perlu dihantar,mcm ade popup msg sehari sebelum hari kene send report tu,kalo leh bg alarm pun ok gak

kire mcm wt reminder dlm hp tu la,bile kite save je data,then akan ade reminder bile sampai tarikh die cume ni dh di setkan siap2 brape hari mengikut pilihan data

tolong ye

[DrASAG 0]

A'kum.

ermm.. ko trace guna tarikh ler. contoh kalo ko pilih 3 hari, ko tambahkan 3 hari pada tarikh yang awal tu. cenggini, katakan tarikh ko save tu 12-02-2008, then ko nak sistem remind dalam masa 3 hari, maksudnya pada 15-02-2008 la kan? ko tambah 3 hari pada tarikh 12-02-2008 tu, then save. so, setiap kali ko on sistem ko, dia kena check sama ada tarikh semasa tu sama tak ngan tarikh yang ko dah tambah tu. if sama, ko show jer form ker, bunyik ker, apa2 jer...

[mellynda 0]

A'kum.

ermm.. ko trace guna tarikh ler. contoh kalo ko pilih 3 hari, ko tambahkan 3 hari pada tarikh yang awal tu. cenggini, katakan tarikh ko save tu 12-02-2008, then ko nak sistem remind dalam masa 3 hari, maksudnya pada 15-02-2008 la kan? ko tambah 3 hari pada tarikh 12-02-2008 tu, then save. so, setiap kali ko on sistem ko, dia kena check sama ada tarikh semasa tu sama tak ngan tarikh yang ko dah tambah tu. if sama, ko show jer form ker, bunyik ker, apa2 jer...

mslahnye aku x tau nk wt, dh la vb pun just gune wt yg simpel2 jek

cording langsung hancus

[DrASAG 0]

A'kum, takan tatau langsung kot. ko try la godek2 dulu, dah takleh wat, tunjuk program tu kat sini, ramai yang nak tlg. org takan tlg dari 0.

[kula 0]

A'kum, takan tatau langsung kot. ko try la godek2 dulu, dah takleh wat, tunjuk program tu kat sini, ramai yang nak tlg. org takan tlg dari 0.

drasag, aku tngah tolong dier la nih.. ^^ ahahaha..

tatau langsung ko cakap???

HANCUS!!!!!

aku dapat projek dier, sampai pening2 pale otak tengok...

last aku copy jer buat baru senang citer...

pastu buat coding sndri jer..

baru la jadik login ngan insert data dier..

tinggal lagi form die ntuk search data jer..

tarak mase nk buat tuk dier, aku nye projek tu tergantung..

nk anta dah.. last 2 minggu slom aku habis praktikal nih.. ^^

ble da siap nanti aku buat la tuk dier..

[mellynda 0]

drasag, aku tngah tolong dier la nih.. ^^ ahahaha..

tatau langsung ko cakap???

HANCUS!!!!!

aku dapat projek dier, sampai pening2 pale otak tengok...

last aku copy jer buat baru senang citer...

pastu buat coding sndri jer..

baru la jadik login ngan insert data dier..

tinggal lagi form die ntuk search data jer..

tarak mase nk buat tuk dier, aku nye projek tu tergantung..

nk anta dah.. last 2 minggu slom aku habis praktikal nih.. ^^

ble da siap nanti aku buat la tuk dier..

kula,ape cite nih?

aku dh send kt email ko ari tu, xde pape reply pun

[kula 0]

kula,ape cite nih?

aku dh send kt email ko ari tu, xde pape reply pun

aiyark.. lolx.. ko tk cakap da anta..

aku ngatkn blom... ^^

heheh..

mell, bagi aku balik ko nyer sistem tu..

aku da terdelete sistem ko ler.. ingatkn ader backup kt pendrive tp tkde..

Edited March 10, 2008 by kula

[mellynda 0]

aiyark.. lolx.. ko tk cakap da anta..

aku ngatkn blom... ^^

heheh..

mell, bagi aku balik ko nyer sistem tu..

aku da terdelete sistem ko ler.. ingatkn ader backup kt pendrive tp tkde..

la,kan aku dh ckp nk send kt ko ptg tu,ape da

lgpun aku bz sket lps tu ngan pilihan raya,x sempat nk msg ko

ape yg ko x fhm kang bgtau aku k

[kula 0]

okeh.. hanta dlu sistem tu kejap..

[mellynda 0]

okeh.. hanta dlu sistem tu kejap..

aku dh send, aku xde krdt nk bgtau ko nih

[kula 0]

aku dh send, aku xde krdt nk bgtau ko nih

okey.. aku try buat mane yg sempat.. tapi esok mmg tk siap lagi la.. ko tk mesej aku aku maner la tau.. ^^

[mellynda 0]

okey.. aku try buat mane yg sempat.. tapi esok mmg tk siap lagi la.. ko tk mesej aku aku maner la tau.. ^^

amek yg baru k, aku dh send kt email ko

wt carian dlm form daftar skali k

view report baru by date

ok?

[kula 0]

amek yg baru k, aku dh send kt email ko

wt carian dlm form daftar skali k

view report baru by date

ok?

wa.. ni da lebih ni..

kene tambah quota bucket nih..

ko nk ble? aku tk pat anta cecepat sgat la..

[DrASAG 0]

A'kum. wakakakaka... apa la ko kula, tlg org berpada2 la...

Edited March 11, 2008 by DrASAG

[kula 0]

A'kum. wakakakaka... apa la ko kula, tlg org berpada2 la...

ahahaha.. padan muke aku.. ^^

ala, aku tengah training nk masterkn VB la..

sistem dier tk susah maner pun, tapi mase tuh limited sangat.. aku nyer sistem pn hancus lagi..

time2 ak bgang ngan sistem aku, aku buat ler die pnye..

nk join group tk? pasni kite titik dier kepc bucket besau, ngan movies.. join a.. ^^

hahah..

[DrASAG 0]

A'kum.. hehehehehe.. macam menarik tu. tapi aku dah lama tinggalkan vb ni. time belajo lg. kijer aku skang tak libatkan program-memprogram dah, so, sumer dah lupa. ada masa lapang aku belajau vb.net. hehehehehe

[mellynda 0]

wa.. ni da lebih ni..

kene tambah quota bucket nih..

ko nk ble? aku tk pat anta cecepat sgat la..

ko ajak org len wtpe

aku budjet 2 org jek

khamis ni last

leh la weh

k?

[kula 0]

ko ajak org len wtpe

aku budjet 2 org jek

khamis ni last

leh la weh

k?

ahaha..

baru best.. ^^

khamis nih?

tengok ler.. okeh.. ^^

[mellynda 0]

kula ku

ape cite nih, diam jek

[kula 0]

kula ku

ape cite nih, diam jek

hm.. susah skit la..

nk search tu macam2 sngat error dier..

kalo stakat display jer bleh la..

bile nk wat query tuk search tu, coding aku da salah..

search google keyword tk match la..

nnti aku try carik lagi..

hehe.. >.<

cube ko try tanyer kt puteranians lain saper tau pasal coding search tuk adodc? multiple criteria nyer..

[mellynda 0]

hm.. susah skit la..

nk search tu macam2 sngat error dier..

kalo stakat display jer bleh la..

bile nk wat query tuk search tu, coding aku da salah..

search google keyword tk match la..

nnti aku try carik lagi..

hehe.. >.<

cube ko try tanyer kt puteranians lain saper tau pasal coding search tuk adodc? multiple criteria nyer..

z,mcm sush sket la nk search mcm aku wt tu

ape kate kite wt yg senang

search by name ke

pastu view jek dlm listbox kt bwh die

ok x?

tp leh edit tau dlm listbox tu

boleh?

[mellynda 0]

cmdsearch_click()

dim str as string

dim rs as new adodb.connection

str=inputbox("enter month","search")

if str<>"" then

rs.open "select * from <tablename> where month='" & str & "'"

if rs.recordcount>0 then

<display data>

else

msgbox "no record found"

endif

else

msgbox "input the month plz."

endif

end sub

ni antara yg aku jp

tp sql

[kula 0]

cmdsearch_click()

dim str as string

dim rs as new adodb.connection

str=inputbox("enter month","search")

if str<>"" then

rs.open "select * from <tablename> where month='" & str & "'"

if rs.recordcount>0 then

<display data>

else

msgbox "no record found"

endif

else

msgbox "input the month plz."

endif

end sub

ni antara yg aku jp

tp sql

huhu.. tengok btul2.. yg tu adodb, bukan adodc...

aku tk tau pe perbexaan dier, tapi adodb macam konflik ngan sistem ni..

kalo dah dapat search, nk edit dah boleh..

aku da code ader fungsi edit.. just carik code fungsi search jer..

[mellynda 0]

huhu.. tengok btul2.. yg tu adodb, bukan adodc...

aku tk tau pe perbexaan dier, tapi adodb macam konflik ngan sistem ni..

kalo dah dapat search, nk edit dah boleh..

aku da code ader fungsi edit.. just carik code fungsi search jer..

kuang3x..

mata aku ke mn la nih

tgk pun x betol dh

jap aku carik lg

Private Sub Command3_Click()

FillGrid

If rs.State = adStateOpen Then

rs.Close

End If

If Text1.Text = "" Then

MsgBox "Sila masukkan Pilihan anda! ", vbCritical, "RRS"

Text1.SetFocus

Exit Sub

Else

TextDeparture = Trim(Text1.Text)

rs.Open "SELECT KodUtas,KodKeluarga, AwalAkhir as Penerbangan, NamaHaji as Nama, IC as No_kp, Pakej FROM custDataHaji where AwalAkhir Like '" & TextDeparture & "%' Order By KodUtas,KodKeluarga", CN

If rs.RecordCount > 0 Then

rs.MoveFirst

Set DataGrid1.DataSource = rs

Else

MsgBox "Maaf ! Tiada Data ", vbCritical, "RRS"

Text1.Text = ""

Text1.SetFocus

End If

End If

End Sub

kurang fhm la dear

[mellynda 0]

ni 1 lg aku jp

lg x fhm

byk giler cord die

frmSearch.Hide

FrmCustomer.CmdAbout.Enabled = False

FrmCustomer.cmdadd.Enabled = False

FrmCustomer.CmdClose.Enabled = False

FrmCustomer.CmdDelete.Enabled = False

FrmCustomer.CmdEdit.Enabled = False

FrmCustomer.cmdfirst.Enabled = False

FrmCustomer.cmdLast.Enabled = False

FrmCustomer.CmdNext.Enabled = False

FrmCustomer.cmdPrevious.Enabled = False

FrmCustomer.cmdsave.Enabled = False

FrmCustomer.CmdSearch.Enabled = False

On Error Resume Next

Dim mycon As Connection

Dim myrs As Recordset

Set mycon = New Connection

Set myrs = New Recordset

With mycon

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\user\My Documents\Customer.mdb;Persist Security Info=False"

.Open

End With

searchstr$ = TxtID.Text

Set myrs = mycon.Execute("select * from Customer where Customer_Id = " & searchstr)

Set FrmCustomer.TxtName.DataSource = myrs

FrmCustomer.TxtName.DataField = "Name"

Set FrmCustomer.TxtAdd.DataSource = myrs

FrmCustomer.TxtAdd.DataField = "Address"

Set FrmCustomer.TxtIc.DataSource = myrs

FrmCustomer.TxtIc.DataField = "I/C No"

Set FrmCustomer.Txttel.DataSource = myrs

FrmCustomer.Txttel.DataField = "Tel Home"

Set FrmCustomer.TxtHPhone.DataSource = myrs

FrmCustomer.TxtHPhone.DataField = "H/PHONE"

Set FrmCustomer.TxtDob.DataSource = myrs

FrmCustomer.TxtDob.DataField = "Date Of Birth"

Set FrmCustomer.TxtDoj.DataSource = myrs

FrmCustomer.TxtDoj.DataField = "Date Of Join"

Set FrmCustomer.TxtRace.DataSource = myrs

FrmCustomer.TxtRace.DataField = "Race"

Set FrmCustomer.TxtOccupation.DataSource = myrs

FrmCustomer.TxtOccupation.DataField = "Occupation"

Set FrmCustomer.TxtID.DataSource = myrs

FrmCustomer.TxtID.DataField = "Customer_Id"

Set FrmCustomer.TxtPostalCode.DataSource = myrs

FrmCustomer.TxtPostalCode.DataField = " Postel Code"

If myrs.EOF = True Then

MsgBox "No Records Found"

End If

TxtID.SetFocus