Posts
 
Reputation
Joined
Last Seen
0 Reputation Points
Unknown Quality Score

No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.

0 Endorsements
~6K People Reached
Favorite Forums
Member Avatar for LeNenne

Hi I will from the database only copy some textboxes to excel to specifik place in the excel sheet Just those from the database surename,lastname,adress,zip,zipadress,prn only one at the time PS ! the excel sheet is an invoice one textbox to excel i4 = prn one textbox to excel f9 …

Member Avatar for Stuugie
0
129
Member Avatar for LeNenne

Hi What have I done that is wrong the Excell sheet will not be visible I will have it visible when I press the command button Dim objXl As New excel.Application Dim objWb As excel.Workbook Dim xlTmp As excel.Application Set xlTmp = excel.Application xlTmp.Workbooks.open ("c:\kundreg\bokfaktura2.xls") '"bokfaktura2.xls" xlTmp.Workbooks.open ("app.path & \kundreg\bokfaktura2.xls") …

Member Avatar for cgeier
0
217
Member Avatar for LeNenne

I have a dir list box db.Close 'Kill (App.Path & "\PhoneTel.mdb") our = (Dir1.Path + "\" + File2.filename) mitt = Left$(File2.filename, 12) ' phonetel.mdb SourceFile1 = our ' DestinationFile1 = App.Path + "\" + mitt '"PhoneTel.mdb" FileCopy SourceFile1, DestinationFile1 as seen in the second image there is i will that …

Member Avatar for LeNenne
0
152
Member Avatar for LeNenne

In a list box some email now I will that the corresponding name to the email rs.MoveLast rs.MoveFirst max = rs.RecordCount rs.MoveFirst LstData3.Clear List1e.Clear For i = 1 To max If Not Len(Trim(rs("Email"))) = 0 Then LstData3.AddItem rs("email") & " " & rs("eftn") & " " & rs("namn") If Not …

Member Avatar for Minimalist
0
357
Member Avatar for LeNenne

Hello I have a problem that is as follows. One list box with 30 perons in it and I have command(index) from a - z when I dblclick on a name it fill all the textboxes good but I will have it like when I dblclick on a name in …

Member Avatar for LeNenne
0
159
Member Avatar for LeNenne

Hi I have made a program and now I am not sure how to clear the screen. When I start the program I will have a blank screen and just my program visible. Lenny

Member Avatar for rishif2
0
179
Member Avatar for LeNenne

dim x as integer dim myday as string myday = format$(now,"mm") for x = 0 to 11 image(x).picture = image(index).picture next if myday = myday then image1(index).picture= app.path & "\*.jpg" ' that's okej Now is the question when I have in app.path 12 pictures numbered from 01 to 12 How …

Member Avatar for Klahr_R
0
136
Member Avatar for LeNenne

Hi I have a progressbar and it's going from left to right but what I will it to do that it goes from right to left with full and take one step backwards after pressing commandbutton each time Le Nenne

Member Avatar for LeNenne
0
1K
Member Avatar for LeNenne

Hi folks I wonder if this code can bee converted to VB6 or there are a simular code. Lenny Dim strMSG As String > strMSG = "This Demo Has Expired" & vbCrLf & "Please Contact Me to Obtain > the Full Version" > > If DCount("[autonumberID]", "app.path/phonetel.mdb") > 20 Or …

Member Avatar for bonzo2008
0
197
Member Avatar for LeNenne

Hi I have a lstdata3 with 4 emails in it and I will that thoose shall come up in a textbox seperated with ; at the end of each. the lstdata3 list is with the checkbox enabled so I can choose wich I will use. a commandbutton is used to …

Member Avatar for LeNenne
0
124
Member Avatar for LeNenne

Hi I wonder how to extract just rs("Email") from this code If rs.RecordCount = 0 Then Exit Function End If rs.MoveLast rs.MoveFirst max = rs.RecordCount rs.MoveFirst LstData3.Clear For i = 1 To max LstData3.AddItem rs("Email") rs.MoveNext Next i I have 10 different person in the databas but only 3 with …

Member Avatar for Jx_Man
0
142
Member Avatar for LeNenne

