Scrup modul :
Public Kn As ADODB.Connection
Public Tb As ADODB.Recordset
Sub konek_database()
Set Kn = New ADODB.Connection
Kn.Provider = "microsoft.jet.oledb.4.0"
Kn.CursorLocation = adUseClient
Kn.Open App.Path & "\Rawat_Nginap.mdb"
End Sub
Sub TombolMati()
simpan.Visible = True: batal.Visible = True
baru.Visible = False: ubah.Visible = False: hapus.Visible = False: keluar.Visible = False
End Sub
Sub TombolHidup()
baru.Visible = True: ubah.Visible = True: hapus.Visible = True: keluar.Visible = True
simpan.Visible = False: batal.Value = False
End Sub
Private Sub a_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If a.Text = "" Then
MsgBox "DATA TIDAK BISA KOSONG", vbInformation, "PESAN"
a.SetFocus
Else
b.Locked = False: b.SetFocus
End If
End If
End Sub
