Klahr_R

It appears you are trying to change data in the record set with out and edit method In the line before the error add rs2.Edit

This is code I use in one of my Excel applications. The trick is the AddPicture method that requires a top, left, width and height. These values are picked up from the Range (D2 in this case). Since my image is not the shape of the cell some adjustments need …

NOTE: Make a Reference to Adobe Acrobat X.x Type Library NOTE2: This is untested code since you need Acrobat Pro (AP) to automate Acrobat (or so I have read) and I don't have it. If you have AP the following code should get you close to what you need. It …

Epson is a make of printer. You put the name of the printer you want where it says Epson.

If you are reading the characters in a string then Dim aChr as String Dim X as Integer For X = 1 to len(MyString) aChr = mid$(MyString,1 ,1) 'do code Next X If you are reading from a file that will be different.

Do you mean like an Identification Card?

I'm sending a PM

`App.Path` Will look in the current directory. For what it is worth, when I depend on data in a txt file I set up a conditional compile so that when I'm doing development I use a string set to the future path. When I Make the project to its home …

Please post in .NET forum

I'd do it this way in a code module Option Explicit Private Sub WkShtSums() Dim Sum As Integer Dim i As Integer For i = 1 To 10 With ActiveWorkbook.Sheets(i) Sum = Sum + .Cells(6, 3).Value End With Next i End Sub

