-
Jun 23rd, 2013, 11:50 PM
#1
Thread Starter
Enjoy the moment
[RESOLVED] form pulls half values from the DB
hey
somwthing very strange
when i save a data in a form i see it in the listview and everything is ok
but when i want to edit i see only 4 values and the rest diappears from the list view and in the form text box and the combobox
its blank whan i edit.
cant figure out why
this is the code for the save and update
Code:
Private Sub Form_Activate()
If NewRec Then
Me.Caption = "New"
BttnSave.Caption = "Save"
PickDate.Value = Now
DTfinal.Value = Now
Else
BttnSave.Caption = "Update"
With FrmExpenses.LsVw.SelectedItem
Me.Caption = "Update Expens"
PickDate.Value = Format(.text, "dd/mm/yyyy")
.SubItems(1) = txt(1).text
.SubItems(2) = txt(2).text
.SubItems(3) = txt(3).text
.SubItems(4) = txt(4).text
.SubItems(5) = Cmb1.text
.SubItems(6) = Cmb2.text
.SubItems(7) = Cmb3.text
DTfinal.Value = Format(.text, "dd/mm/yyyy")
End With
ChkRepeat.Enabled = False
End If
End Sub
Code:
Private Sub BttnSave_Click()
If Len(Trim$(txt(1).text)) = 0 Then
MsgBox "missing fields", vbInformation, ""
txt(1).SetFocus
Exit Sub
ElseIf txt(2).text = 0 Then
MsgBox "missing fields", vbInformation, ""
txt(2).SetFocus
Exit Sub
ElseIf txt(3).text = 0 Then
MsgBox "missing fields", vbInformation, ""
txt(3).SetFocus
Exit Sub
End If
If NewRec Then
Dim NewID As Long
NewID = NextID("ExpID", "Expenses")
Dim strSQL As String
strSQL = "INSERT INTO Expenses "
strSQL = strSQL & "(ExpID, ExpDate, ExpType, ExpQuantity, ExpCost, ExpInvoice, ExpPament, ExpCredit, ExpBank, ExpFinal) "
strSQL = strSQL & "VALUES("
strSQL = strSQL & NewID & ","
strSQL = strSQL & "#" & MyDate(PickDate.Value) & "#,"
strSQL = strSQL & "'" & RplS(txt(1).text) & "',"
strSQL = strSQL & "'" & txt(2).text & "',"
strSQL = strSQL & CCur(txt(3).text) & ","
strSQL = strSQL & "'" & RplS(txt(4).text) & "',"
strSQL = strSQL & "'" & Cmb1.text & "',"
strSQL = strSQL & "'" & Cmb2.text & "',"
strSQL = strSQL & "'" & Cmb3.text & "',"
strSQL = strSQL & "#" & MyDate(DTfinal.Value) & "#"
strSQL = strSQL & ")"
CN.Execute strSQL
Set Itm = FrmExpenses.LsVw.ListItems.Add(, , Format(PickDate.Value, "dd/mm/yyyy"), , "dolar")
Itm.Tag = NewID
Itm.SubItems(1) = txt(1).text
Itm.SubItems(2) = Replace$(txt(2).text, ",", ".")
Itm.SubItems(3) = Replace$(txt(3).text, ",", ".")
Itm.SubItems(4) = Replace$(txt(4).text, ",", ".")
Itm.SubItems(5) = Replace$(Cmb1.text, ",", ".")
Itm.SubItems(6) = Replace$(Cmb2.text, ",", ".")
Itm.SubItems(7) = Replace$(Cmb3.text, ",", ".")
Itm.SubItems(8) = Replace$(DTfinal.Value, ",", ".")
If ChkRepeat.Value Then
PickDate.Value = Now
txt(1).text = ""
txt(2).text = 1
txt(3).text = 0
txt(4).text = ""
Cmb1.ListIndex = -1
Cmb2.ListIndex = -1
Cmb3.ListIndex = -1
DTfinal.Value = Now
ChkRepeat.Value = 0
PickDate.SetFocus
Exit Sub
End If
Else
With FrmExpenses.LsVw.SelectedItem
strSQL = "UPDATE Expenses SET "
strSQL = strSQL & "ExpDate = #" & MyDate(PickDate.Value) & "#,"
strSQL = strSQL & "ExpType = '" & RplS(txt(1).text) & "',"
strSQL = strSQL & "ExpQuantity = '" & txt(2).text & "',"
strSQL = strSQL & "ExpCost = " & CCur(txt(3).text) & ","
strSQL = strSQL & "ExpInvoice = '" & RplS(txt(4).text) & "',"
strSQL = strSQL & "ExpPament = ' " & Cmb1.text & "',"
strSQL = strSQL & "ExpCredit = ' " & Cmb2.text & "',"
strSQL = strSQL & "ExpBank = ' " & Cmb3.text & "',"
strSQL = strSQL & "ExpFinal = #" & MyDate(DTfinal.Value) & "#"
strSQL = strSQL & " WHERE ExpID = " & .Tag
CN.Execute strSQL
.text = Format(PickDate.Value, "dd/mm/yyyy")
.SubItems(1) = txt(1).text
.SubItems(2) = txt(2).text
.SubItems(3) = txt(3).text
.SubItems(4) = txt(4).text
.SubItems(5) = Cmb1.text
.SubItems(6) = Cmb2.text
.SubItems(7) = Cmb3.text
.text = Format(DTfinal.Value, "dd/mm/yyyy")
End With
End If
Unload Me
FrmExpenses.Loadentries
End Sub
tnx for the help
-
Jun 24th, 2013, 03:32 AM
#2
Addicted Member
Re: form pulls half values from the DB
Haven't checked the code, so sorry for that, but I do see one thing that might create problems (depending on your local settings).. you use CCur to write a value to the query, with my default local settings this would export 1,2 when you would export 1.2.. I do see you do a replace of ',' to '.' when you retrieve the data from the input and set it to the listview.. Also if you would enter "1,2" CCur would propably convert it to "12" which can't be what you want..
Are you sure the values you write to the database are stored correctly? if not for the decimal problems I mentioned, at first glance I can't see anything wrong with the code..
-
Jun 24th, 2013, 04:05 AM
#3
Thread Starter
Enjoy the moment
Re: form pulls half values from the DB
the values are correct and they are stored in the DataBase the problem is
when i want to edit then i see only half of what is stored.
-
Jun 24th, 2013, 12:26 PM
#4
Addicted Member
Re: form pulls half values from the DB
I don't see any code of the editing part, only code for saving your changes... So it's not clear how you even set your editing stuff..
-
Jun 24th, 2013, 12:31 PM
#5
Thread Starter
Enjoy the moment
Re: form pulls half values from the DB
Code:
With FrmExpenses.LsVw.SelectedItem
strSQL = "UPDATE Expenses SET "
strSQL = strSQL & "ExpDate = #" & MyDate(PickDate.Value) & "#,"
strSQL = strSQL & "ExpType = '" & RplS(txt(1).text) & "',"
strSQL = strSQL & "ExpQuantity = '" & txt(2).text & "',"
strSQL = strSQL & "ExpCost = " & CCur(txt(3).text) & ","
strSQL = strSQL & "ExpInvoice = '" & RplS(txt(4).text) & "',"
strSQL = strSQL & "ExpPament = ' " & Cmb1.text & "',"
strSQL = strSQL & "ExpCredit = ' " & Cmb2.text & "',"
strSQL = strSQL & "ExpBank = ' " & Cmb3.text & "',"
strSQL = strSQL & "ExpFinal = #" & MyDate(DTfinal.Value) & "#"
strSQL = strSQL & " WHERE ExpID = " & .Tag
CN.Execute strSQL
.text = Format(PickDate.Value, "dd/mm/yyyy")
.SubItems(1) = txt(1).text
.SubItems(2) = txt(2).text
.SubItems(3) = txt(3).text
.SubItems(4) = txt(4).text
.SubItems(5) = Cmb1.text
.SubItems(6) = Cmb2.text
.SubItems(7) = Cmb3.text
.text = Format(DTfinal.Value, "dd/mm/yyyy")
End With
End If
-
Jun 24th, 2013, 01:11 PM
#6
Addicted Member
Re: form pulls half values from the DB
huh, you're talking about editing, and all you show is some code which saves your current edit to the database and put it's values in the currently selected listview item.. Also I see you set .text (so column1) twice.. Maybe you should show it through some screenshots, because I really don't understand from you description what is going wrong.. I never see the data you have stored in the database being set into your 'editing' screen..
-
Jun 24th, 2013, 01:52 PM
#7
Re: form pulls half values from the DB
@SuperDre
I believe Salsa is referring to UPDATING, vice EDITING. I was trying to understand/determine what he means by 'the values are correct and they are stored in the DataBase the problem is when i want to edit then i see only half of what is stored. '---like, what is 'half'? So, IRC (I Remain Confused).
-
Jun 24th, 2013, 02:00 PM
#8
Thread Starter
Enjoy the moment
Re: form pulls half values from the DB
hey sam
i accedently used a old project
i fixed this problem
tnx anyway
for you all
good day
-
Jun 24th, 2013, 02:01 PM
#9
Re: [RESOLVED] form pulls half values from the DB
Roger!....please mark as Resolved....U2 have a great day.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|