incremento en formulario

buenas tardeas a todos, saludos desde Mexico, D.F.

Tengo un formulario con tres campos
1. Codigo
2. Nombre
3. Clasificacion

Antecedentes:

a) la base de datos ya esta creada
b) necesito ingresar nueva informacion con el formulario
c) el ultimo "Codigo" registrado es el 72 < en la linea 77 de la columna A

Problema:

A) al momento de ingresar un nuevo cliente con su respectivo codigo
1.- mostrar el formulario < esto lo tengo resuelto
2.- en el campo "Codigo", necesito que me muestre el numero 73 < se
supone que es el que sigue, tecleo enter y se acepta el dato
3.- tecleo el nombre y enter < esto lo tengo resuelto
4.- tecleo la clasificaicion y enter < esto lo tengo resuelto
5.- doy clic en el boton de guardar informacion y se graba en mi base
de datos. < esto lo tengo resuelto
3.- al ingresar otro nuevo cliente, que me muestre el formulario con
el numero de codigo 74 y asi sucesivamente.


Muchas Gracias por su apoyo.

Una posibilidad es que en otra hoja (llamémosla "Contador"), utilizaras una
celda (por ejemplo "A1") para guardar el número del último registro ingresado
a tu BD. En el momento en que hagas el vaciado de datos de tu formulario
hacia tu base de datos, podrías calcular la fila:

fila=Worksheets("Contador").Range("A1").Value+5

luego incrementas el valor del contador:

Worksheets("Contador").Range("A1").Value =
Worksheets("Contador").Range("A1").Value + 1

Por último, puedes asignar "Veryhidden" a la propiedad Visible de la hoja
Contador, para evitar el acceso a los usuarios

ThisWorkbook.Worksheets("Contador").Visible = xlVeryHidden


"vm_tapia" escribió:

> buenas tardeas a todos, saludos desde Mexico, D.F.
>
> Tengo un formulario con tres campos
> 1. Codigo
> 2. Nombre
> 3. Clasificacion
>
> Antecedentes:
>
> a) la base de datos ya esta creada
> b) necesito ingresar nueva informacion con el formulario
> c) el ultimo "Codigo" registrado es el 72 < en la linea 77 de la columna A
>
> Problema:
>
> A) al momento de ingresar un nuevo cliente con su respectivo codigo
> 1.- mostrar el formulario < esto lo tengo resuelto
> 2.- en el campo "Codigo", necesito que me muestre el numero 73 < se
> supone que es el que sigue, tecleo enter y se acepta el dato
> 3.- tecleo el nombre y enter < esto lo tengo resuelto
> 4.- tecleo la clasificaicion y enter < esto lo tengo resuelto
> 5.- doy clic en el boton de guardar informacion y se graba en mi base
> de datos. < esto lo tengo resuelto
> 3.- al ingresar otro nuevo cliente, que me muestre el formulario con
> el numero de codigo 74 y asi sucesivamente.
>
>
> Muchas Gracias por su apoyo.
>

Hola David:

Gracias por tu respuesta, lo del "contador" lo entiendo, pero, lo que
necesito es que ese numero me aparezca en el campo de codigo del formulario
en forma predeterminada, asi evitaria la duplicidad del mismo ya que el
usuario unicamente tendria que teclear enter para aceptar el numero
"propuesto", o en su defecto como le hago para que aparezca como "etiqueta" y
no dentro de un textbox.

Gracias de antemano.

"David" escribió:

