Closed Thread
Results 1 to 5 of 5

Thread: Please help me

  1. 05-12-2008, 02:12 AM #1
    yonghan
    yonghan is offline Learning Programmer
    Join Date
    May 2008
    Posts
    99
    Rep Power
    0

    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
  2. CODECALL Circuit advertisement
    Join Date
    Always
    Posts
    Many

     
  3. 05-12-2008, 12:06 PM #2
    Xav's Avatar
    Xav
    Xav is offline Code Slinger
    Send a message via MSN to Xav
    Join Date
    Mar 2008
    Location
    The North Pole
    Posts
    13,174
    Blog Entries
    13
    Rep Power
    114

    Re: Please help me

    It might work, but it's TERRIBLE code! Look at all those Else Ifs!

    This is a better way:
    Code:
    Select Case a

Case "mnuMasterParameterSetupCabang"
frmCabang.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtPassword.Text = ""

End Case

Case "Something else"

'Do this is a = 'Something else'

End Case

End Select

    Quote Originally Posted by Jordan View Post
    Good members, like yourself, stick around and post for ages to come!
    Mr. Xav | Blog | Forums
  4. 05-12-2008, 07:17 PM #3
    yonghan
    yonghan is offline Learning Programmer
    Join Date
    May 2008
    Posts
    99
    Rep Power
    0

    Re: Please help me

    Ok..how about when the person that doesn't have the rights to open the program,where should i put the warning message..Thanks a lot..
  5. 05-12-2008, 11:41 PM #4
    yonghan
    yonghan is offline Learning Programmer
    Join Date
    May 2008
    Posts
    99
    Rep Power
    0

    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
    Attached Thumbnails Attached Thumbnails Please help me-trouble_1.jpg   Please help me-trouble_2.jpg   Please help me-trouble_3.jpg  
  6. 05-13-2008, 12:08 PM #5
    Xav's Avatar
    Xav
    Xav is offline Code Slinger
    Send a message via MSN to Xav
    Join Date
    Mar 2008
    Location
    The North Pole
    Posts
    13,174
    Blog Entries
    13
    Rep Power
    114

    Re: Please help me

    You've missed out the word 'Then', like this:
    Code:
    If something.somethingelse > 0 Then
    Add the word 'Then' to the end of each of the troublesome lines and it will work.

    Quote Originally Posted by Jordan View Post
    Good members, like yourself, stick around and post for ages to come!
    Mr. Xav | Blog | Forums
Closed Thread
« ASP.NET help with writing array to a file | MasterMind »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules