Problema de duplicidad de registros en Access
Soy nueva en Access y estoy tratando de hacer un formulario de Pacientes que, antes de guardar, permita calcular la Superficie Corporal. Para esto, tengo dos botones: Calcular Superficie y Guardar. El problema que tengo es que cuando presiono Guardar, me guarda duplicado el registro, como si ejecutase el código dos veces.
El código es el siguiente:
Option Compare Database
Private Sub Comando0_Click()
Dim Mensaje, Estilo, varA, varB, varC, Respuesta
Mensaje = "Los valores de peso y altura deben ser mayores a cero"
Estilo = vbOKOnly + vbInformation + vbDefaultButton1
varA = 0.007184
While (peso < 0) Or (altura < 0)
Respuesta = MsgBox(Mensaje, Estilo)
peso = 0
altura = 0
Wend
varB = peso ^ 0.425
varC = altura ^ 0.725
superficie = varA * varB * varC
End Sub
Private Sub Comando1_Click()
If Not IsNull(peso) And Not IsNull(altura) And Not IsNull(apellido) And Not IsNull(nombre) Then
GUARDAR = "Insert into datosPaciente (fechaAlta,apellido,nombre,peso,altura,superficie) Values(#" & Format(fechaAlta, "MM/dd/yyyy") & "#,'" & apellido & "','" & nombre & "'," & peso & "," & altura & ",'" & superficie & "');"
CurrentDb.Execute GUARDAR
End If
El código es el siguiente:
Option Compare Database
Private Sub Comando0_Click()
Dim Mensaje, Estilo, varA, varB, varC, Respuesta
Mensaje = "Los valores de peso y altura deben ser mayores a cero"
Estilo = vbOKOnly + vbInformation + vbDefaultButton1
varA = 0.007184
While (peso < 0) Or (altura < 0)
Respuesta = MsgBox(Mensaje, Estilo)
peso = 0
altura = 0
Wend
varB = peso ^ 0.425
varC = altura ^ 0.725
superficie = varA * varB * varC
End Sub
Private Sub Comando1_Click()
If Not IsNull(peso) And Not IsNull(altura) And Not IsNull(apellido) And Not IsNull(nombre) Then
GUARDAR = "Insert into datosPaciente (fechaAlta,apellido,nombre,peso,altura,superficie) Values(#" & Format(fechaAlta, "MM/dd/yyyy") & "#,'" & apellido & "','" & nombre & "'," & peso & "," & altura & ",'" & superficie & "');"
CurrentDb.Execute GUARDAR
End If
1 Respuesta
Respuesta de xavi -ae soft-
1