Lost Password?

Go Back   CodeCall Programming Forum > Software Development > Visual Basic Programming
Reload this Page Please help me
Register FAQ Members List Calendar Search Today's Posts Mark Forums Read

Visual Basic Programming Discussion forum for Visual Basic, an event driven programming language and associated development environment from Microsoft for its COM programming model.

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old 05-12-2008, 04:12 AM
yonghan yonghan is offline
Newbie
  
Join Date: May 2008
Posts: 15
Rep Power: 1
yonghan is on a distinguished road
Default 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
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Reply With Quote

Sponsored Links
  #2 (permalink)  
Old 05-12-2008, 02:06 PM
Xav's Avatar   
Xav Xav is offline
Guru
  
Join Date: Mar 2008
Location: London, England
Posts: 3,069
Last Blog:
Reading Jet Databases ...
Rep Power: 27
Xav is a name known to allXav is a name known to allXav is a name known to allXav is a name known to allXav is a name known to allXav is a name known to all
Send a message via MSN to Xav
Default 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
__________________
Xav, the power of youth
Worship the Creator... not his creations
Web Site | Beta Site
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Reply With Quote
  #3 (permalink)  
Old 05-12-2008, 09:17 PM
yonghan yonghan is offline
Newbie
  
Join Date: May 2008
Posts: 15
Rep Power: 1
yonghan is on a distinguished road
Default 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..
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Reply With Quote
  #4 (permalink)  
Old 05-13-2008, 01:41 AM
yonghan yonghan is offline
Newbie
  
Join Date: May 2008
Posts: 15
Rep Power: 1
yonghan is on a distinguished road
Default 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
To view attachments your post count must be 1 or greater. Your post count is 0 momentarily.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Reply With Quote
  #5 (permalink)  
Old 05-13-2008, 02:08 PM
Xav's Avatar   
Xav Xav is offline
Guru
  
Join Date: Mar 2008
Location: London, England
Posts: 3,069
Last Blog:
Reading Jet Databases ...
Rep Power: 27
Xav is a name known to allXav is a name known to allXav is a name known to allXav is a name known to allXav is a name known to allXav is a name known to all
Send a message via MSN to Xav
Default 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.
__________________
Xav, the power of youth
Worship the Creator... not his creations
Web Site | Beta Site
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Reply With Quote

Sponsored Links
Reply

« Previous Thread | Next Thread »


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


All times are GMT -5. The time now is 01:27 AM.

Contact Us - Programming Forum - Archive - Top

CodeCall

Contest Stats

dargueta ........ 93.00000
John ........ 87.50000
Xav ........ 70.00000
MeTh0Dz ........ 20.00000
gaylo565 ........ 18.00000
Johnnyboy ........ 3.00000

Contest Rules

Sponsors

Linux Forums
Electronic Music

Ads