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
