Data Toko ala Sang Bocah

Form data pembelian Option Compare DatabasePrivate Sub Form_Load()    Me.TxtTanggal1.Value = Date    Me.TxtTanggal2.Value = Date    Me.RecordSource = "SELECT * FROM t_beli WHERE tanggal>=#" & Me.TxtTanggal1.Value & "# AND tanggal<=#" & Me.TxtTanggal2.Value & "#"End SubPrivate Sub TxtFilter_AfterUpdate()    If Me.TxtFilter.Value <> "" Then       ...

Read More

Luas Persegi Panjang ala Sang Bocah

Option Compare DatabasePrivate Sub CmdClose_Click()DoCmd.SaveDoCmd.CloseEnd SubPrivate Sub CmdHapus_Click()TxtPanjang = ""TxtLebar = ""TxtLuas = ""TxtPanjang.SetFocusEnd SubPrivate Sub CmdHitung_Click()Dim P, L, S As IntegerP = TxtPanjangL = TxtLebarTxtLuas = STxtPanjang = PTxtLebar = LTxtLuas = P * LEnd ...

Read More

Luas Segitiga ala Sang Bocah

Option Compare Database Private Sub CboAlas_Change()   LblAlas.Caption = CoboAlas End Sub Private Sub CboTinggi_Change()   LblTinggi.Caption = CboTinggi End Sub Private Sub CmdHapus_Click()   CboAlas = ""   CboTinggi = ""   TxtHasil = ""   LblAlas.Caption = "Isi Alas"   LblTinggi.Caption = "Isi Tinggi"   CboAlas.SetFocus End Sub Private Sub CmdHitung_Click()   If CboAlas = "" Or CboTinggi = "" Then    ...

Read More