Olá gente estou criando um programa para uma clinica média mais estou com problema na parte de marcar as consultas
o formMarcarConsulta esta assim :
mais da erro no algoritimo do botao marcar o codigo ta assim :
Private Sub btnmarcar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmarcar.Click
Dim intdia, intmes, intano, inthora, intminuto As Integer
Dim intcodigo_paciente, intcodigo_convenio As Integer
Dim strhora, strminuto As String
strhora = Microsoft.VisualBasic.Left(mskhorario.Text, 2)
strminuto = Microsoft.VisualBasic.Right(mskhorario.Text, 2)
If (Trim(strhora) = "") Or (Trim(strminuto) = "") Then
MsgBox("É necessario informar o horário !")
Else
intdia = Calendario.SelectionStart.Day
intmes = Calendario.SelectionStart.Month
intano = Calendario.SelectionStart.Year
inthora = CInt(strhora)
intminuto = CInt(strminuto)
Dim dtdata_hora_consulta As New System.DateTime(intano, intmes, intdia, inthora, intminuto, 0)
Dim dtdata_consulta As New System.DateTime(intano, intmes, intdia)
intcodigo_paciente = DataGridPacientes.CurrentRow.Cells(0).Value
intcodigo_convenio = DataGridConvenios.CurrentRow.Cells(0).Value
[b] Me.AgendaconsultasTableAdapter1.Insert(dtdata_hora_consulta, dtdata_consulta, intcodigo_paciente, intcodigo_convenio, "N")[/b]
MsgBox("Consulta agendada !")
Me.Close()
End If
End Sub
quando eu compilo o programa e vou no menu de marcar consulta e clico em marcar ele volta para o programa e da esse erro:
Pergunta
Guest Hairan
Olá gente estou criando um programa para uma clinica média mais estou com problema na parte de marcar as consultas
o formMarcarConsulta esta assim :
mais da erro no algoritimo do botao marcar o codigo ta assim :
quando eu compilo o programa e vou no menu de marcar consulta e clico em marcar ele volta para o programa e da esse erro:
o que será que poder ser? alguém pode me ajudar?
Link para o comentário
Compartilhar em outros sites
8 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.