gan,kalo vb.net bagusnya pake mysqlconnector atau odbc buat koneksi ke databasenya? kira-kira beda jauh gak :malus
Di bagian coding dibawah If tgl = x Then NO = Right(rskeluar!nomor, 5) + 1 NO = tgl & "-" & NO Else di bagian no diganti menjadi kode dibawah NO = tgl & "-" & format(NO,"00000") Semoga membantu thanks gan, solved :shakehand :D
untuk trace n debug harus sabar n teliti gan iya gan, tapi ane masi belum paham yang salah di bagian mana dengan trace and debug :hammers
pernah coba yg namanya trace and debugging nggak ? code fuction ente, di kasih tanda warna merah(breakpoint), kalo pas aplikasi running sampai di function autonumber ntar lgsg keluar code agan n trace code dg tekan f8, berguna buat mengetahui isi dari variable2 yg dipakai saat jalan coba dulu gih.
:ngakak Pertanyaan nomor dua bukannya gampang gan jawabannya? Agan tinggal ganti tanggal yang ada di komputer. Pertama gini, Coba tes beberapa kali pengisian data apakah berhasil bertambah dari 1, 2 sampai 3. Klo itu udah bisa. Selanjutnya, ganti ke tanggal 1 Januari 2014 (Dengan asumsi sekarang
Agan pakai datagrid refresh ya? Coba ga usah di refresh deh. ternyata itu toh masalahnya :ngakaks :hammers thanks gan pencerahannya :shakehand2 btw utk pertanyaan ane yang nomor 2 agan bisa gak? :malu:
ane pernah tuh gan ngedip gitu. Tapi bisa ane perbaiki. Tapi ane lupa gimana caranya. :hammer waduh :hammers coba diinget-inget dulu gan :ngakaks :Peace:
gridnya ngedip tuw yang kayak gimana ya gan :bingung untuk perbandingan yang ane bikinnya kayak gini yan untuk penawaran otomatis : gimana njelasinnya ya :bingung: intinya setiap ane klik tombol save, datagrid ane kan munculin datanya tuh.. nah dia itu pasti goyang gitu, ngrefresh istilahnya
gan, ane mau tanya nih.. 1. gimana caranya biar datagrid gak ada kedipan setelah ane tekan tombol save? kayaknya kurang gimana gitu kalo datagridnya goyang :malus 2. Cara ngetes jalan/gaknya penomoran otomatis yang dimulai dari nomor 1 lagi tiap tahunnya gimana ya? :malu: ini script ane : Sub Au...
Silahkan gan.. Dim nFeed As Integer Const LEFT_MARGIN = 0 Const PAPER_WIDTH = 28 GARIS1 = String$(PAPER_WIDTH + 0, "-") GARIS2 = String$(PAPER_WIDTH, "=") Open "LPT1:" For Output As #1 Print #1, Tab(6); "UMBAH-UMBAH LAUNDRY" Print #1, Tab(5); "Jl. Al...
Coba pake : if RSkeluar.EOF = false then ' Isi untuk Record count lebih dari nol while RSkeluar.EOF = false wend else ' Isi untuk Record count = 0 end if kayak gini bukan gan :bingungs masih error invalid or unqualified reference If rskeluar.EOF = False Then rskeluar.MoveLast hitung = Right(!...
coba kopi kode yg error dan SS-nya gan.. :cystg ini gan udah ane edit :ngakaks Sub AutoNumber() Set rskeluar = New ADODB.Recordset rskeluar.Open "SELECT * FROM surat_keluar", conn, adOpenDynamic, adLockOptimistic rskeluar.Requery Dim hitung As Byte Dim urutan As String * 6 With rskelu...
pake Date lah :hammers pas proses ganti tipe data lancar di MySQL? mungkin di programnya perlu di sesuain lagi.. :ngakaks lancar gan.. ya ini yang puyeng gan, programnya jadi gak karuan.. error di recordcount :hammers mungkin agan bisa bantu? :malu:
Udah solved gan. Ane pakai syntax yang LPT itu akhirnya.. :D Iya gan.. Memang agan pakai apa? Kecuali field itu nantinya ga ada proses lebih lanjut. Cuma disimpan aja. Jadi pakai VARCHAR juga cukup. ane pake varchar gan :hammers ane ubah tipe nya di mysql malah error tuh programnya
oh maap :malus mySQL pake yyyy-mm-dd coba agan masukin SQL ke string trus tampilin : MsgBox QueriSQL bentar gan, kalo field tanggal itu harus pake tipe date kah?
ane belom liat keatas masalah agan apa.. :hammer: tapi klo tanggal untuk access coba : Dim d as date d = dtpicker1.value Tanggal1 = "#" & Format(Month(d), "00") & "/" & Format(Day(d), "00") & "/" & CStr(Year(d)) & "#