Advertisement

05.26.2008 at 08:23AM PDT, ID: 23432802
[x]
Attachment Details

MS Access 2007 "Select Case" method

Asked by SirTKC in Access Forms, Access Architecture/Design, Access Coding/Macros

Tags: MS Access 2007 VB

HI Experts !

I don't know why, but I am trying to use a very simple method here called "select case" and for a reason I ignore, it simply doesnt want to return any value.
I am changing the value with a list box and based on the selection, I want the execute a calculation and insert the result in a field on the same form.

In order to facilitate the viewing, here is the codeStart Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

Private Sub Combo19_Change()
On Error GoTo PoidsErr
 
Dim BoxStyle As String
Dim x, y, z, a, b As Integer
 
x = Me.D_Long
y = Me.D_Larg
z = Me.D_Haut
 
BoxStyle = Me.M_Name
 
Select Case BoxStyle
 
Case "régulière"
a = (x / 2) * z
b = (z / 2) * x
 
Me.EmbPoids = (((x * y * 2) + (z * y * 2) + (a * 4) + (b * 4)) / 144) * 10
 
Case "Semi-régulière"
a = (x / 2) * z
b = (z / 2) * x
 
Me.EmbPoids = (((x * y * 2) + (z * y * 2) + (a * 2) + (b * 2)) / 144) * 10
 
Case "Filler"
 
Me.EmbPoids = (((x * y * 2) + (z * y * 2)) / 144) * 10
 
PoidsErr:
    MsgBox "Error " & Err.Number & " - " & Err.Description
    Resume PoidsErr
 
End Select
Me.Recalc
End Sub
[+][-]05.26.2008 at 08:25AM PDT, ID: 21646827

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]05.26.2008 at 08:32AM PDT, ID: 21646852

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]05.26.2008 at 08:35AM PDT, ID: 21646862

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]05.26.2008 at 08:37AM PDT, ID: 21646869

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]05.26.2008 at 09:04AM PDT, ID: 21646985

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]05.26.2008 at 09:17AM PDT, ID: 21647040

View this solution now by starting your 7-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: Access Forms, Access Architecture/Design, Access Coding/Macros
Tags: MS Access 2007 VB
Sign Up Now!
Solution Provided By: capricorn1
Participating Experts: 3
Solution Grade: A
 
 
[+][-]05.26.2008 at 09:20AM PDT, ID: 21647053

Assisted solutions are selected by the member who asked the question as a comment that contributed to their question's solution.

Start your 7-day free trial to view this Assisted Solution or ask the Experts your question.

 
[+][-]05.26.2008 at 09:23AM PDT, ID: 21647063

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]05.26.2008 at 09:27AM PDT, ID: 21647080

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]05.26.2008 at 01:25PM PDT, ID: 21647942

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]05.26.2008 at 01:25PM PDT, ID: 21647945

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]05.26.2008 at 09:46PM PDT, ID: 21649397

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
 
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628