I have tried some but it will not work as I will If I press the X button on titel bar then I will it goes to cmdquit where I have to choose vbyes or vbno. The tests I haave done just quit the program at once without any chance …

Member Avatar for rishif2
0
335
Member Avatar for LeNenne

Hi I just wonder how to enabled the X in the right upper corner of a form. When I press the X then I will that it goes to cmdquit and the program is ending. How to do that Lennie

Member Avatar for Jx_Man
0
239
Member Avatar for LeNenne

Hi How to kill a file in this format kill App.Path & "\backup\backup\PhoneTel.mdb" & Format(Now, "yymmdd_hhnn") & ".mdb" Lenny

Member Avatar for LeNenne
0
149
Member Avatar for LeNenne

Hi Again I have a file list with 2 backup library For i = 0 To File2.ListCount - 1 If File2.Selected(i) Then min = Left$(File2.fileName, 12) ' here I got the file name from PhoneTel.mdb130513_2014.mdb '********** min is Phonetel.mdb Kill App.Path & "\phonetel.mdb" sourcefile1 = File2.Path & "\min" ' The …

Member Avatar for Jx_Man
0
203
Member Avatar for LeNenne

Hi I wonder how to count the backup files I have. If I say like this 1: making backup OK 2: making backup OK 3: now is the question how to count the backup files so I can remove some of them or kill one Bonzo

Member Avatar for Jx_Man
0
205
Member Avatar for LeNenne

Hi The problem is when I have open the common dialog and press the cancel button I got error code 32755 say that I have pressed the cancel button and i halts On Error GoTo MnuNamnD_click_exit With dlgDemo .CancelError = True .InitDir = mstrLastDir .Flags = cdlOFNHideReadOnly .fileName = .FileTitle …

Member Avatar for LeNenne
0
149
Member Avatar for LeNenne

Hi I wonder how to create a Mru list of the last open mdb file in app.path and how to numerate this in order of used Lenny

Member Avatar for Jx_Man
0
84
Member Avatar for LeNenne

Hi I have the file copy statement to copy a sourcefile = App.Path & "\PhoneTel.mdb" destinationfile = App.Path & "\backup\PhoneTel.mdb" FileCopy sourcefile, destinationfile sourcefile1 = App.Path & "\backup\PhoneTel.mdb" destinationfile1 = App.Path & "\backup\backup\PhoneTel.mdb" FileCopy sourcefile1, destinationfile1 how can I get the backup file from backup\backup with the old data, not …

Member Avatar for LeNenne
0
131
Member Avatar for LeNenne

Hi and thanks for all help. How to erase a file file.Delete (App.Path & "\backup\PhoneTel.mdb") it do not work. Or do like this instead that the file phonetel.mdb is uppdating evry time you press enter.

Member Avatar for Jx_Man
0
120
Member Avatar for LeNenne

Hi and thanks. I am wondering if there is a way to clear the screen before the program is loading. Lenny

Member Avatar for rishif2
0
770
Member Avatar for LeNenne

Hi I have tried evrything in a list box. The listbox contain this 04-25 ene and I will deselect 04-25 when I am going to dbclick on that item the name "ene" shall I display in a book Any Help Lenny

Member Avatar for LeNenne
0
148
Member Avatar for LeNenne

Hi I am going to be crazy I have a txtbox with 1950-04-23 How can I extract just 1950 from that box and take the pc's date ( as today is 2013-04-23) to a label.caption and the result shall be 63 years in the labels caption. Lenny

Member Avatar for LeNenne
0
124
Member Avatar for LeNenne

Hi I am going to solve a problem and have now idea of how, I will that in the list1 only those people that correspond to the date of the date is showing. No one else than that one of the day the word Prn is standing for birthday in …

Member Avatar for LeNenne
0
171
Member Avatar for LeNenne

Hi I know how to make just numeric textbox, but the problem is that I wisch to enter in the text box wit 2 numbers and then search trough a database to recive just zipcodes. Lenny

Member Avatar for Jx_Man
0
98
Member Avatar for LeNenne

Hello How to change the resolution in VB6 ??? If one have 1200x900 and other have 800x 600 how can VB6 change or know what resolution the user have. Thanks Lenny

Member Avatar for LeNenne
0
190