Jump to content
Guest miguelfreitas

[RESOLVIDO] Declaração If...Then...Else numa ListBox

Recommended Posts

Guest miguelfreitas

Boas,

tenho uma base de dados de gestão de stocks, nessa bd tem um formulário que contém uma ListBox com todas as referências existentes na bd e o stock de cada uma, e ao fazer duplo clique na referencia que quero vender abre o formulário de venda, até ai tudo bem, mas eu queria fazer uma coisa que não estou a conseguir.

Ao escolher a referencia, se o stock existente dessa referencia fosse 0 aparecia uma MsgBox  a dizer "stock igual a 0, não permite mais vendas" algo do género, já tentei mas não consigo, porque aparece a MsgBox em todas as referencias, mesmo que estas tenham mais de 0 produtos em stock.

Pronto, vou deixar aqui o código original dessa ListBox para que me possam ajudar :

(Penso que seja adequado dizer que encontrei este código na Internet)

Private Sub lstSearchResults_DblClick(Cancel As Integer)
On Error GoTo Err_lstSearchResults_DblClick
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "venda2"
stLinkCriteria = "[ref]=" & "'" & Me![lstSearchResults].Value & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_lstSearchResults_DblClick:
Exit Sub
Err_lstSearchResults_DblClick:
MsgBox Err.Number & " " & Err.Description
Resume Exit_lstSearchResults_DblClick

End If
End Sub

e aqui o que estou a tentar fazer

Private Sub lstSearchResults_DblClick(Cancel As Integer)

If (stock = 0) Then
MsgBox "stock igual a 0"
Else


On Error GoTo Err_lstSearchResults_DblClick
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "venda2"
stLinkCriteria = "[ref]=" & "'" & Me![lstSearchResults].Value & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_lstSearchResults_DblClick:
Exit Sub
Err_lstSearchResults_DblClick:
MsgBox Err.Number & " " & Err.Description
Resume Exit_lstSearchResults_DblClick

End If
End Sub

Desde já agradeço,

Miguel Freitas  :)

Share this post


Link to post
Share on other sites
Guest miguelfreitas

Resolução : É esse o código e criar uma caixa de texto.

Private Sub NomeDaListBox_DblClick(Cancel As Integer)
On Error GoTo Err_NomeDaListBox_DblClick
Dim stDocName As String
Dim stLinkCriteria As String

Me.NomeDaCaixaDeTexto.Value = Me.NomeDaListBox.Column(1)
Me.NomeDaCaixaDeTexto.Requery

If Me.NomeDaCaixaDeTexto.Value = 0 Then
MsgBox "stock igual a 0"
Exit Sub 'aqui pára toda a instrução
Else 'se for maior que zero, passa para o abrir do segundo form

stDocName = "venda2"
stLinkCriteria = "[NomeDaChavePrimária]=" & "'" & Me![NomeDaListBox].Value & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_NomeDaListBox_DblClick:
Exit Sub
Err_NomeDaListBox_DblClick:
MsgBox Err.Number & " " & Err.Description
Resume Exit_NomeDaListBox_DblClick
End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.