> Una posibilidad es que en otra hoja (llamémosla "Contador"), utilizaras una
> celda (por ejemplo "A1") para guardar el número del último registro ingresado
> a tu BD. En el momento en que hagas el vaciado de datos de tu formulario
> hacia tu base de datos, podrías calcular la fila:
>
> fila=Worksheets("Contador").Range("A1").Value+5
>
> luego incrementas el valor del contador:
>
> Worksheets("Contador").Range("A1").Value =
> Worksheets("Contador").Range("A1").Value + 1
>
> Por último, puedes asignar "Veryhidden" a la propiedad Visible de la hoja
> Contador, para evitar el acceso a los usuarios
>
> ThisWorkbook.Worksheets("Contador").Visible = xlVeryHidden
>
>
> "vm_tapia" escribió:
>
> > buenas tardeas a todos, saludos desde Mexico, D.F.
> >
> > Tengo un formulario con tres campos
> > 1. Codigo
> > 2. Nombre
> > 3. Clasificacion
> >
> > Antecedentes:
> >
> > a) la base de datos ya esta creada
> > b) necesito ingresar nueva informacion con el formulario
> > c) el ultimo "Codigo" registrado es el 72 < en la linea 77 de la columna A
> >
> > Problema:
> >
> > A) al momento de ingresar un nuevo cliente con su respectivo codigo
> > 1.- mostrar el formulario < esto lo tengo resuelto
> > 2.- en el campo "Codigo", necesito que me muestre el numero 73 < se
> > supone que es el que sigue, tecleo enter y se acepta el dato
> > 3.- tecleo el nombre y enter < esto lo tengo resuelto
> > 4.- tecleo la clasificaicion y enter < esto lo tengo resuelto
> > 5.- doy clic en el boton de guardar informacion y se graba en mi base
> > de datos. < esto lo tengo resuelto
> > 3.- al ingresar otro nuevo cliente, que me muestre el formulario con
> > el numero de codigo 74 y asi sucesivamente.
> >
> >
> > Muchas Gracias por su apoyo.
> >

Prueba crear un formulario (UserForm1) con un control etiqueta (Label1), un
control de cuadro de texto (TextBox1) y un control botón (CommandButton1), y
prueba el siguiente código:

Private Sub CommandButton1_Click()
Dim fila As Integer
If Len(TextBox1.Value) > 0 Then
fila = ThisWorkbook.Worksheets("Contador").Range("A1").Value + 6
ActiveSheet.Cells(fila, 1).Value = TextBox1.Value
ThisWorkbook.Worksheets("Contador").Range("A1").Value = _
ThisWorkbook.Worksheets("Contador").Range("A1").Value + 1
Else
MsgBox "no se agregaron datos"
End If
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Label1.Caption = ThisWorkbook.Worksheets("Contador").Range("A1").Value + 1
End Sub


"vm_tapia" escribió:

> Hola David:
>
> Gracias por tu respuesta, lo del "contador" lo entiendo, pero, lo que
> necesito es que ese numero me aparezca en el campo de codigo del formulario
> en forma predeterminada, asi evitaria la duplicidad del mismo ya que el
> usuario unicamente tendria que teclear enter para aceptar el numero
> "propuesto", o en su defecto como le hago para que aparezca como "etiqueta" y
> no dentro de un textbox.
>
> Gracias de antemano.
>
> "David" escribió:
>
> > Una posibilidad es que en otra hoja (llamémosla "Contador"), utilizaras una
> > celda (por ejemplo "A1") para guardar el número del último registro ingresado
> > a tu BD. En el momento en que hagas el vaciado de datos de tu formulario
> > hacia tu base de datos, podrías calcular la fila:
> >
> > fila=Worksheets("Contador").Range("A1").Value+5
> >
> > luego incrementas el valor del contador:
> >
> > Worksheets("Contador").Range("A1").Value =
> > Worksheets("Contador").Range("A1").Value + 1
> >
> > Por último, puedes asignar "Veryhidden" a la propiedad Visible de la hoja
> > Contador, para evitar el acceso a los usuarios
> >
> > ThisWorkbook.Worksheets("Contador").Visible = xlVeryHidden
> >
> >
> > "vm_tapia" escribió:
> >
> > > buenas tardeas a todos, saludos desde Mexico, D.F.
> > >
> > > Tengo un formulario con tres campos
> > > 1. Codigo
> > > 2. Nombre
> > > 3. Clasificacion
> > >
> > > Antecedentes:
> > >
> > > a) la base de datos ya esta creada
> > > b) necesito ingresar nueva informacion con el formulario
> > > c) el ultimo "Codigo" registrado es el 72 < en la linea 77 de la columna A
> > >
> > > Problema:
> > >
> > > A) al momento de ingresar un nuevo cliente con su respectivo codigo
> > > 1.- mostrar el formulario < esto lo tengo resuelto
> > > 2.- en el campo "Codigo", necesito que me muestre el numero 73 < se
> > > supone que es el que sigue, tecleo enter y se acepta el dato
> > > 3.- tecleo el nombre y enter < esto lo tengo resuelto
> > > 4.- tecleo la clasificaicion y enter < esto lo tengo resuelto
> > > 5.- doy clic en el boton de guardar informacion y se graba en mi base
> > > de datos. < esto lo tengo resuelto
> > > 3.- al ingresar otro nuevo cliente, que me muestre el formulario con
> > > el numero de codigo 74 y asi sucesivamente.
> > >
> > >
> > > Muchas Gracias por su apoyo.
> > >

