|
Public Function Pilih(HMID_nya As String) As ADODB.Recordset
'Prosedur pencarian Nama, Sex dan Umur dengan HMID_nya
Dim HHMS As ADODB.Recordset
Set HHMS = New ADODB.Recordset
HHMS.CursorLocation = adUseClient
HHMS.Open "select HMID, HMName, HMSex, HMAge from TblHouseholdMember where HMID= '" & HMID_nya & "'", con
Set Pilih = HHMS
End Function
-------------------------------------------------------------------------
Public Sub CariDiHHMS()
Dim Cari As ADODB.Recordset
Set Cari = Modul_SQL.Pilih(HHID.Value)
If Not cari.EOF Then
Nama = Cari!HMName
Sex = Cari!HMSex
Umur = Cari!HMUmur
End If
End Sub
-------------------------------------------------------------------------
Private Sub HHID_AfterUpdate()
CariDiHHMS
End Sub
-----
Nah! sekarang yang muncul kesalahannya di yang warna merah itu lho! Pesan Errornya Run-time error '3001' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
Yang berwarna biru itu adalah baris perintah yang menjalankannya. | 
