>
> > Saya memakai text box dan mengisinya di control sourcenya :
> > "=IIf(caridata([Forms]![BOLHDR]![BLNO],[BOLFCM Query]),[BOLFCM Query
> > subform].[Form]![TOTAL2],0)"
> >
> > Dimana [Forms![Bolhdr]![blno] = data yang dicari
> > [BOLFCM Query] = recordset
> >
> > dengan function seperti di bawah ini :
> >
> > Function CariData(DataYangDicari As String, NamaTable As String) As
> Boolean
> >
> > Dim RS As Recordset
> >
> > Set RS = CurrentDb.OpenRecordset(NamaTable, dbOpenDynaset)
> > 'CurrentDB itu hasilnya sama dengan OpenDatabase dengan Database aktif
> >
> > RS.FindFirst ("NamaField = '" & DataYangDicari & "'")
> > If RS.NoMatch Then
> > CariData = False
> > Else
> > CariData = True
> > End If
> > End Function
> >
> >
> > Saya juga telah mencoba dengan functionya saudara Rawuh dan mengisi di
> > control sourcenya :
> > "IIF(Caridata(Forms![BOLHDR]![BLNO],[BOLFCM Query].[BLNO],[BOLFCM
> > Query]),statement1,statement2)
> >
> > dengan function seperti ini :
> >
> > Function CariData(DataYangDicari As String, NamaField As String,
> > NamaRecordset As String) As Boolean
> >
> > Dim RS As Recordset
> >
> > Set RS = CurrentDb.OpenRecordset("Select " + NamaField + " From " +
> > NamaRecordset + " Where " + NamaField + " = '" + DataYangDicari + "' ;",
> > dbOpenSnapshot)
> >
> > If RS.EOF And RS.BOF Then
> > CariData = False 'Tidak ditemukan datanya
> > Else
> > CariData = True 'Ditemukan datanya
> > End If
> >
> > End Function
> >
> > Tetapi waktu di jalankan di text boxnya tersebut semestinya Nilai dari
> > Forms![BOLFCM Query Subform]![TOTAL2] akan pindah ke valuenya text box
tsb
> > jika data yang ada di Forms![BOLHDR]![BLNO] ketemu di Query BOLHDR
Query.
> > Tetapi yang keluar "?Name", dan otomatis semua control yang saya
hubungkan
> > dengan kontrol ini menjadi error juga.
> >
> > Mohon pencerahannya
> > ----- Original Message -----
> > From: Rawuh Ivan Irawan Pujianto <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Wednesday, October 06, 1999 11:46 AM
> > Subject: Re: [pau-mikro] Access programming (Help)
> >
> >
> > > > Saya sudah mencoba keduanya, tetapi valuenya keluar "?Name".
> > > > Apakah ada property di textbox nya yang harus di set.
> > >
> > > Value di mana?
> > >
> > > > Apakah function tsb juga berlaku untuk Query.
> > >
> > > Berlaku.
> > >
> > > Ivan Irawan
> > >
> > >
> > > ---------------------------------------------------------------------
> > > Mailing list archive: http://www2.nusantara.net/pau-mikro
> > > To subscribe, e-mail: [EMAIL PROTECTED]
> > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > > For additional commands, e-mail: [EMAIL PROTECTED]
> > > Current subscriber count: 706
> > >
> > >
> >
>
>
> ---------------------------------------------------------------------
> Mailing list archive: http://www2.nusantara.net/pau-mikro
> To subscribe, e-mail: [EMAIL PROTECTED]
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> Current subscriber count: 713
>
>
* Gunadarma Mailing List -----------------------------------------------
* Archives : http://milis-archives.gunadarma.ac.id
* Langganan : Kirim Email kosong ke [EMAIL PROTECTED]
* Berhenti : Kirim Email kosong ke [EMAIL PROTECTED]
* Administrator: [EMAIL PROTECTED]
