Adriel Ortiz Mangia

Existe = True If Existe = True Then DoCmd.OpenForm (todo el camino) , acEdit, acNormal DoCmd.Close acForm, "Buscar Expediente" Else x= MsgBox ("No se ha encontrado el Expediente buscado" & vbYesNo & "¿Desea incorporarlo ahora?", vbInformation, "NO...

Private Sub ComboBox1_Change() Select Case ComboBox1.ListIndex Case 0 ThisWorkbook.Save Application.Quit Case 1 TextBox1 = "Regresa al archivo" Label5.Caption = "Regresa al Archivo" End Select End Sub Me comentas y valoras la respueta para finalizar...

Te facilito el código fuente. If TextBox1 = "" And TextBox2 = "" Then MsgBox "Ingrese los datos obligatorios", vbInformation, "Aviso" Exit Sub End If Set h1 = Sheets("CARTON") u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Cells(u1, "A") =...

Hola En propiedad TabIndex de cada textbox ordenalo textbox1-------------TabIndex=0 textbox2-------------TabIndex=1 textbox3-------------TabIndex=2.......Asi sucesivamente Valora la respuesta para finalizar saludos!

Este página te ayudará http://clasesexcel.com/index.php/component/k2/item/31-como-guardar-un-libro-de-excel-o-parte-de-el-en-formato-pdf.html Lea detenidamente, lo puedes hacer por hoja, selección y todo el libro en un solo PDF No olvides de valorar...

Sub GUARDARPDF() Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" nomb = [G4] & " " & [B3] ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta & nomb & Format(Range("G2"), "dd-mm-yyyy")...

Private Sub Command3_Click() 'GUARDAR Adodc1.Recordset.AddNew 'Añade un nuevo registro End Sub el UPDATE es para actualizar

Copia en el evento Change del cuadro de lista. Private Sub ComboBox1_Change() If ComboBox1.Text = "Pescado" Then TextBox1.Text = "Refrigerar de 2 a 6°C" ElseIf ComboBox1.Text = "Yogurth" Then TextBox1.Text = "Refrigerar de 2 A 8°C" ElseIf...

Envíame al Email: [email protected] para desbloquearlo

Usa esto Text1.Text= Format$ (Val(Text1.Text),"##,#0.00") No olvides de valorar la respuesta "Bueno" o "Excelente"