Please help me
I need help please,can someone took sometime to see my following codes??Are there anything wrongs with it?Here are the codes..When i click on
the mnuMasterParameterSetupPerusahaan and close it,it display MsgBox "Anda Tidak Berhak!", vbCritical, "Priviledge Error!".Thanks a lot.
Private Sub cmdOK_Click()
If rsHakUser.RecordCount > 0 Then
rsHakUser.MoveFirst
rsHakUser.Index = "user2"
a = lblmnu.Caption
rsHakUser.Seek "=", strUser, a
If Not rsHakUser.NoMatch Then
If a = "mnuMasterParameterSetupPerusahaan" Then
Frmperusahaan.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterParameterSetupCabang" Then
frmCabang.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterParameterSetupJabatan" Then
Me.Hide
frmJabatan.Show vbModal
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterParameterSetupMenu" Then
frmMenu.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterParameterSetupKeyboard" Then
frmKeyboard.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterParameterSetupSRN" Then
frmType.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterParameterSetupSIN" Then
frmType.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterParameterSetupSTSN" Then
frmType.Display 3
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterParameterSetupPO" Then
frmType.Display 4
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterParameterSetupPolicy" Then
frmPolicy.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterSupplier" Then
frmSupplier.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterCustomer" Then
frmCustomer.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterGolongan" Then
frmGolongan.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterBarangOT" Then
frmBarangOT.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterPBMaster" Then
frmPBMaster.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterUnit" Then
frmSatuan.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterBarangSatuanLain" Then
frmSatuanLain.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterPriceTagNormal" Then
frmPriceTag.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterPriceTagPerItem" Then
frmPriceTagPerItem.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterBestBuy" Then
frmBestBuy.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterPromo" Then
frmPromo.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuMasterUser" Then
frmUser.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuInventoryBPBPO" Then
frmSRNPO.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuInventoryBPBNonPO" Then
frmSRN.Display
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuInventoryBKBPO" Then
frmSINPO.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuInventoryBKBNonPO" Then
frmSINOutlet.Show vbModeless
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuInventoryBTB" Then
frmSTSN.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiDrawerKasAwal" Then
'Checking period Table
If rsParam.RecordCount > 0 Then
rsParam.MoveFirst
rsParam.Index = "bulan2"
rsParam.Seek "=", Format(Date, "mm"), Format(Date, "yy")
If Not rsParam.NoMatch Then
Else
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 = ""
Else
If a = "mnuTransaksiDrawerKasAkhir" Then
frmKasAkhir.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiDrawerRecap" Then
frmRptDailyCashRecapitulation.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiPenjualanHarian" Then
'Checking Kas Awal Table
If rsKasAwal.RecordCount > 0 Then
rsKasAwal.MoveFirst
rsKasAwal.Index = "tgl"
rsKasAwal.Seek "=", strKOutlet, Date, strUser
If Not rsKasAwal.NoMatch Then
If rsKasAwal!Status = "C" Then
MsgBox "User ini sudah Tutup Kas.", vbOKOnly, "Check Kas Awal."
Exit Sub
End If
Else
MsgBox "User ini tidak/belum punya Kas Awal.", vbOKOnly, "Check Kas Awal."
Exit Sub
End If
Else
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 = ""
Else
If a = "mnuTransaksiPenjualanRetur" Then
frmPenjualanRetur.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiPembelianBarang" Then
frmPembelian.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiPaketInput" Then
frmPaket2.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiCustomerInput" Then
frmPesanan.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSOLangsungKKSO" Then
frmKKSO.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSOLangsungOpnameEntry" Then
frmOpname.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSOLangsungAdjust" Then
frmAdjustOpname.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSOLangsungEntryBS" Then
frmOpnameBS.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSOLangsungLHSOBS" Then
frmLHSOBS.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSOLangsungAdjustBS" Then
frmAdjustOpnameBS.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSORakKKSO" Then
frmKKSO.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSORakInput" Then
frmOpname.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSORakLSHO" Then
frmLHSO.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSORakAdjust" Then
frmAdjustOpname.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSORakEntryBS" Then
frmOpnameBS.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSORakLHSOBS" Then
frmLHSOBS.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuTransaksiSORakAdjustBS" Then
frmAdjustOpnameBS.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLaporanStockProduct" Then
frmRptProduct.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLapPosisiStok" Then
frmLapStok.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLapPenerimaanBarang" Then
frmLapStok.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLapPengeluaranBarang" Then
frmLapStok.Display 3
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLapMargin" Then
frmLapMargin.Display
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLapJualPerStruk" Then
frmLapJual.Display 1
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLapJualPerJam" Then
frmLapJual.Display 2
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLapJualPerGol" Then
frmLapJual.Display 3
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLapJualPerItem" Then
frmLapJual.Display 4
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLaporanPenjualanBulanan" Then
frmReportSales.Show
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuLaporanPenjualanDailyCashier" Then
frmRptSalesDaily.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuUtilityDailyClosing" Then
frmEndofDay.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuUtilityMonthlyClosing" Then
frmEndofMonth.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuimportdata" Then
frmImport.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuHOMinMaxOutlet" Then
frmHOMinMax.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
Else
If a = "mnuUtilityPreferences" Then
frmPreferences.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
MsgBox "Anda Tidak Berhak!", vbCritical, "Priviledge Error!"
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""
End Sub
|