Database ADO Code - frmInfo

'Deskripsi: Coding untuk membantu pencarian data dan
'           menampilkan hasilnya dalam bentuk dokumen
'           sederhana dan file teks
'Pembuat  : Masino Sinaga (masino_sinaga@posindonesia.co.id)
'Hari/Tgl : Sabtu, 11 Mei 2002, Puslatpos Bandung 40151
'Modifik. : Jumat, 31 Mei 2002, Puslatpos Bandung 40151
'------------------------------------------------------

Private Sub cmdClearSearch_Click()
 'tombol cmdClearSearch di frmADOCode diklik...
 frmADOCode.cmdClearSearch.Value = True
End Sub

Private Sub cmdFindFirst_Click()
 'tombol FindFirst di frmADOCode diklik...
 frmADOCode.cmdFindFirst.Value = True
End Sub

Private Sub cmdFindNext_Click()
 'tombol FindNext di frmADOCode diklik...
 frmADOCode.cmdFindNext.Value = True
End Sub

Private Sub cmdOK_Click()
 Me.Hide
End Sub

Private Sub cmdSimpan_Click()
On Error GoTo Batal  'Jika batal menyimpan file pergi ke Batal
If Text1.Text <> "" Then
  With Dialog
    .DialogTitle = "Simpan sebagai file teks"
    .Filter = "*.txt|*.txt"  'Hanya file txt yg bisa disimpan
    .FileName = "HasilCari"
    .ShowSave                'Tampilkan kotak dialog simpan file
    Open .FileName For Output As #1  'Simpan ke file
       Print #1, Text1.Text
    Close #1  'Tutup file
  End With:   Exit Sub
Else
  MsgBox "Belum ada hasil pencarian!", vbCritical, "Kosong"
  Exit Sub
End If
Batal:  'Label jika batal menyimpan
  Exit Sub   'Langsung keluar dari prosedur ini
End Sub