Leete un tutorial de VB
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub txtData_Validate(Cancel As Boolean)
If Not IsNumeric(txtData) Then
Call MsgBox("No se ingresó un número válido", vbExclamation)
txtData.SelStart = 0
txtData.SelLength = Len(txtData)
Cancel = True
End If
End Sub
Dataprod.Recordset!proveedor = cmbProv.List(ListIndex)
Dataprod.Recordset!proveedor = cmbProv.List(cmbProv.ListIndex)