Caixa De Texto

[D4rk Schn31d3r]

Quando defino o DataSource, DataMember e DataField de uma caixa de texto, o valor q escrevo nela, não é gravado no banco, ao invés disso, está sendo gravado 1 valor em branco, ..., só funciona, qd jogo esse código em tempo de execução:

    With txtAndam
        .DataField = "Andam"
        .DataMember = "qryCadAndam"
        Set .DataSource = de
    End With

O q será q pode estar acontecendo?

[Graymalkin]

Você está usando o método Update?

Abraços,

Graymalkin

[D4rk Schn31d3r]

Sim, claro. Tá aqui o meu código funcionando:

- botão inserir -

Private Sub cmdIns_Click()
  gOper = "I"
  Inv
  de.rstbContr.Open
  de.rstbContr!ID_Andam = de.rstbContr!ID_Andam + 1
  de.rstbContr.Update
  
  If de.rsqryCadAndam.State = 1 Then
      de.rsqryCadAndam.Close
  End If
  
  de.qryCadAndam (-1)
  de.rsqryCadAndam.AddNew
  de.rsqryCadAndam!ID_Andam = de.rstbContr!ID_Andam
  de.rstbContr.Close
  txtAndam.SetFocus
End Sub

- botão confirmar -

Private Sub cmdConf_Click()
  If (Trim(txtAndam.Text) = "") Then
      MsgBox "Esse campo deve ser preenchido!!!", vbOKOnly + vbExclamation, gSist
      txtAndam.SetFocus
      Exit Sub
  End If

  If (gOper = "I") Or (gOper = "A") Then
      de.rsqryCadAndam!Andam = txtAndam.Text
      de.rsqryCadAndam.Update
  ElseIf gOper = "D" Then
      de.rsqryCadAndam.Delete
  End If
      
  Limp
  txtAndam.SetFocus
  Inv
End Sub  

Agora, se eu excluir a linha: de.rsqryCadAndam!Andam = txtAndam.Text, e setar as propriedades DataSource, DataMember e DataField em tempo de projeto, não funciona!!! Esse é o problema.

[Graymalkin]

Realmente não estou vendo nada de errado em seu código. Mas, só é necessário definir DataSource e DataField. Tente definir apenas estas duas e veja se dá certo.

Abraços,

Graymalkin