Visual Basic - Tablas ya existentes

Life is soft - evento anual de software empresarial
 
Vista:

Tablas ya existentes

Publicado por sergio (36 intervenciones) el 02/08/2003 16:39:00
hola, tengo lo siguiente:

Private Sub cmdcrear_Click()
If txtnombre.Text = "" Then
MsgBox ("Debe escribir un nombre para la tabla"), vbCritical, "Error"
Else
Set Base_de_datos = OpenDatabase(App.Path & " \semillas del saber.mdb ")

Set Tabla = Base_de_datos.CreateTableDef("Estudiantes" + txtnombre.Text)

Set Campo = Tabla.CreateField("Codigo", dbInteger)
Tabla.Fields.Append Campo

Set Campo = Tabla.CreateField("Primer Apellido", dbText, 100)
Tabla.Fields.Append Campo

Set Campo = Tabla.CreateField("Segundo Apellido", dbText, 100)
Tabla.Fields.Append Campo

Set Campo = Tabla.CreateField("Primer Nombre", dbText, 100)
Tabla.Fields.Append Campo

Set Campo = Tabla.CreateField("Segundo Nombre", dbText, 100)
Tabla.Fields.Append Campo

Base_de_datos.TableDefs.Append Tabla

mnunueva.Enabled = True
panelcrear.Visible = False
Data1.RecordSource = "Estudiantes" + txtnombre.Text
Data1.Refresh

End If

End Sub

como puedo hacer para que me aparezca un mensaje que yo quiera diciendo si la tabla ya existe y que coloque otro nombre.
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tablas ya existentes

Publicado por Cecilia Colalongo (3117 intervenciones) el 02/08/2003 17:14:05
Puedes revisar en la colección de tablas existentes si ya existe la que quieres:

With Base_de_Datos
Debug.Print .TableDefs.Count

For Each Tabla In .TableDefs
Debug.Print " " & Tabla.Name
Next
End With

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar