Re: Please help me
I've edited the codes..I got errors with it..I attach the picture of the problems and here are the codes...Thanks..
Private Sub cmdOK_Click()
If rsHakUser.RecordCount > 0
rsHakUser.MoveFirst
rsHakUser.Index = "user2"
a = lblmnu.Caption
rsHakUser.Seek "=", strUser, a
If Not rsHakUser.NoMatch
Select Case a
Case "mnuMasterParameterSetupPerusahaan"
Frmperusahaan.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupCabang"
frmCabang.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupCabang"
frmCabang.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupJabatan"
Me.Hide
frmJabatan.Show vbModal
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupMenu"
frmMenu.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupKeyboard"
frmKeyboard.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupSRN"
frmType.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupSIN"
frmType.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupSTSN"
frmType.Display 3
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupPO"
frmType.Display 4
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterParameterSetupPolicy"
frmPolicy.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterSupplier"
frmSupplier.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterCustomer"
frmCustomer.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterGolongan"
frmGolongan.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterBarangOT"
frmBarangOT.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterPBMaster"
frmPBMaster.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterUnit"
frmSatuan.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterBarangSatuanLain"
frmSatuanLain.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterPriceTagNormal"
frmPriceTag.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterPriceTagPerItem"
frmPriceTagPerItem.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterBestBuy"
frmBestBuy.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterPromo"
frmPromo.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuMasterUser"
frmUser.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuInventoryBPBPO"
frmSRNPO.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuInventoryBPBNonPO"
frmSRN.Display
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuInventoryBKBPO"
frmSINPO.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuInventoryBKBNonPO"
frmSINOutlet.Show vbModeless
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuInventoryBTB"
frmSTSN.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiDrawerKasAwal"
'Checking period Table
If rsParam.RecordCount > 0
rsParam.MoveFirst
rsParam.Index = "bulan2"
rsParam.Seek "=", Format(Date, "mm"), Format(Date, "yy")
If Not rsParam.NoMatch
MsgBox "Please, process end of month closing!", vbOKOnly, "Checking End of Month Closing."
Exit Sub
End If
End If
frmKasAwal.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiDrawerKasAkhir"
frmKasAkhir.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiDrawerRecap"
frmRptDailyCashRecapitulation.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiPenjualanHarian"
'Checking Kas Awal Table
If rsKasAwal.RecordCount > 0
rsKasAwal.MoveFirst
rsKasAwal.Index = "tgl"
rsKasAwal.Seek "=", strKOutlet, Date, strUser
If Not rsKasAwal.NoMatch
If rsKasAwal!Status = "C"
MsgBox "User ini sudah Tutup Kas.", vbOKOnly, "Check Kas Awal."
Exit Sub
End If
MsgBox "User ini tidak/belum punya Kas Awal.", vbOKOnly, "Check Kas Awal."
Exit Sub
End If
MsgBox "User ini tidak/belum punya Kas Awal.", vbOKOnly, "Check Kas Awal."
Exit Sub
End If
frmPenjualan.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiPenjualanRetur"
frmPenjualanRetur.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiPembelianBarang"
frmPembelian.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiPaketInput"
frmPaket2.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiCustomerInput"
frmPesanan.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSOLangsungKKSO"
frmKKSO.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSOLangsungOpnameEntry"
frmOpname.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSOLangsungAdjust"
frmAdjustOpname.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSOLangsungEntryBS"
frmOpnameBS.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSOLangsungLHSOBS"
frmLHSOBS.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSOLangsungAdjustBS"
frmAdjustOpnameBS.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSORakKKSO"
frmKKSO.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSORakInput"
frmOpname.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSORakLSHO"
frmLHSO.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSORakAdjust"
frmAdjustOpname.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSORakEntryBS"
frmOpnameBS.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSORakLHSOBS"
frmLHSOBS.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuTransaksiSORakAdjustBS"
frmAdjustOpnameBS.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLaporanStockProduct"
frmRptProduct.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLapPosisiStok"
frmLapStok.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLapPenerimaanBarang"
frmLapStok.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLapPengeluaranBarang"
frmLapStok.Display 3
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLapMargin"
frmLapMargin.Display
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLapJualPerStruk"
frmLapJual.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLapJualPerJam"
frmLapJual.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLapJualPerGol"
frmLapJual.Display 3
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLapJualPerItem"
frmLapJual.Display 4
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLaporanPenjualanBulanan"
frmReportSales.Show
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuLaporanPenjualanDailyCashier"
frmRptSalesDaily.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuUtilityDailyClosing"
frmEndofDay.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuUtilityMonthlyClosing"
frmEndofMonth.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuimportdata"
frmImport.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuHOMinMaxOutlet"
frmHOMinMax.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Case "mnuUtilityPreferences"
frmPreferences.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
End Select
End If
End If
Else
MsgBox "Anda Tidak Berhak!", vbCritical, "Priviledge Error!"
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
End Sub
|