ERRO OVERFLOW NO TEXTBOX
sql = "SELECT Outros.[IdOutros] From [Outros]"
sql = sql & "WHERE (((Outros.IdOutros)=" & txtOutrosId.Text & "))"
Set tb1 = db.OpenRecordset(sql, dbOpenSnapshot)
esta me dando o erro overflow no txtOutrosId.Text
sql = sql & "WHERE (((Outros.IdOutros)=" & txtOutrosId.Text & "))"
Set tb1 = db.OpenRecordset(sql, dbOpenSnapshot)
esta me dando o erro overflow no txtOutrosId.Text
Tente assim:
Se o campo IdOutros for do tipo Numero(Integer).
sql = "SELECT IdOutros From Outros "
sql = sql & "WHERE IdOutros = " & CInt(Me.txtOutrosId.Text)
Set tb1 = db.OpenRecordset(sql, dbOpenSnapshot)
Ou assim, se o campo IdOutros for do tipo Texto(Text):
sql = "SELECT IdOutros From Outros "
sql = sql & "WHERE IdOutros = '" & Me.txtOutrosId.Text & "'"
Set tb1 = db.OpenRecordset(sql, dbOpenSnapshot)
Obs.: se você quiser, também pode utilizar o método Trim(), para remover possÃÂÂveis espaços.
Trim(Me.txtOutrosId.Text)
Se o campo IdOutros for do tipo Numero(Integer).
sql = "SELECT IdOutros From Outros "
sql = sql & "WHERE IdOutros = " & CInt(Me.txtOutrosId.Text)
Set tb1 = db.OpenRecordset(sql, dbOpenSnapshot)
Ou assim, se o campo IdOutros for do tipo Texto(Text):
sql = "SELECT IdOutros From Outros "
sql = sql & "WHERE IdOutros = '" & Me.txtOutrosId.Text & "'"
Set tb1 = db.OpenRecordset(sql, dbOpenSnapshot)
Obs.: se você quiser, também pode utilizar o método Trim(), para remover possÃÂÂveis espaços.
Trim(Me.txtOutrosId.Text)
Piolho a questão não conversão de dados. Nosso amigo ARLPINHEIRO esta esta passando um valor maior do que o campo aceita. Veja o tamanho do campo IdOutros e formate o Me.txtOutrosId.Text para o mesmo tamanho
Tópico encerrado , respostas não são mais permitidas