Changing ComboBox Drop down (1 Viewer)

[Cliff67]

Hello All

I've got a weird issue that I've been banging my head against for the last few hours and it's driving me nuts.

So I have 2 forms (Tickets and RMA forms) that call a single form Frm_AmendDate. this form uses a flag set by the other 2 forms to determine if you are changing the Ticket or the RMA.

the form is called using DoCmd.OpenForm "Frm_AmendDate", acNormal, "", "", , acNormal

there are other bits that popular some text boxes for the amend process.

The issue I'm having now is when called from the Tickets form the combo box looks like this

when called from the RMA screen using the same call method you get this

When I open the form is programmatically change labels and change the Row Source of the Combo box.
No where do I set the Font colour except in the design. I've even deleted the combox box and copied the Status box above.

here is the Form_Load Code:

If TSFlag Then
    Me.Caption = "TSR Status Date Amendment"
    Me.CmbStatus.RowSource = "SELECT Tbl_Status.StatusID, Tbl_Status.StatusDesc FROM Tbl_Status;"
    Me.CmbStatus.Requery
    Me.Label1.Caption = "TSR"
    Me.LblAmend.Caption = "Amend TSR"
    Me.LblLink.Caption = "Amend RMA Link"
    Me.CmdAmendLink.Caption = "Amend RMA Link"
    Sql = "SELECT Tbl_Repair_Main.ID, Tbl_Repair_Main.RMANo, Tbl_Repair_Main.BillComp " & _
    "From Tbl_Repair_Main ORDER BY Tbl_Repair_Main.[RMANo] DESC;"
    Me.CmbLinkSelect.RowSource = Sql
    Me.CmbLinkSelect.Requery
    Me.AmendedDate.SetFocus

ElseIf RMAFlag Then
    Me.Caption = "RMA Status Date Amendment"
    Me.CmbStatus.RowSource = "SELECT Tbl_RMA_Status.StatusID, Tbl_RMA_Status.StatusDesc FROM Tbl_RMA_Status; "
    Me.CmbStatus.Requery
    Me.Label1.Caption = "RMA"
    Me.LblAmend.Caption = "Amend RMA"
    Me.LblLink.Caption = "Amend TSR Link"
    Me.CmdAmendLink.Caption = "Amend TSR Link"
    Sql = "SELECT Tbl_Tickets.ID, Tbl_Tickets.Ticket_Number, Tbl_Tickets.Company " & _
    "From Tbl_Tickets ORDER BY Tbl_Tickets.[Ticket_Number] DESC;"
    Me.CmbLinkSelect.RowSource = Sql
    Me.CmbLinkSelect.Requery
    Me.AmendedDate.SetFocus
    
End If

Any insight would be greatly appreciated

Cliff

 

[Gasman]

Version and build number of your Access and any updates recently?

 

[Cliff67]

Hi Gasman

Version and build number of your Access and any updates recently?

Office Professional 2013 and is says version: 15.0.5603.1000

I've never come across this before

 

[Gasman]

Try a repair?
Upload enough to see if it happens to others?

 

[Cliff67]

Ok let me quickly make a small DB for upload, may take me a bit

 

[Gasman]

Just copy what is needed to a new db.
Create a new DB and import what is needed.
Obscure anything that might be sensitive.

I would try a repair first though.

 

[Cliff67]

Just copy what is needed to a new db.
Create a new DB and import what is needed.
Obscure anything that might be sensitive.

I would try a repair first though.

I tried a compact and repair still the same issue.

I'm doing that now but there are load of unknown variables flagging up as I try to open up the forms I require.

And now access has hung on me...Give me a bit to sort out the mess and I'll be back to you

 

[Gasman]

I would try a Repair from within the Control Panel/Apps.
You get the choice of Uninstall or Repair. Go for the Repair.

Another user here had a problem, that an Uninstall/Install fixed.

 

[DHookom]

Admins should move this thread to “Forms” since it has nothing to do with reports.

 

[Cliff67]

I would try a Repair from within the Control Panel/Apps.
You get the choice of Uninstall or Repair. Go for the Repair.

Another user here had a problem, that an Uninstall/Install fixed.

I'm trying the repair now

 

[Cliff67]

Admins should move this thread to “Forms” since it has nothing to do with reports.

@DHookom Yes you are correct, I selected the wrong subject area

 

[Cliff67]

I'm trying the repair now

I would try a Repair from within the Control Panel/Apps.
You get the choice of Uninstall or Repair. Go for the Repair.

Another user here had a problem, that an Uninstall/Install fixed.

Tried the repair - still the same. I've attached a cut down version, Open the Frm_tickets form (ignore the messages) and select from the top "Actions" then "Amend Dates. The Amend TSR is white text
When you open the Frm_Repair_Main and click on the Amend button the form opens again but this time the drop down has black text

 

[Gasman]

Yes, I can produce that as well.

I even uncommented

and it still comes up black.

Trying to just change it in form properties has no effect either.

 

[Gasman]

Haven't a clue. Sorry.
I even deleted the combo and recreated it, still get black.

 

[Cliff67]

Yes, I can produce that as well.
View attachment 118195

I even uncommented
View attachment 118196
and it still comes up black.

Trying to just change it in form properties has no effect either.

Yes it's a complete mystery to me. I'm thinking of coping the form with another name and see what happenss

 

[Cliff67]

or start again

 

[Gasman]

I copied, still the same.
Try creating a new form and just add that combo. I can only think of form corruption TBH.

 

[arnelgp]

choose a "Lighter" back color.

 

[MajP]

I simply copied the working combo got

 

[Gasman]

or start again

On the correctly working call, I changed the font colour to vbRed and that took effect, but not on the other call?