Credit Code Get No Return ?

[john527]

The combobox contral is call cust_credit_reply_1 combo449. ( text )
This field resides in the Customer Form.

The cust_credit_score_1 resides in the Customer Form. ( number )
go to the properties , go to row source , go to SQL View and you get
SELECT [Customer Credit_Good_Bad_Table].cust_credit_gbp_table
FROM [Customer Credit_Good_Bad_Table];

Customer credit_good_bad_table has a single field. ( text )
This field resides in the Customer credit good poor Form

By the way Thank You For Your Help.
Appreciate your patience and time.

 

[RuralGuy]

I'm am still going to strongly recommend you add another field to the customer_credit_good_bad_tables table that is an Integer and contains the numerical value you are using for each category. In the mean time to hard code the values you would put the following code in the AfterUpdate event of the ComboBox.

Private Sub cust_credit_reply_1_combo449_AfterUpdate()

Select Case Me.[cust_credit_reply_1 combo449]
   Case "[Bad Credit]"
       Me.[cust_credit_score_1] = 5
   Case "[PoorCredit]"
       Me.[cust_credit_score_1] = 10
   Case Else
       Me.[cust_credit_score_1] = 15
End Select

End Sub

If you added a CreditScore field to the table then the AfterUpdate code would look like:

Private Sub cust_credit_reply_1_combo449_AfterUpdate()

Me.[cust_credit_score_1] = Me.[cust_credit_reply_1 combo449].Column(1)

End Sub

You can see it simplifies the code and if the numbers ever changed then you just let the user change them in the table and the rest just happens. Good Luck. Post back if you need additional assistance.

 

[john527]

Hi Ruralguy i did what you ask of me. I add a new field in the Customer credit good bad tables ( cust_counter )( Autonumber ).
Went to open Customer Form
Went to cust_credit_score_1
Went to Event
Went to Afterupdate
Private Sub cust_credit_reply_1_combo449_AfterUpdate()

Select Case Me.[cust_credit_reply_1 combo449]
Case "[Bad Credit]"
Me.[cust_credit_score_1] = 5

Case "[Poor Credit ]"
Me.[cust_credit_score_1 ] = 10

Case Else
Me.[cust_credit_score_1 ] = 15

End Select
End Sub

Private Sub cust_credit_score_1_AfterUpdate()

End Sub
And Still No Return It must be somthing that i am doing wrong ???

 

[RuralGuy]

The combobox contral is call cust_credit_reply_1 combo449.

I'm confused. I thought you said the ComboBox's name was cust_credit_reply_1 combo449

Went to cust_credit_score_1

Why are you going to the cust_credit_score_1 control?

 

[john527]

cust_credit_reply_1 combo449 = ( multiple choice - Bad Credit - Good Credit and so on )

cust_credit_score_1 = ( answer 5 - 10 - 15 and so on. )

Hope this helps

sorry if i confused you.

John

 

[RuralGuy]

Went to cust_credit_score_1
Went to Event
Went to Afterupdate

The code I gave you needs to be in the AfterUpdate event of the ComboBox and *not* the cust_credit_score_1 control!

 

[john527]

Still No Return

My mistake, So new at this so and so different from unix.

I but the code in cust_credit_reply_1_combo449
Went to cust_credit_reply_1_combo449
Went to Event
Went to afterupdate
And put in the code
Select Case Me.[cust_credit_reply_1 combo449]
Case "[Bad Credit]"
Me.[cust_credit_score_1] = 5
Case "[poor credit]"
Me.[cust_credit_score_1] = 10
Case Else
Me.[cust_credit_score_1] = 15
End Select

End Sub

Private Sub Combo449_AfterUpdate()

End Sub

Private Sub cust_credit_score_1_AfterUpdate()

End Sub

Still not working / Get no return.

John527

 

[RuralGuy]

John, I suspect we have the wrong name for the ComboBox. Go to the property sheet for the ComboBox and then to the Other tab and post back with the Name value please. I suspect it is Combo449.

 

[john527]

Combo449

Hi Ruralguy, Hope i did what you wanted me to do.

Went to cust_credit_reply_1 ( combo449 )
Went to property
Went to Other

Name Combo449
Allow Autocorrect yes
Tab Stop yes
Tab Index 97
Ime Hold no
Ime Mode no control

Hope that this will help.

Thank s Again John527

 

[RuralGuy]

AaHa...as I suspected. Try putting the following code in the AfterUpdate event of the Combo449 control.

Private Sub Combo449_AfterUpdate()

Select Case Me.Combo449
   Case "[Bad Credit]"
       Me.[cust_credit_score_1] = 5
   Case "[PoorCredit]"
       Me.[cust_credit_score_1] = 10
   Case Else
       Me.[cust_credit_score_1] = 15
End Select

End Sub

 

[john527]

Not Working ????

Ruralguy Hi,

I put the code in the AfterUpdate event of the Combo449 control.

Went to Customer Form
Went to the field called cust_credit_reply_1 ( combo449 )
Went to the properties
Went to Event
Went to the After Update
Private Sub Combo449_AfterUpdate()

Select Case Me.Combo449
Case "[Bad Credit ]"
Me.[cust_credit_score_1] = 5
Case "[Poor Credit ]"
Me.[cust_credit_score_1] = 10
Case "[Good Credit]"
Me.[cust_credit_score_1] = 15
Case Else
Me.[cust_credit_score_1 ] = 25

End Select

End Sub

Sorry But still no return – Not Working.

Thery must be something that we are not seeing. ?????

John527

 

[RuralGuy]

Any chance you can post your db? Remove any sensitive data and zip it up after doing a Compact and Repair.

 

[john527]

No Problem. Used winzip and created a zip file. Let me know what you think or if any further information is needed.

I hop e i zipped everything you needed, please let me know if not.

 

[john527]

here is the full database, sorry only attached the form on last one

 

[RuralGuy]

Your Case compare statements *must* be exact! There are no [brackets] in your table nor are there any trailing spaces.

 

[john527]

Hi Ruralguy,
Wow-O-Wow That was Grate after so many weeks working on this code. ( WORKING FANTASTIC )
And it was such a small detail, Again I thank you for all your time and patience.

I have another problem, on Oct, 11 I post a new thread ( now to calcutate a person’s age )
No one responded. Can you look at this. And let me know what you think.

Thank You & Thank You Again.

Johnn527