Tengo un datacombo ligado a una tabla de access llamada Empresa
pero no me deja seleccionar ningun nombre del datacombo mi codigo es el sig
Private Sub DataCombo9_Click(Area As Integer)
If DataCombo9.Text = "GIGANTE" Then
Text4.Text = "GIGANTE, S.A."
Text2.Text = "GIGANTE, S.A."
Text5.Text = "AV.VALLEJO 1361-E"
Text3.Text = "AV.VALLEJO 1361-E"
Text7.Text = "VALLEJO"
Text8.Text = "GUSTAVO A. MADERO"
Text10.Text = "0"
Text11.Text = "0"
Text12.Text = "5"
Text9.Text = "D.F."
Text13.Text = "0"
Text14.Text = "9"
Text15.Text = "GIGANTE,S.A."
Text16.Text = "CONOCIDO"
Text6.Text = ""
Text17.Text = ""
Text18.Text = ""
Text6.Text = InputBox("NUMERO DE ESTABLECIMIENTO TIF")
Text17.Text = InputBox("NUMERO ESTABLECIMIENTO TIF EN DESTINO")
Text18.Text = InputBox("POBLACION DE LA EMPRESA EN DESTINO")
ElseIf DataCombo9.Text = " SANBORNS" Then
Text4.Text = "SANBORNS, S.A."
Text2.Text = "SANBORNS, S.A."
Text5.Text = "VIADUCTO M.ALEMAN No.705"
Text3.Text = "VIADUCTO M.ALEMAN No.705"
Text7.Text = "G.MEXICO"
Text8.Text = "IZTACALCO"
Text10.Text = "0"
Text11.Text = "0"
Text12.Text = "6"
Text9.Text = "D.F."
Text13.Text = "0"
Text14.Text = "9"
Text15.Text = "SANBORNS,S.A."
Text16.Text = "CONOCIDO"
Text6.Text = ""
Text17.Text = ""
Text18.Text = ""
Text6.Text = InputBox("NUMERO DE ESTABLECIMIENTO TIF")
Text17.Text = InputBox("NUMERO ESTABLECIMIENTO TIF EN DESTINO")
Text18.Text = InputBox("POBLACION DE LA EMPRESA EN DESTINO")
ElseIf DataCombo9.Text = " ALIDESA" Then
Text4.Text = "ALIMENTOS DESHIDRATADOS, S.A."
Text2.Text = "ALIMENTOS DESHIDRATADOS, S.A."
Text5.Text = "H.GALEANA No.5"
Text3.Text = "H.GALEANA No.5"
Text7.Text = "GPE.DEL MORAL"
Text8.Text = "IZTAPALAPA"
Text10.Text = "0"
Text11.Text = "0"
Text12.Text = "7"
Text9.Text = "D.F."
Text13.Text = "0"
Text14.Text = "9"
Text6.Text = InputBox("NUMERO DE ESTABLECIMIENTO TIF")
Text15.Text = InputBox("NOMBRE DE LA EMPRESA EN DESTINO")
Text16.Text = InputBox("DOMICILIO DE LA EMPRESA EN DESTINO")
Text17.Text = InputBox("NUMERO ESTABLECIMIENTO TIF EN DESTINO")
Text18.Text = InputBox("POBLACION DE LA EMPRESA EN DESTINO")
ElseIf DataCombo9.Text = "VARIOS" Then
Text4.Text = InputBox("NOMBRE DE LA EMPRESA")
Text2.Text = Text4.Text
Text5.Text = InputBox("DOMICILIO DE LA EMPRESA")
Text3.Text = Text5.Text
Text7.Text = InputBox("POBLACION DE LA EMPRESA")
Text8.Text = InputBox("MUNICIPIO DE LA EMPRESA")
Text10.Text = InputBox("CLAVE DEL MUNICIPIO")
Text11.Text = InputBox("CLAVE DEL MUNICIPIO")
Text12.Text = InputBox("CLAVE DEL MUNICIPIO")
Text9.Text = InputBox("ESTADO")
Text13.Text = InputBox("CLAVE DEL ESTADO")
Text14.Text = InputBox("CLAVE DEL ESTADO")
Text6.Text = InputBox("NUMERO DE ESTABLECIMIENTO TIF")
Text15.Text = InputBox("NOMBRE DE LA EMPRESA EN DESTINO")
Text16.Text = InputBox("DOMICILIO DE LA EMPRESA EN DESTINO")
Text17.Text = InputBox("NUMERO ESTABLECIMIENTO TIF EN DESTINO")
End If
End Sub
Al momento de hacer click en el datacombo inmediatamente selecciona GIGANTE y sale el input box.
Alguna idea?
Gracias por su apoyo
