Boa noite a todos, pessoal eu tenho um formulário com uma caixa de texto e um botão, qualquer nome que eu coloque na caixa de texto e que não tenha espaço eu consigo acrescentar como campo em uma tabela usando o seguinte código no botão
Private Sub Comando2_Click()
If IsNull(Me.Texto0) Then
DoCmd.CancelEvent
MsgBox "Não foi salvo, pois o campo está vazio, digite um nome", vbCritical
Else
CurrentDb.Execute "ALTER TABLE Nomes ADD " & Me.Texto0 & " TEXT;"
MsgBox "O novo nome foi acrescentado com sucesso"
End If
End Sub
Agora se eu coloco nomes com espaço dá erro de sintaxe, tipo quando eu coloco "AdrianoCosta" dá certo, agora se eu coloco "Adriano Costa" ai dá erro em tempo de execução, erro de sintaxe na definição de campo sendo a parte destacada quando coloco em depurar essa abaixo
CurrentDb.Execute "ALTER TABLE Nomes ADD " & Me.Texto0 & " TEXT;"
Qual seria o problema?
Private Sub Comando2_Click()
If IsNull(Me.Texto0) Then
DoCmd.CancelEvent
MsgBox "Não foi salvo, pois o campo está vazio, digite um nome", vbCritical
Else
CurrentDb.Execute "ALTER TABLE Nomes ADD " & Me.Texto0 & " TEXT;"
MsgBox "O novo nome foi acrescentado com sucesso"
End If
End Sub
Agora se eu coloco nomes com espaço dá erro de sintaxe, tipo quando eu coloco "AdrianoCosta" dá certo, agora se eu coloco "Adriano Costa" ai dá erro em tempo de execução, erro de sintaxe na definição de campo sendo a parte destacada quando coloco em depurar essa abaixo
CurrentDb.Execute "ALTER TABLE Nomes ADD " & Me.Texto0 & " TEXT;"
Qual seria o problema?