Programación General > Visual Basic 6.0 e inferiores

 Re: Problema con este Codigo

(1/1)

mexican:
Tengo este codigo repetido 2 veces en el formulario lo unico que cambia de uno al otro es el nombre del Combo y la Base de datos claro tambien cambia la tabla y el campo de la base de datos
Al ejecutar el codigo me marca el error
'funcion o nombre ambiguo',  
me supongo porque se repite el Private Sub Form Load 2 veces, entonces como agrego estos dos codigos sin que haya error

-------------------------------------------------------------------------------
Private Sub cboName_Click() ' Este el nombre del Combo
' Load the selected record.
datPeople.RecordSource = _
"SELECT * FROM People WHERE Name='" & _ '
cboName.Text & "'"
datPeople.Refresh
End Sub
--------------------------------------------------------------------------------
Private Sub Form_Load()
Dim dbname As String
Dim db As Database  
Dim rs As Recordset

' Open the database.
dbname = App.Path
If Right$(dbname, 1) <> "" Then dbname = dbname & ""
dbname = dbname & "data.mdb"

Set db = OpenDatabase(dbname)
Set rs = db.OpenRecordset( _
"SELECT Name FROM People ORDER BY Name", _
dbOpenSnapshot)

' Load the ComboBox.
rs.MoveFirst
Do While Not rs.EOF
cboName.AddItem rs!Name
rs.MoveNext
Loop

rs.Close
db.Close

' Connect the Data control to the database.
datPeople.DatabaseName = dbname

' Select the first choice.
cboName.ListIndex = 0
End Sub

ccortes:
Crea los procesos de cada combo por separado y luego has la llamada desde el form_load

mexican:
En si no tengo problema con el codigo del combo, y claro ya estan separado los dos combos, el problema es el codigo del Private Sub Form_Load que esta repetido la diferencia es que las bases de datos se llaman diferentes

Brroz:
Hola mexican.

Hombre... cae de cajón.

Lo que debes hacer es tener todo el código que quieres que se ejecute al cargar el formulario en un solo evento Form_Load, es decir, copia todo el código, excepto las líneas que declaran las variables (Dim), de uno de los dos Form_Load dentro del otro y luego elimínalo dejando un sólo Form_Load.

Cuando se carga el formulario se desencadena el evento Load, teniendo el evento duplicado, aunque tengan código distinto, ¡vb no sabe cúal es el que tiene que usar!

mexican:
Disculpa qu no haya contestado pronto pero se atraveso el fin de semana y ya no puede contestar

Gracias Brroz por tu consejo y a ccortes
ya esta arreglado el problema

Navegación

[0] Índice de Mensajes