See if [this](http://msdn.microsoft.com/en-us/library/89211k9b.aspx) is what you are looking for.

See if [this](http://stackoverflow.com/questions/1681721/vb6-windows-media-player) helps. Or maybe [this](http://support.microsoft.com/kb/272487).

I tried [this](http://www.go4expert.com/articles/test-users-internet-connection-vb-t2557/) code and it seemed to work.

I am not sure I follow all the details. If I have this right you want to cycle through all the sheets in a work book picking out items that match items in the Calculating Sheet. When a match is found you want to add, in the Calculating Sheet, to …

In the form being called Make the Sub Public Option Explicit 'Form 2 has 1 Text box Public Sub ChClr() Text1.BackColor = vbRed Form2.Show End Sub In the calling form: Private Sub Command1_Click() Form2.ChClr Form2.SecondSub Form2.ThirdSub End Sub

You can start your code any way you please In this example I have used the Workbook_SheetChange event in the Workbook code module. This event can be triggered by changing a specific cell in a specified sheet. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim RetVal As …

posted on wrong thread.

If I read you correctly then try this Select Brand, Brandname From Brand

You might want to read [this](http://us.generation-nt.com/answer/ubound-empty-array-err-9-help-14788402.html?page=2). Just playing with it the Erase sets UBound to -1. Skip the erase

Hi ViVi, 1. .ListCount start counting at 1 So that part looks right in your last post. .Selected is Boolean and indicates either that the user has selected an item or .selected(i) = true selects item i in the list (starts counting at 0) If list2 is empty i will …

Tagging on to deceptikon "Better" is [subjective](http://en.wikipedia.org/wiki/Subjective) thus in the eye of the beholder. So who is beholding your "Better". Is it you? Is it your co-workers? In 15 years of field service the question always hung in the air: who decides what is good-enough? The answer is almost always: …

What kind of file, and to where?

VB will attempt to coerce a value into the type required for use. If the text has a value that can be coerced into a number then you can use math operators on it. However if the text box has text in it then the text cannot be coerced into …

Do you have access to MSWord? Word has a Tools\Letters And Mailings\Mail Merge Wizard Suposedly you can connect to any DB but they seem to favor Access. It allows selection of the Make and Model of mailing label and pretty much does everything else for you. Perhaps someone else has …

I can't write your query but I think I see the logic problem. Will the retailer that has no activity exist in the tmpVoucherIssues table? You need to use a table where all retailers are present. [This](http://www.vb6.us/tutorials/introduction-sql-structured-query-language) looks like a prety good review tool.

Some code would be helpful! I'm going to make a coupld of gueses and offer this Private Sub Form_Load() With Combo1 .AddItem "Apples" .AddItem "Pears" .AddItem "Oranges" .AddItem "Plums" .AddItem "Grapes" End With With Combo2 .AddItem "Carrots" .AddItem "Celery" .AddItem "Tomatoes" .AddItem "Potatoes" .AddItem "Turnips" End With With Combo3 .AddItem …

There seem to be some good reasons to keep a system up (customer using it, reduce power surges) There seem to be some good reasons to shut it down (save energy, clear memory of orhpan objects) How often do you shut down your computer(system) and why?

try SELECT Password FROM User Where UserID = txtUserID

I believe [this](http://msdn.microsoft.com/en-us/library/aa261314%28v=vs.60%29.aspx) is exactly what you ask for. If the link is broken you are looking for "adding a function control to a data report".

I work with VBA and VB6 so I miss some things. I notice in sample code that some folks use if MyString <> "" then and others use if Not MyString = VBNullString Is there a difference, and why? Thank you in advance

I am assuming you are using the Lan monitoring code from yesterday's post. Where the msgbox pops up, replace that code with If you have included the timer to monitor the connection then it will continue to execute at the given time Interval. When the You Are Connected condition returns …

Try this SELECT Field1,Filed2,Field3,. . . FROM Table WHERE FieldX = DesiredValue

Well, I don't know if it will help but some possibilities: 1. If your DB is empty 2. You have a Jet DB that won't support adOpenDynamic 3. Try adOpenKeyset to see if the problem goes away (Yes, I understand you won't have real time updates, but you might be …

I think what you ask is not a simple question. The "unknown number" bothers me. Are they localized to a single drive or root folder? Too many unknowns. If it was me I'd probably use the File System Object to loop through folders known to contain MDB files. Option Explicit …

So you want to delete everything in the DataGrid, (recordset) Private Sub Delete_cmd_Click Do While Not Adodc1.Recordset.EOF Adodc1.Recordset.MoveFirst Adodc1.Recordset.Delete Adodc1.Recordset.Update Adodc1.Recordset.MoveNext Loop End Sub

> i want to see only the characters that i have entered and the other will not be shown in the table of datagrid. Not sure what you mean by "the others" Do I remember this right? The ADODC indexes through the data base displaying results in the Data Grid …

I found a how to send with out Outlook that covers both Outlook and sending with out outlook. [here](http://www.tek-tips.com/faqs.cfm?fid=179). The Not With Outlook appears to have a way to use attachments. However it requires a Reference to CDO 1.2.1 which can be downloaded [here](http://www.microsoft.com/en-us/download/confirmation.aspx?id=3671) And it requires Outlook 2007 to …

You seem to have asked this question and it was MARKED SOLVED about 3 months ago. [Here](http://www.http://www.daniweb.com/software-development/visual-basic-4-5-6/threads/453573/clear-screen) It isn't clear to me how you have a blank screen (not since the good old days before Windows). There is always the desk top even if you close or minimize everything else. …

Almost the same as rishif2 gave you the other day. The difference is to use the "Change" event instead of the Lost Focus event. This causes a problem when starting because when the value of the first box changes the value of the second box is Text2 or some other …

Are you getting fault codes or messages? Are all users on the same Windows version (this could change location of AcroRd32 ? Are all users using the Adobe Reader 10.0 ? Is your target PDf in the same path for all users?

I will assume this is a post an hour before you posted a more exact question. Regards

Sheet2.Range("A16:M20").PrintOut

If you are asking for code to drive the form, that is a bit beyond what this forum does. However here are some ideas that may help For the browse button consider using the common dialog box: click Project then Components then find MicrosoftCommonDialog X.x and the control will be …

Since this has been here for 8 hours, here are some suggestions: Must ask how necessary it is to open the PDF "in" vb6. If you can use vb6 to open a PDF in Adobe the Shell Execute API offers some possibilities to open and print PDF. A bit of …

I will assume this is the same question you posted an hour later, which has been answered.

You have 3 "If then" statements where you put the action on the next line. Either put a space and an underscore "_" after the then, or leave the action on the same line, or put an end if after the action. You get the end with bceause the program …

A simple timer for Excel VBA Excel VBA does not have a timer control. The alternative is to use the Timer() Function, and that leaves much to be desired. This code should be placed in a code module. My need was to tend to an abandoned program that was waiting …

I'm not sure I understand your whole question but here is code I did in Excel 2003 that will do what I think you are asking. Dim MyRow As Integer Dim MyCell As String Dim LookCell As String Dim TargetRow As Integer Dim TargetRange As String 'Find first open row …

This is the vb 4/5/6 forum. You will probably have better luck if you post on the VB.NET forum A bit more detail about what you want to accomplish would be helpful.