No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
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 … |
|
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") … |
|
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 … |
|
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 … |
|
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 … |
|
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 |
|
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 … |
|
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 |
|
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 … |
|
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 … |
|
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 … |
|
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 … |
|
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 |
|
Hi How to kill a file in this format kill App.Path & "\backup\backup\PhoneTel.mdb" & Format(Now, "yymmdd_hhnn") & ".mdb" Lenny |
|
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 … |
|
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 |
|
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 … |
|
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 |
|
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 … |
|
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. |
|
Hi and thanks. I am wondering if there is a way to clear the screen before the program is loading. Lenny |
|
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 |
|
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 |
|
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 … |
|
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 |
|
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 |