1. Visual Basic - Curso completo teoria y practica

TxtCurCodigo.Enabled = True
TxtCurCodigo.SetFocus
End Sub
Private Sub CmdAceptar_Click()
Dim Rs As New ADODB.Recordset
Set Rs = Cn.Execute(“Select CurNombre, ” & _
“CurVacantes, CurProfe From Curso ” & _
“Where CurCodigo = '” & TxtCurCodigo & “'”)
If (Rs.EOF And Rs.BOF) Then
MsgBox “No existe ningún curso con este código”
TxtCurCodigo.SetFocus
TxtCurCodigo.SelStart = 0
TxtCurCodigo.SelLength = Len(TxtCurCodigo)
Exit Sub
End If
TxtCurNombre = Rs!CurNombre
TxtCurVacantes = Rs!CurVacantes
TxtCurProfe = Rs!CurProfe
Rs.Close
Set Rs = Nothing
TxtCurCodigo.Enabled = False
CmdAceptar.Enabled = False
CmdEliminar.Enabled = True
CmdNuevo.Enabled = True
End Sub
Private Sub CmdCerrar_Click()
Unload Me
End Sub
De manera similar proceda a desarrollar el código para los
formularios de mantenimiento de las demás tablas.
Pág. 344