Help...

[weisi]

I have this code :

Sub UpdateMe()
    With frmMain.ContactTable
        .MoveFirst
        Do While Not .EOF
            If !LName & ", " & !Fname = Tag Then
                Exit Do
            Else
                .MoveNext
            End If
        Loop
        On Error Resume Next
        .Edit
        If txtFName <> "" Then !Fname = txtFName
        If txtLName <> "" Then !LName = txtLName
        If txtPhone <> "" Then !Phone = txtPhone
        If txtAdd <> "" Then !Address1 = txtAdd
        If txtZip <> "" Then !Zip = txtZip
        If txtNotes <> "" Then !Notes = txtNotes
        If txtEmail <> "" Then !EMail = txtEmail
        If txtInfo <> "" Then !Info = txtInfo      '<--- I added this
        If txtPic <> "" Then
            !pic = txtPic
        Else
            !pic = " "
        End If
        If cmbCat.ListIndex > -1 Then !Cat = cmbCat.ListIndex
        If cmbBDayM.ListIndex > -1 Then !BDayM = Left(cmbBDayM.Text, 2)
        If cmbBDayD.ListIndex > -1 Then !BDayD = cmbBDayD.ListIndex + 1
        If cmbBDayY.ListIndex > -1 Then !BDayY = cmbBDayY.Text
        .Update
    End With
    frmContList.LoadContacts
    Changes = False
End Sub

The problem Im facing is that when I add a new text box (txtInfo) in my form for the user to key in text, the text is updated in the database but it is not shown in the form. Is there anything wrong with this code? Please advice...

[dee-u]

What's in your...

frmContList.LoadContacts

[weisi]

What's in your...

frmContList.LoadContacts

Sub LoadContacts()
    List1.Clear
    With frmMain.ContactTable
        If .RecordCount = 0 Then Exit Sub
        .MoveFirst
        Do While Not .EOF
            List1.AddItem !LName & ", " & !Fname
            .MoveNext
        Loop
    End With
End Sub

[Hack]

Take the On Error Resume Next out, run it, and see if you are perhaps getting an error there that is being ignored.

[Al42]

Did you add the actual text box to the form, or did you just add the code? (Not having Option Explicit would keep you from seeing this.)

[BlueRose]

How can you write values into a form? colud you show your code doing this?

[weisi]

Did you add the actual text box to the form, or did you just add the code? (Not having Option Explicit would keep you from seeing this.)

I have add a text box to the form. It is not displaying anything, but when I open up the database, the data is already written in the database, just that is is not shown in the text box.

[ganeshmoorthy]

i couldnt see any code to clear the contents of your text box....atleast from the codings you have posted...
did you follow Hack's post...

[weisi]

i couldnt see any code to clear the contents of your text box....atleast from the codings you have posted...
did you follow Hack's post...

Sorry, I tried Hack's advice but still getting the same result.

Public Changes As Boolean
 
Private Sub txtInfo_change()
    Changes = True
End Sub
 
Sub UpdateMe()
    With frmMain.ContactTable
        .MoveFirst
        Do While Not .EOF
            If !LName & ", " & !Fname = Tag Then
                Exit Do
            Else
                .MoveNext
            End If
        Loop
        
        .Edit
        If txtFName <> "" Then !Fname = txtFName
        If txtLName <> "" Then !LName = txtLName
        If txtPhone <> "" Then !Phone = txtPhone
        If txtAdd <> "" Then !Address1 = txtAdd
        If txtZip <> "" Then !Zip = txtZip
        If txtNotes <> "" Then !Notes = txtNotes
        If txtEmail <> "" Then !EMail = txtEmail
        If txtInfo <> "" Then !Info = txtInfo      '<--- I added this
        If txtPic <> "" Then
            !pic = txtPic
        Else
            !pic = " "
        End If
        If cmbCat.ListIndex > -1 Then !Cat = cmbCat.ListIndex
        If cmbBDayM.ListIndex > -1 Then !BDayM = Left(cmbBDayM.Text, 2)
        If cmbBDayD.ListIndex > -1 Then !BDayD = cmbBDayD.ListIndex + 1
        If cmbBDayY.ListIndex > -1 Then !BDayY = cmbBDayY.Text
        .Update
    End With
    frmContList.LoadContacts
    Changes = False
 
End Sub

Please advice...

[ganeshmoorthy]

what is the error you are getting now...if no error then comment this

If txtInfo <> "" Then !Info = txtInfo      '<--- I added this

and try,

[ganeshmoorthy]

hey what do you do with this

Private Sub txtInfo_change()
    Changes = True
End Sub

remove this and the below also in your UpdateMe code

Changes = False

[weisi]

what is the error you are getting now...if no error then comment this

If txtInfo <> "" Then !Info = txtInfo      '<--- I added this

and try,

Im not getting any error, and I have comment this:

If txtInfo <> "" Then !Info = txtInfo      '<--- I added this

Still after I click update and reopen the form, nothing display in the txtinfo box.

[whythetorment]

whats the code to open the form....maybe something there isnt right

[weisi]

I have this update button in my form, so when there is a changes, it will update when click.

Private Sub Command1_Click()
    If Changes = True Then UpdateMe: MsgBox "Updated!", vbExclamation, "Updated"
End Sub

[weisi]

whats the code to open the form....maybe something there isnt right

These are the codes when the form loads :

Private Sub Form_Load()
    FillDates
End Sub
 
Sub FillDates()
  Dim X As Integer
  Dim TempDate As Date
    For X = 1 To 12
        TempDate = Format(X, "00") & "/01/00"
        cmbBDayM.AddItem Format(X, "00") & "- " & Format(TempDate, "mmm")
    Next X
    For X = 1 To 31
        cmbBDayD.AddItem Format(X, "00")
    Next X
    
    For X = 1940 To Year(Date)
        cmbBDayY.AddItem X
    Next X
    
End Sub

[ganeshmoorthy]

do one thing...search your form's coding with this

txtInfo =

and check if you are assigning any data or "" to it anywhere...

[weisi]

do one thing...search your form's coding with this

txtInfo =

and check if you are assigning any data or "" to it anywhere...

Done with the search, but did not find any txtinfo assigned.

[dee-u]

Just want to ask you a few questions... Are your textbox databound? And is ContactTable a data control?

If you answer yes on the above question then I would guess your problem is in your...

Sub LoadContacts()
    List1.Clear
    With frmMain.ContactTable
        If .RecordCount = 0 Then Exit Sub
        .MoveFirst
        Do While Not .EOF
            List1.AddItem !LName & ", " & !Fname
            .MoveNext
        Loop
    End With
End Sub

After adding a new record you are calling your above procedure which moves to different record, what I would suggest is you a refresh before looping, after your looping you would have to find that record you have added/edited...