Fungsi Tambah Rekord

* -=-=-=-=-=-=-=-=-=-
Function Tambah_Rek
* =-=-=-=-=-=-=-=-=-=
* .T. jika berhasil Append Blank, .F. jika tidak
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Parameters Detik
Private Lamanya, x, Tunggu, Pilih
x= 0
Lamanya= .T.
Tunggu= If(PCount()= 0, 5, Detik)

Do While Lamanya
Append Blank
If NetErr()
Tone(800, 1)
Tone(1600, 1)
Pilih= PopMenu(10, 10, "Record Baru tidak berhasil ditambahkan ! " +;
"Anda ingin mencoba lagi ? ", " Ya ", " Tidak ")
If Pilih= 2
Exit
Endif
Inkey(1)
x= x + 1
If x > Tunggu
Exit
Endif
Else
Return .T.
Endif
Enddo
Return .F.