Coba gunakan Format(Date, "YYYY-MM-DD") > current time. Atau, Format(tglValid, "YYYY-MM-DD") > Textbox name=tglValid.
Disamping itu, ubah script-nya. Sesuaikan antara field-field di tabel dengan nilai yang akan dimasukkan. Pada script yang dikirim, ada 2 nilai yang tidak field-nya. Dari sini error juga bisa muncul:
NamaFild=Nilai sek_NSS=TextNPSN
Sek_UNIK=TextNSS
Sek_Tis_Kode=cbmTingkat
Sek_Nama=TextSekolah
Sek_Status=cmbStatus
Sek_NamaPimpinan=TextPimpinan
Sek_YysnNama=TextNamaYayasan
Sek_YysnAlamat=TextAlamatYayasan
Sek_YysnKelompok=cmbKelompokYayasan
Sek_Akreditasi=cmbAkreditasi
Sek_Klp_ID=cmbKelompokSMK
Sek_Alamat=TextAlamat
Sek_Desa=TextKelurahan
Sek_Geo_ID=cmbLokasi
Sek_KodePOS=TextKodePos
Sek_Kab_ID=cmbKabupaten
Sek_Kec=cmbKecamatan
Sek_NoTelp=TextTelepon
Sek_Fax=TextFax
Sek_email=TextEmail
Sek_website TextWebsite ?? =TglFalid & _
??=Format(Date="yyyy/mm/dd")
Semoga bisa membantu dan memberi semangat. Hariyanto (Surabaya)
--- On Thu, 23/5/13, Muzakkir Nasruddin <zakirnas@ymail.com> wrote:
From: Muzakkir Nasruddin <zakirnas@ymail.com>
Subject: Re: Format Tgl Acces-MySql-MsQl / dh [belajar-access] Tombol Cari
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Thursday, 23 May, 2013, 9:18 AM
aslm pak masih Tanya juga ni masih eroh juga imput tanggal sql pada vba nya mohon pencerahan dimana salahnya Private Sub CmdSimpan_Click() Call koneksi
Dim sql As String
sql = "insert into Sekolah (sek_NSS,Sek_UNIK,Sek_Tis_Kode,Sek_Nama,Sek_Status,Sek_NamaPimpinan," _
& " Sek_YysnNama,Sek_YysnAlamat,Sek_YysnKelompok,Sek_Akreditasi," _
& " Sek_Klp_ID,Sek_Alamat,Sek_Desa,Sek_Geo_ID,Sek_KodePOS,Sek_Kab_ID,Sek_Kec,Sek_NoTelp," _
& "Sek_Fax,Sek_email,Sek_website) values ('" & TextNPSN & "','" & TextNSS & _
"','" & cbmTingkat & _
"','" & TextSekolah & _
"','" & cmbStatus & _
"','" & TextPimpinan & _
"','" & TextNamaYayasan & _
"','" & TextAlamatYayasan & _
"','" & cmbKelompokYayasan & _
"','" & cmbAkreditasi & _
"','" & cmbKelompokSMK & _
"','" & TextAlamat & _
"','" & TextKelurahan & _
"','" & cmbLokasi & _
"','" & TextKodePos & _
"','" & cmbKabupaten & _
"','" & cmbKecamatan & _
"','" & TextTelepon & _
"','" & TextFax & _
"','" & TextEmail & _
"','" & TextWebsite & _
"','" & TglFalid & _
"','" & Format(Date, "yyyy/mm/dd") & "')" 'sql = "insert into sekolah(Sek_LastUpdate) values ('" & Format(Date, "yyyy/mm/dd") & "')"
conn.Execute sql
Call bersih
Call Blank
End Sub
From: hari yanto <har_i20002000@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Wednesday, May 22, 2013 2:12 AM
Subject: Re: Format Tgl Acces-MySql-MsQl / dh [belajar-access] Tombol Cari
| Wa'alaikum salam Wr Wb.. Kalau database pakai MySql, yang digunakan bukan yang untuk Ms Acces. Tapi yang MySql: Format(TGL, "YYYY-MM-DD") Jadi sql paling akhir diubah dari semula: "','" & tglValid(Date, for_date) & "')" menjadi: "','" & Format(tglValid, "YYYY-MM-DD") & "')" Semoga bisa membantu dan memberi semangat. Hariyanto (Surabaya) --- On Wed, 22/5/13, Muzakkir Nasruddin <zakirnas@ymail.com> wrote:
From: Muzakkir Nasruddin <zakirnas@ymail.com>
Subject: Re: Format Tgl Acces-MySql-MsQl / dh [belajar-access] Tombol Cari
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Wednesday, 22 May, 2013, 10:43 AM
aslm pak har saya uda cabo gunakam fungsi tangga masih tapi error sya menggunakan MySQL mohon pencerahan Function for_date() If CInt(Left(CStr(DateSerial(2012, 1, 2)), 2)) = 2 Then
for_date = "yyyy/mm/dd"
Else
for_date = "mm/dd/yyyy"
End If End Function
Private Sub CmdSimpan_Click() Call koneksi
Dim sql As String
sql = "insert into Sekolah (sek_NSS,Sek_UNIK,Sek_Tis_Kode,Sek_Nama,Sek_Status,Sek_NamaPimpinan," _
& " Sek_YysnNama,Sek_YysnAlamat,Sek_YysnKelompok,Sek_Akreditasi," _
& " Sek_Klp_ID,Sek_Alamat,Sek_Desa,Sek_Geo_ID,Sek_KodePOS,Sek_Kab_ID,Sek_Kec,Sek_NoTelp," _
& "Sek_Fax,Sek_email,Sek_website,Sek_LastUpdate) values ('" & TextNPSN & "','" & TextNSS & _
"','" & cbmTingkat & _
"','" & TextSekolah & _
"','" & cmbStatus & _
"','" & TextPimpinan & _
"','" & TextNamaYayasan & _
"','" & TextAlamatYayasan & _
"','" & cmbKelompokYayasan & _
"','" & cmbAkreditasi & _
"','" & cmbKelompokSMK & _
"','" & TextAlamat & _
"','" & TextKelurahan & _
"','" & cmbLokasi & _
"','" & TextKodePos & _
"','" & cmbKabupaten & _
"','" & cmbKecamatan & _
"','" & TextTelepon & _
"','" & TextFax & _
"','" & TextEmail & _
"','" & TextWebsite & _
"','" & tglValid(Date, for_date) & "')"
conn.Execute sql
Call bersih
Call Blank
End Sub From: hari yanto <har_i20002000@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, May 21, 2013 4:34 PM
Subject: Format Tgl Acces-MySql-MsQl / dh [belajar-access] Tombol Cari
--- On Wed, 22/5/13, Muzakkir Nasruddin <zakirnas@ymail.com> wrote:
From: Muzakkir Nasruddin <zakirnas@ymail.com>
Subject: Re: Bls: [belajar-access] Tombol Cari
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Wednesday, 22 May, 2013, 12:33 AM
Wa'alaikumsalam Wr Wb... Bismillahirrohmanirrohim... Memang ada perbedaan format tanggal antara Ms Acees-MySql-MsQl. Terutama bila kita eksekusi via VBA. Untuk Database MySql dan MsQl, format-nya harus diubah (mengikuti format database): Format(TGL, "YYYY-MM-DD") Sedangkan bila Databasenya Ms Acces, formatnya (entah dari mana saya temukan) dibuat sendiri. Lalu diletakkan pada format date. Ini scriptnya: Function for_date() If CInt(Left(CStr(DateSerial(2012, 1, 2)), 2)) = 2 Then for_date = "dd/mm/yyyy" Else for_date = "mm/dd/yyyy" End If End Function Contoh penggunaan di sql: db.Execute "insert into TblPelanggan (IDRecord,TglAktif,KodePel)" _ & " values (" & idrec & ",#" & Format(Date, for_date) & "#," & ubah(idpel) & ")" Semoga bisa membantu dan memberi semangat. Hariyanto (Surabaya) aslm komunitas accesss saya mengemui kendala dalam input data tanggal dengan menggunakan sql mohon pencerahan dalam memasuknan tanggal Pendirian mis Private Sub CmdSimpan_Click() Call koneksi Dim sql As String sql = "insert into Sekolah (sek_NSS,Sek_UNIK,Sek_Tis_Kode,Sek_Nama,Sek_Status,Sek_NamaPimpinan," _ & " Sek_Tgl_Pedirian) values ('" & TextNPSN & "','" & TextNSS & _ "','" & cbmTingkat & _ "','" & TextSekolah & _ "','" & cmbStatus & _ "','" & TextPimpinan & _ "','" & TextTgl_Pedirian& "')" conn.Execute sql Call bersih Call Blank End Sub zakirnas
|
|
|
Tidak ada komentar:
Posting Komentar