Prueba crear un formulario (UserForm1) con un control etiqueta (Label1), un
control de cuadro de texto (TextBox1) y un control botón (CommandButton1), y
prueba el siguiente código:

Private Sub CommandButton1_Click()
Dim fila As Integer
If Len(TextBox1.Value) > 0 Then
fila = ThisWorkbook.Worksheets("Contador").Range("A1").Value + 6
ActiveSheet.Cells(fila, 1).Value = TextBox1.Value
ThisWorkbook.Worksheets("Contador").Range("A1").Value = _
ThisWorkbook.Worksheets("Contador").Range("A1").Value + 1
Else
MsgBox "no se agregaron datos"
End If
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Label1.Caption = ThisWorkbook.Worksheets("Contador").Range("A1").Value + 1
End Sub


"vm_tapia" escribió:

> Hola David:
>
> Gracias por tu respuesta, lo del "contador" lo entiendo, pero, lo que
> necesito es que ese numero me aparezca en el campo de codigo del formulario
> en forma predeterminada, asi evitaria la duplicidad del mismo ya que el
> usuario unicamente tendria que teclear enter para aceptar el numero
> "propuesto", o en su defecto como le hago para que aparezca como "etiqueta" y
> no dentro de un textbox.
>
> Gracias de antemano.
>
> "David" escribió:
>
> > Una posibilidad es que en otra hoja (llamémosla "Contador"), utilizaras una
> > celda (por ejemplo "A1") para guardar el número del último registro ingresado
> > a tu BD. En el momento en que hagas el vaciado de datos de tu formulario
> > hacia tu base de datos, podrías calcular la fila:
> >
> > fila=Worksheets("Contador").Range("A1").Value+5
> >
> > luego incrementas el valor del contador:
> >
> > Worksheets("Contador").Range("A1").Value =
> > Worksheets("Contador").Range("A1").Value + 1
> >
> > Por último, puedes asignar "Veryhidden" a la propiedad Visible de la hoja
> > Contador, para evitar el acceso a los usuarios
> >
> > ThisWorkbook.Worksheets("Contador").Visible = xlVeryHidden
> >
> >
> > "vm_tapia" escribió:
> >
> > > buenas tardeas a todos, saludos desde Mexico, D.F.
> > >
> > > Tengo un formulario con tres campos
> > > 1. Codigo
> > > 2. Nombre
> > > 3. Clasificacion
> > >
> > > Antecedentes:
> > >
> > > a) la base de datos ya esta creada
> > > b) necesito ingresar nueva informacion con el formulario
> > > c) el ultimo "Codigo" registrado es el 72 < en la linea 77 de la columna A
> > >
> > > Problema:
> > >
> > > A) al momento de ingresar un nuevo cliente con su respectivo codigo
> > > 1.- mostrar el formulario < esto lo tengo resuelto
> > > 2.- en el campo "Codigo", necesito que me muestre el numero 73 < se
> > > supone que es el que sigue, tecleo enter y se acepta el dato
> > > 3.- tecleo el nombre y enter < esto lo tengo resuelto
> > > 4.- tecleo la clasificaicion y enter < esto lo tengo resuelto
> > > 5.- doy clic en el boton de guardar informacion y se graba en mi base
> > > de datos. < esto lo tengo resuelto
> > > 3.- al ingresar otro nuevo cliente, que me muestre el formulario con
> > > el numero de codigo 74 y asi sucesivamente.
> > >
> > >
> > > Muchas Gracias por su apoyo.
> > >