Changing combo box to text box

[smiler2505]

 If Me.NewRecord = True Then
 
  Me.cmbCNum.Locked = False
  Me.cmbSNum.Locked = False
  Me.cmbCNum.Enabled = True
  Me.cmbSNum.Enabled = True
 
  If Me.cmbCNum.ControlType = acTextBox Then
   Me.cmbCNum.SetFocus
   DoCmd.RunCommand acCmdChangeToComboBox
  End If
  If Me.cmbSNum.ControlType = acTextBox Then
   Me.cmbSNum.SetFocus
   DoCmd.RunCommand acCmdChangeToComboBox
  End If
 
 Else
 
  If Me.cmbCNum.ControlType = acComboBox Then
   docmd.openform("frmCSN", acDesign)
   Me.cmbCNum.ControlType = acTextBox
  End If
  If Me.cmbSNum.ControlType = acComboBox Then
   Me.cmbSNum.SetFocus
   DoCmd.RunCommand acCmdChangeToTextBox
  End If
 
  Me.cmbCNum.Locked = True
  Me.cmbSNum.Locked = True
  Me.cmbCNum.Enabled = False
  Me.cmbSNum.Enabled = False
 
 End If
 

What I want to do is change the combo box to a text box, and vice versa, depending if the form is on a new record or not. The rest of the code works, but the part for changing the type of box doesn't. It doesn't work if I use, for example,

  If Me.cmbSNum.ControlType = acComboBox Then
   Me.cmbSNum.ControlType = acTextBox
  End If
 

either.

Help?
Allow Design Changes is set to all views.

[ADezii]

 If Me.NewRecord = True Then
 
  Me.cmbCNum.Locked = False
  Me.cmbSNum.Locked = False
  Me.cmbCNum.Enabled = True
  Me.cmbSNum.Enabled = True
 
  If Me.cmbCNum.ControlType = acTextBox Then
   Me.cmbCNum.SetFocus
   DoCmd.RunCommand acCmdChangeToComboBox
  End If
  If Me.cmbSNum.ControlType = acTextBox Then
   Me.cmbSNum.SetFocus
   DoCmd.RunCommand acCmdChangeToComboBox
  End If
 
 Else
 
  If Me.cmbCNum.ControlType = acComboBox Then
   docmd.openform("frmCSN", acDesign)
   Me.cmbCNum.ControlType = acTextBox
  End If
  If Me.cmbSNum.ControlType = acComboBox Then
   Me.cmbSNum.SetFocus
   DoCmd.RunCommand acCmdChangeToTextBox
  End If
 
  Me.cmbCNum.Locked = True
  Me.cmbSNum.Locked = True
  Me.cmbCNum.Enabled = False
  Me.cmbSNum.Enabled = False
 
 End If
 

What I want to do is change the combo box to a text box, and vice versa, depending if the form is on a new record or not. The rest of the code works, but the part for changing the type of box doesn't. It doesn't work if I use, for example,

  If Me.cmbSNum.ControlType = acComboBox Then
   Me.cmbSNum.ControlType = acTextBox
  End If
 

either.

Help?
Allow Design Changes is set to all views.

What I want to do is change the combo box to a text box, and vice versa, depending if the form is on a new record or not. The rest of the code works, but the part for changing the type of box doesn't.

The only time you can programmatically change the type of any Control is when you are in Design Mode for the Parent Container.

[smiler2505]

The only time you can programmatically change the type of any Control is when you are in Design Mode for the Parent Container.

can I do that in code?

edit: by the way that went straight over my head!

[smiler2505]

Noticed another point;
The first If... in the Else... statement won't work. If that worked would I be able to change it to a text box?

[ADezii]

can I do that in code?

edit: by the way that went straight over my head!

]can I do that in code?

I doubt it very much since you would need to be able to determine if you are on a New Record or not. This obviously is not possible if the Form is in Design Mode. I'm sure other Moderators/Expert will look in and give their opinion also.

[smiler2505]

Sub Form_Current()
 
 Dim rcdCSN As Long
 
 If Me.NewRecord = True Then
  If Me.cmbCNum.ControlType = acComboBox Then
   rcdCSN = Form.CurrentRecord
   DoCmd.Close acForm, "frmCSN", acSaveYes
   DoCmd.OpenForm "frmCSN", acDesign
   Forms!frmCSN!cmbCNum.ControlType = acTextBox
   DoCmd.Close acForm, frmCSN, acSavePrompt
   DoCmd.OpenForm "frmCSN"
   Me.CurrentRecord = rcdCSN
  End If
  End If
 
End Sub
 

??
But the variable rcdCSN won't set.

[ADezii]

Sub Form_Current()
 
 Dim rcdCSN As Long
 
 If Me.NewRecord = True Then
  If Me.cmbCNum.ControlType = acComboBox Then
   rcdCSN = Form.CurrentRecord
   DoCmd.Close acForm, "frmCSN", acSaveYes
   DoCmd.OpenForm "frmCSN", acDesign
   Forms!frmCSN!cmbCNum.ControlType = acTextBox
   DoCmd.Close acForm, frmCSN, acSavePrompt
   DoCmd.OpenForm "frmCSN"
   Me.CurrentRecord = rcdCSN
  End If
  End If
 
End Sub
 

??
But the variable rcdCSN won't set.

Forget about rcdCSN, it goes out of scope as soon as the 1st Instance of frmCSN is closed since it is Local to the Form's Current() Event. The CurrentRecord Event is Read Only, you can only Read its value, you cannot assign the Current Record of a Form to a value.

[smiler2505]

pah I gave up, I'll settle with the little arrow being there...

[ADezii]

pah I gave up, I'll settle with the little arrow being there...

Never give up - just try a different approach.

[smiler2505]

I placed a text box over the combo box in the end, and just acitvate them depending on which I want

[ADezii]

I placed a text box over the combo box in the end, and just acitvate them depending on which I want

Just what I was talking about - a different approach!