tag:blogger.com,1999:blog-6421104413360404592011-07-30T13:05:36.732-07:00club jojobahttp://www.blogger.com/profile/02351242306419558060noreply@blogger.comBlogger31100tag:blogger.com,1999:blog-642110441336040459.post-70663624036311910982009-07-02T01:57:00.000-07:002009-07-02T01:58:57.032-07:00Sub aktiftombol()<br />simpan.Visible = True: batal.Visible = True<br />Tambah.Visible = False: edit.Visible = False: hapus.Visible = False: keluar.Visible = False<br /><br />End Sub<br /><br /><br />Sub nonaktiftombol()<br />simpan.Visible = False: batal.Visible = False<br />Tambah.Visible = True: edit.Visible = True: hapus.Visible = True: keluar.Visible = True<br /><br />End Sub<br /><br /><br /><br />Sub nonaktiftext()<br />On Error Resume Next<br />a.Enabled = False: b.Enabled = False: c.Enabled = False<br />d.Enabled = False: e.Enabled = False: f.Enabled = False<br />g.Enabled = False: h.Enabled = False: i.Enabled = False: j.Enabled = False<br />k.Enabled = False: l.Enabled = False: m.Enabled = False<br />n.Enabled = False: o.Enabled = False: p.Enabled = False<br />End Sub<br /><br />Private Sub Form_UnLoad(Cancel As Integer)<br />Call keluarform<br />End Sub<br />Private Sub Tambah_Click()<br />Call aktiftombol<br />Koneksi.Recordset.AddNew<br />DataGrid1.Enabled = False<br />a.Enabled = True: a.SetFocus<br />End Sub <span class="fullpost"> <br /><br />Private Sub edit_Click()<br />If Koneksi.Recordset.BOF Then<br />MsgBox "data yang di edit tidak ada", vbInformation, "konrirmasi program"<br />Tambah.SetFocus<br />Else<br />Call aktiftombol<br />DataGrid1.Enabled = False<br />a.Enabled = True: a.SetFocus<br />End If<br />End Sub<br /><br />Private Sub hapus_Click()<br />If Koneksi.Recordset.EOF Then<br />MsgBox "Data Yang Dihapus Tidak ada,,,!!!", vbCritical, "Konfirmasi program"<br />Tambah.SetFocus<br />Exit Sub<br />End If<br /><br />pesan = MsgBox("Apakah anda Yakin Menghapus Data Ini,,,?", vbQuestion + vbYesNo, "Konfirmasi Program")<br />If pesan = vbYes Then<br />On errr GoTo salah<br />Koneksi.Recordset.Delete adAffectCurrent<br />Koneksi.Recordset.MoveFirst<br />Exit Sub<br />End If<br /><br />On Error GoTo 0<br />Exit Sub<br />salah:<br />MsgBox "Data Yang Dihapus Tidak ada,,,!!!", vbCritical, "Konfirmasi program"<br />Tambah.SetFocus<br />End Sub<br />Private Sub keluar_Click()<br />Call keluarform<br />End Sub<br />Private Sub batal_Click()<br />Call nonaktiftombol<br />Call nonaktiftext<br />Koneksi.Refresh<br />DataGrid1.Enabled = True<br />Tambah.SetFocus<br />End Sub<br /><br /><br />Private Sub simpan_Click()<br />On Error GoTo salah<br />If a = " " Or b = "" Or c = " " Then<br /><br /><br />MsgBox "lengkapi dulu data yang kosong", vbCritical, "Konfirmasi program"<br />Text1.SetFocus<br />Exit Sub<br />End If<br /><br />Koneksi.Recordset.Update<br />Koneksi.Recordset.MoveLast<br />Call nonaktiftext<br />Call nonaktiftombol<br />DataGrid1.Enabled = True<br />Exit Sub<br />On Error GoTo 0<br />salah:<br />MsgBox "Kode Dosen sudah ada silahkan ganti dengan Kode Dosen lain Dengan lima Krakter,,!!", vbCritical, "konfirmasi program"<br />a.SetFocus<br />End Sub<br /><br />Private Sub a_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If a = "" Then<br />MsgBox "Lengkapi dulu data yang kosong", vbCritical, "Konfirmasi program"<br />a.SetFocus<br />Else<br />b.Enabled = True: b.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br /><br /><br />Private Sub b_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If b = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />b.SetFocus<br />Else<br />c.Enabled = True: c.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br />Private Sub c_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If c = "" Then<br />MsgBox "isi dulu data yang kosong", vbInformation, "konfirmasi program"<br />c.SetFocus<br />Else<br />d.Enabled = True: d.SetFocus<br />End If<br />End If<br />End Sub<br /><br />Private Sub d_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If d = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />d.SetFocus<br />Else<br />e.Enabled = True: e.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br />Private Sub e_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If e = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />e.SetFocus<br />Else<br />f.Enabled = True: f.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br />Private Sub f_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If f = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />f.SetFocus<br />Else<br />g.Enabled = True: g.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br />Private Sub g_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If g = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />g.SetFocus<br />Else<br />h.Enabled = True: h.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br />Private Sub h_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If h = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />h.SetFocus<br />Else<br />i.Enabled = True: i.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br />Private Sub i_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If i = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />i.SetFocus<br />Else<br />j.Enabled = True: j.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br />Private Sub j_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If j = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />j.SetFocus<br />Else<br />k.Enabled = True: k.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br />Private Sub k_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If k = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />k.SetFocus<br />Else<br />l.Enabled = True: l.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br /><br />Private Sub l_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If l = "" Then<br />MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"<br />l.SetFocus<br />Else<br />m.Enabled = True: m.SetFocus<br />Exit Sub<br />End If<br />End If<br />End Sub<br />Private Sub m_keypress(keyascii As Integer)<br />If keyascii = 13 Then<br />If m = "" Then<br />MsgBox "isi dulu data yang kosong", vbInformation, "konfirmasi program"<br />m.SetFocus<br />Else<br />simpan.SetFocus<br />End If<br />End If<br />End Sub<br /><br />Sub keluarform()<br />Unload Me<br />End Sub </span><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/642110441336040459-7066362403631191098?l=alam-samarinda.blogspot.com' alt='' /></div>club jojobahttp://www.blogger.com/profile/02351242306419558060noreply@blogger.com0tag:blogger.com,1999:blog-642110441336040459.post-17306243676224587092009-07-02T00:17:00.000-07:002009-07-02T00:28:12.402-07:00hari nich aq belajar soscode vb :<br /> Comand boton Simpan Batal Tambah Edit Hapus Keluar <br /> Simpan Batal = visible = True<br /> Tambah Edit Hapus Keluar = Visible = False <br /> Sos code / listing <br /> <br />Sub aktifcmd()<br />simpan.Visible = True: batal.Visible = True<br />Tambah.Visible = False: edit.Visible = False: hapus.Visible = False: keluar.Visible = False<br />End Sub<br />Sub nonaktifcmd()<br />simpan.Visible = False: batal.Visible = False<br />Tambah.Visible = True: edit.Visible = True: hapus.Visible = True: keluar.Visible = True<br /><br />End Sub<br /><br />Private Sub batal_Click()<br />Call nonaktifcmd<br />End Sub<br /><br />Private Sub edit_Click()<br />Call aktifcmd<br />End Sub<br /><br /><br /><br />Private Sub Form_Load()<br /><br />End Sub<br /><br />Private Sub keluar_Click()<br />Unload Me<br />End Sub<br /><br />Private Sub simpan_Click()<br />Call nonaktifcmd<br />End Sub<br /><br />Private Sub Tambah_Click()<br />Call aktifcmd<br />End Sub<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/642110441336040459-1730624367622458709?l=alam-samarinda.blogspot.com' alt='' /></div>club jojobahttp://www.blogger.com/profile/02351242306419558060noreply@blogger.com0tag:blogger.com,1999:blog-642110441336040459.post-81131513293822128892009-06-30T20:48:00.000-07:002009-07-02T00:26:41.091-07:00hari nich ku coba membuat buku harian ,,, dengan blogger wel disini q cuma memuat tentang pelajaran yang di pelajarin hari nich aq mulai aja nich hari nich aq belajar vb ( visual basic ) tpi sayang dosenx g, masuk tpi kan aq bisa belajar sendiri walau dosen g masuk terus,,, aq hari nich mulai membuat landasan teori tpi kata dosen pebimbing aq hendea rus membahas tentang vb dan acsses tpi landasanx ja seperti sejarahnya pengertiannya dan bentuk bentuk tool tool yang rus di jelaskan juga,,,, wel ,, aq rus berusaha terus apa pun yang terjadi karna masa depan ada ditangan kita sendiri semangat hen GO GO GO GO GO !!!!! BISA<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/642110441336040459-8113151329382212889?l=alam-samarinda.blogspot.com' alt='' /></div>club jojobahttp://www.blogger.com/profile/02351242306419558060noreply@blogger.com0