Terima kasih sekali lagi... sangat membantu sekali bagi saya yang awam mengenai VB.
--- In [email protected], "wedhi2002" <[EMAIL PROTECTED]> wrote: > > taruh ini di module. > > Function fPeriode() As String > Dim dMonth As Byte > > dMonth = Month(Date) > Select Case dMonth > Case 1 To 3 > fPeriode = "Periode I" > Case 4 To 6 > fPeriode = "Periode II" > Case 7 To 9 > fPeriode = "Periode III" > Case 10 To 12 > fPeriode = "Periode IV" > End Select > > End Function > > > pada textbox - Control Sourcenya tulis: > =fPeriode() > > > --- In [email protected], "mau tau aja" <azismus2000@> > wrote: > > > > Salam untuk semua anggota millister > > > > mohon bantuan dari rekan-rekan yang ada disini. Pada form report saya > > punya text box yang ingin saya otomatisasi supaya tiap tiga bulan > > menampilkan kalimat yang berbeda, misal: > > pada bulan januari-maret: yang ingin ditampilkan pada text box > > "Periode I(Januari-Maret)", Bulan April-Juni:yang ingin ditampilkan > > "Periode II(April-Juni), begitu seterusnya. > > Atas bantuannya saya ucapkan terima kasih. > > > > Azis > > >
