Jum"at 3 juli Nb Ta Soscode Data Dosen

Sub aktiftombol()
simpan.Visible = True: batal.Visible = True
Tambah.Visible = False: edit.Visible = False: hapus.Visible = False: keluar.Visible = False

End Sub


Sub nonaktiftombol()
simpan.Visible = False: batal.Visible = False
Tambah.Visible = True: edit.Visible = True: hapus.Visible = True: keluar.Visible = True

End Sub



Sub nonaktiftext()
On Error Resume Next
a.Enabled = False: b.Enabled = False: c.Enabled = False
d.Enabled = False: e.Enabled = False: f.Enabled = False
g.Enabled = False: h.Enabled = False: i.Enabled = False: j.Enabled = False
k.Enabled = False: l.Enabled = False: m.Enabled = False
n.Enabled = False: o.Enabled = False: p.Enabled = False
End Sub

Private Sub Form_UnLoad(Cancel As Integer)
Call keluarform
End Sub
Private Sub Tambah_Click()
Call aktiftombol
Koneksi.Recordset.AddNew
DataGrid1.Enabled = False
a.Enabled = True: a.SetFocus
End Sub

Private Sub edit_Click()
If Koneksi.Recordset.BOF Then
MsgBox "data yang di edit tidak ada", vbInformation, "konrirmasi program"
Tambah.SetFocus
Else
Call aktiftombol
DataGrid1.Enabled = False
a.Enabled = True: a.SetFocus
End If
End Sub

Private Sub hapus_Click()
If Koneksi.Recordset.EOF Then
MsgBox "Data Yang Dihapus Tidak ada,,,!!!", vbCritical, "Konfirmasi program"
Tambah.SetFocus
Exit Sub
End If

pesan = MsgBox("Apakah anda Yakin Menghapus Data Ini,,,?", vbQuestion + vbYesNo, "Konfirmasi Program")
If pesan = vbYes Then
On errr GoTo salah
Koneksi.Recordset.Delete adAffectCurrent
Koneksi.Recordset.MoveFirst
Exit Sub
End If

On Error GoTo 0
Exit Sub
salah:
MsgBox "Data Yang Dihapus Tidak ada,,,!!!", vbCritical, "Konfirmasi program"
Tambah.SetFocus
End Sub
Private Sub keluar_Click()
Call keluarform
End Sub
Private Sub batal_Click()
Call nonaktiftombol
Call nonaktiftext
Koneksi.Refresh
DataGrid1.Enabled = True
Tambah.SetFocus
End Sub


Private Sub simpan_Click()
On Error GoTo salah
If a = " " Or b = "" Or c = " " Then


MsgBox "lengkapi dulu data yang kosong", vbCritical, "Konfirmasi program"
Text1.SetFocus
Exit Sub
End If

Koneksi.Recordset.Update
Koneksi.Recordset.MoveLast
Call nonaktiftext
Call nonaktiftombol
DataGrid1.Enabled = True
Exit Sub
On Error GoTo 0
salah:
MsgBox "Kode Dosen sudah ada silahkan ganti dengan Kode Dosen lain Dengan lima Krakter,,!!", vbCritical, "konfirmasi program"
a.SetFocus
End Sub

Private Sub a_keypress(keyascii As Integer)
If keyascii = 13 Then
If a = "" Then
MsgBox "Lengkapi dulu data yang kosong", vbCritical, "Konfirmasi program"
a.SetFocus
Else
b.Enabled = True: b.SetFocus
Exit Sub
End If
End If
End Sub



Private Sub b_keypress(keyascii As Integer)
If keyascii = 13 Then
If b = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
b.SetFocus
Else
c.Enabled = True: c.SetFocus
Exit Sub
End If
End If
End Sub

Private Sub c_keypress(keyascii As Integer)
If keyascii = 13 Then
If c = "" Then
MsgBox "isi dulu data yang kosong", vbInformation, "konfirmasi program"
c.SetFocus
Else
d.Enabled = True: d.SetFocus
End If
End If
End Sub

Private Sub d_keypress(keyascii As Integer)
If keyascii = 13 Then
If d = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
d.SetFocus
Else
e.Enabled = True: e.SetFocus
Exit Sub
End If
End If
End Sub

Private Sub e_keypress(keyascii As Integer)
If keyascii = 13 Then
If e = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
e.SetFocus
Else
f.Enabled = True: f.SetFocus
Exit Sub
End If
End If
End Sub

Private Sub f_keypress(keyascii As Integer)
If keyascii = 13 Then
If f = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
f.SetFocus
Else
g.Enabled = True: g.SetFocus
Exit Sub
End If
End If
End Sub

Private Sub g_keypress(keyascii As Integer)
If keyascii = 13 Then
If g = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
g.SetFocus
Else
h.Enabled = True: h.SetFocus
Exit Sub
End If
End If
End Sub

Private Sub h_keypress(keyascii As Integer)
If keyascii = 13 Then
If h = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
h.SetFocus
Else
i.Enabled = True: i.SetFocus
Exit Sub
End If
End If
End Sub

Private Sub i_keypress(keyascii As Integer)
If keyascii = 13 Then
If i = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
i.SetFocus
Else
j.Enabled = True: j.SetFocus
Exit Sub
End If
End If
End Sub

Private Sub j_keypress(keyascii As Integer)
If keyascii = 13 Then
If j = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
j.SetFocus
Else
k.Enabled = True: k.SetFocus
Exit Sub
End If
End If
End Sub

Private Sub k_keypress(keyascii As Integer)
If keyascii = 13 Then
If k = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
k.SetFocus
Else
l.Enabled = True: l.SetFocus
Exit Sub
End If
End If
End Sub

Private Sub l_keypress(keyascii As Integer)
If keyascii = 13 Then
If l = "" Then
MsgBox "isi dulu data yang kosong ", vbInformation, "konfirmasi program"
l.SetFocus
Else
m.Enabled = True: m.SetFocus
Exit Sub
End If
End If
End Sub
Private Sub m_keypress(keyascii As Integer)
If keyascii = 13 Then
If m = "" Then
MsgBox "isi dulu data yang kosong", vbInformation, "konfirmasi program"
m.SetFocus
Else
simpan.SetFocus
End If
End If
End Sub

Sub keluarform()
Unload Me
End Sub Read More..

Kamis 2 Juli 2009 VB Sulap cmd boton

hari nich aq belajar soscode vb :
Comand boton Simpan Batal Tambah Edit Hapus Keluar
Simpan Batal = visible = True
Tambah Edit Hapus Keluar = Visible = False
Sos code / listing

Sub aktifcmd()
simpan.Visible = True: batal.Visible = True
Tambah.Visible = False: edit.Visible = False: hapus.Visible = False: keluar.Visible = False
End Sub
Sub nonaktifcmd()
simpan.Visible = False: batal.Visible = False
Tambah.Visible = True: edit.Visible = True: hapus.Visible = True: keluar.Visible = True

End Sub

Private Sub batal_Click()
Call nonaktifcmd
End Sub

Private Sub edit_Click()
Call aktifcmd
End Sub



Private Sub Form_Load()

End Sub

Private Sub keluar_Click()
Unload Me
End Sub

Private Sub simpan_Click()
Call nonaktifcmd
End Sub

Private Sub Tambah_Click()
Call aktifcmd
End Sub Read More..

Rabu 1 juli 2009

hari 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 Read More..