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" <[EMAIL PROTECTED]> 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 >
