Hi All, I hope someone can help me with this I have a visual basic application that's linked to a acces mdb. what the problem is I have a form called frmExtraText it has a text box for inputing data and storing it in the mdb called txtExtraText I have gone through my code and tried to debug it but it seems to be going through the code ok just not storing the data which is strange because it has worked before it just decided to stop working? I havn't made any changes to the coding. I have attached the coding and a picture of the form incase someone would like a look. If anyone needs more information to workout what's going on please let me know. I'm really stuck on this problem and need to get it working

Thanks.

Attached Files

	AddNewRecord.txt (16.5 KB, 1 views)
	Update.txt (16.5 KB, 1 views)
	Picture of the form.zip (89.2 KB, 1 views)
	ExtraText.txt (1.9 KB, 1 views)

Hey matt,

Is it just the information in this extra text box that is not saved, or the entire record?

There's only an exit button on that form. I take it theres a main form where the address, quote details and everything is entered? And then you have this extra text form which pops up for more information? Surely if you close this form, all the data in that text box will be lost?

OK matt, can you give me a screenshot and the code of the mainform?

Also, I'm assuming there is some sort of save button on the main form. Can you press this whilst the extra test form is still visible to see if the data saves?

Hey madmonkey, I thought that might be the problem. if you leave the extra text form open it makes no difference. There is a form that open after you click exit on the main form asking to save the changes. When it runs the code to save the changes I just noticed it thinks the txtExtraText has no value? I have attached a picture of that and the main form and the save form. I'm not to good at coding but I think it might have somthing to do with this code below but I'm not sure what it is

Function GetFirstExtraTextString(OldString As String) As String
Dim TheLength As Long
TheLength = Len(OldString)
If TheLength > 255 Then
GetFirstExtraTextString = Left(OldString, 255)
Else
GetFirstExtraTextString = OldString
End If
End Function
Function GetSecondExtraTextString(OldString As String) As String
Dim TheLength As Long
TheLength = Len(OldString)
If TheLength > 255 Then
If TheLength > 510 Then
GetSecondExtraTextString = Mid(OldString, 256, 255)
Else
GetSecondExtraTextString = Right(OldString, TheLength - 255)
End If
Else
GetSecondExtraTextString = ""
End If
End Function
Function GetThirdExtraTextString(OldString As String) As String
Dim TheLength As Long
TheLength = Len(OldString)
If TheLength > 510 Then
If TheLength > 765 Then
GetThirdExtraTextString = Mid(OldString, 511, 255)
Else
GetThirdExtraTextString = Right(OldString, TheLength - 510)
End If
Else
GetThirdExtraTextString = ""
End If
End Function
Function GetFourthExtraTextString(OldString As String) As String
Dim TheLength As Long
TheLength = Len(OldString)
If TheLength > 765 Then
GetFourthExtraTextString = Right(OldString, TheLength - 765)
If TheLength > 1020 Then
GetFourthExtraTextString = Mid(OldString, 766, 255)
Else
GetFourthExtraTextString = Right(OldString, TheLength - 765)
End If
Else
GetFourthExtraTextString = ""
End If
End Function
Function GetFifthExtraTextString(OldString As String) As String
Dim TheLength As Long
TheLength = Len(OldString)
If TheLength > 1020 Then
GetFifthExtraTextString = Right(OldString, TheLength - 1020)
Else
GetFifthExtraTextString = ""
End If
End Function

Attached Images

	Do you want to save changes.jpg (86.4 KB, 3 views)
	=nothingsmall.jpg (77.8 KB, 3 views)
	Smallmainform.jpg (73.2 KB, 2 views)

matt,

I've had a look at the code. I can't see anything that stands out by I did notice one thing. Can you change the following lines for me:

!ExtraText = GetFirstExtraTextString(frmExtraText.txtExtraText)
!ExtraText1 = GetFirstExtraTextString(frmExtraText.txtExtraText)
!ExtraText2 = GetFirstExtraTextString(frmExtraText.txtExtraText)
!ExtraText3 = GetFirstExtraTextString(frmExtraText.txtExtraText)
!ExtraText4 = GetFirstExtraTextString(frmExtraText.txtExtraText)

to

!ExtraText = GetFirstExtraTextString(frmExtraText.txtExtraText.value)
!ExtraText1 = GetFirstExtraTextString(frmExtraText.txtExtraText.value)
!ExtraText2 = GetFirstExtraTextString(frmExtraText.txtExtraText.value)
!ExtraText3 = GetFirstExtraTextString(frmExtraText.txtExtraText.value)
!ExtraText4 = GetFirstExtraTextString(frmExtraText.txtExtraText.value)

It maybe nothing, but it's just the way I was braught up with coding, the frmExtraText.txtExtraText could be preceived as the whole text box object, instead of just the contents of the text box itself.