Visual Basic :: Real, Real Hard, Almost A Challenge

A Real Challenge!
This is the first time I'm trying to write a macro for Excel...so it might not be that tough a nut to crack for u guys!

Objective: 'Read' Data from a single cell from column A(skip blank cells) from Sheet 1 and 'find' the same in column A in Sheet 2. 'Copy' the data right next to the cell (column B-same row-Sheet 2) and paste the same in column B in Sheet 1. ( next to where the original data was taken from ie column A-Sheet 1)

ANyone has already written a script for this???

I tried and landed up with this one...(it doesnt work but I fell I'm close and only some tweaking is required...but then again I might be wrong!)

Sub Macro2()

' Macro2 Macro
' Macro recorded 7/9/2003 by Hitesh
'

' ****** Check with Cells form 1 sheet to another and copy relative info back to the sheet

Application.ScreenUpdating = False And Application.Calculation = xlManual
Application.DisplayAlerts = False

Sheets("Sheet1").Select

For i = 1 To 200

varNo1 = "A" & i
varNo2 = "B" & i

Range([varNo1]).Select

' If Selection.Value "" Then (Cant get this IF function to work!!)
' Next i
' End If

' If Selection.Value "" Then Next i
' Selection.Copy

Selection.Copy

Sheets("Sheet2").Select

Cells.Find(What:=Selection.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

ActiveCell.Offset(0, 1).Select
Selection.Copy

Sheets("Sheet2").Select
Range([varNo2]).Select
ActiveSheet.Paste

Next i

Beep

End Sub

Looking fwd to hear from you...even if its only to say that the code is absolutely 'useless!!!'

Hitesh

A REAL CHALLENGE
Hi people,
Trying to develop a database system through MS Access that allows automatic emailing to whoever when a time limit expires.
ie: A problem/resolution support system - A time stamp will be entered when a form is accessed, then according to urgency (1 hour) it will calculate that and send an automated email. Anyone know any coding for this????
Please Help!!!

Real Challenge!!!
How do I Drag and Drop columns on a Spread VB ???
Senx
E.

Real Challenge Code!
Hi to everyone

it's my very first post!

My problem is of mathematical nature and I don't know if I’ll get any response at all, but I’ll try. Please be patient while reading 'cause it's quiet a complex problem.
I think I’ll explain the problem best with an example:

1. I have an initial number X=100(Dim X as integer -> x=100)

2. I have a (Access-) table with one column containing 5 records of numbers:
33
30
25
20
17

3. I want to know: the SUM of which COMBINATION of these 5 records equals the initial number 100?

->easy: 33+30+20+17=100
->this is the only possible COMBINATION of records which returns the value 100

Any other sum of any combination wouldn't give me 100 -> 33+30+25+20+17=125
or
33+20+17=70
or
30+25+20+17=92
or,or

Note this is just an example! the number of records of the table isn't defined-it can be 5 (like here) or 50 or,or. And the initial number is also not defined-it can be 100 (like here) or 12 or,or.

A much more easy example:

1.initial number is 4
2.records in table:
1
2
3

-> only 1+3=4, any other combination (1+2 or 2+3 or 1+2+3 or just 1 ect.) won't return 4

Well, not to easy is it? But maybe someone can help me.

Rasitlin

Real Real Real SImple Question!
how could I make a 'if not equal then message box an error' in this part of the program

Private Sub Command1_Click()
MP.FileName = File1.Path + "" + File1.FileName
MP.Play
End Sub

Taskbar Systab (a Real Challenge)
If you start a program, sometimes there appears asort of button in your taskbar for the window that is created with his icon and caption, which is a tab on the systabcontrol. how can I determine what is the size and position of the tab created by my form.

String Manupulation...real Challenge.. Peet, SLH Etc..
Hi everyone... anyone think they can do this? peet, SLH.. guys?

you have a string made up from words of A,B and Cs.. e.g.

ACB CABC BACCA ACBBA

in each word...

The first character would be replaced from A, B or C (depending which one it is) to 1, 2 or 3 respectively.

then for the middle character to 4,5,6 (depending if middle was A,B or C respectively)

then for end character to 7,8,9 (again depending on what it is)

So to make it clear...

Begining Char
A = 1
B = 2
C = 3

Middle Char(s)
A = 4
B = 5
C = 6

End Char
A = 7
B = 8
C = 9

so for example.. (I color coded it to make it easy)

ACB CABC BCCA ACBBA

would be

168 3459 24667 16557

what do you say guys?

this is ment to be part of an algorithm am making... but am not very strong in string manupulation but am learning...

Abe

A Real Challenge - Hiding Tray Icons
Can anyone tell me how to hide the tray icon of another program? Is that even possible? Thanks ahead of time.

Maintaining Audit Trail In MS SQL Server 7.0 Using VB 6.0-Real Challenge
Hi Everyone,

Can anyone tell me how can one track any changes made to the ANY Data in ANY Tables in SQL Server 7.0 database using VB?.

If some one does the changes using Enterprise manager, I am not bothered. However if somebody changes using the VB Program written by me, then I need to maintain a log of changes. I don't want to write a checking routine to all the textboxes, comboboxes, grids etc, if the data has changed as the application is massive and I have nearly 2500 fields in it.

Is it possible to read the Transaction Log and get the necessary info out of it?

Any help is very much appreciated and thanks in advance.

Shashi.

Only Real Pro To Hard
How Can i Make fonts all fonts in MIcrosoft Controls
Smaller In %

Like if font Height is 10 Pixels i want to make it 10% Smaller
so it will be Height 9 Pixels.

Real New-Real Green-Really Over My Head HELP Anyone-Have A Monday Deadline?
This may seem nuts but i am really over my head. I have VB6 & Access2002. Learned it outr somewhat over the last 2 weeks. And now I need help.................................................................

I have figured out how to get a great working Drop Down Combo box in Access but when it comes to VB6 SP5 I can get a box but can't link it to a record set? 2 days searching on the internet and nothing.

I had created project through the use of the application wizard but for some reason I am unable to pin point how to get the Drop Down Combo Box to see the Access Database... Any Ideas????? All the other text boxes are pointed and see's the database. For that matter there are 6-7 of the text boxed ones I want to change to drop down ???

For Me It’s The Real Important Question That Waiting Real Answer!
Hello,

For me it’s the real important question that waiting real answer.I’m the average VB programmer now but I want to change it and want to being an excellent programmer.I love programming but its not only entertainment for me , it’s a work . I’m working every day for improving myself in programming(VB and starting SQL 7.0)
I will finish my school in two months later so I must find a job now.My school is about electronic not programming.I don’t know that Is my proficiency enough for starting to work in a software firm? For being a good programmer what is your advice : Should I start to work in software firm with low salary till I will become a good programmer? =OR= Should I work in hardware or etc.firm and continue to working for learning programming in my house till I will be very good at programming?

Hard Question For Real Guuru...
Hi,
I am trying last 4 days to take highlighted text in some application into my program. To explain : when my program is active,he need to grab text whenewer user select(hightlight) some text in ANY other application (such word,outlook...any...) I am trying with API for last 4 days. I can get with API functions,active window handle,and active controle handle on that window,and text from that control,but how to do the rest of job ?

Real Time Graph... ( A Bit Hard )
How can i make a real time graph of the CPU usage?

or how can i make a real time graph of anything?

thanx in advanced...

How Can I Get The Real IP?
Hi!

With this line, I can get the local IP, but I need to know what is my real IP.

Text1.Text = Winsock1.LocalIP

Thanks!

Real IP
How do i find the real ip and not the lan ip? perferablly using the winsock control.

How Can I Get My Real IP?
Hi everybody!

Does anybody knows how can I get in Visual Basic my real IP?
Is for use in a program to transfers files between users like Msn or Irc, but with the "retry" possibility ... but I want to do that the programa says your real IP.

Thanks, and sorry for my English, but I'm from Spain :P

Real Dos App In Vb?
I'v seen many threads but many solutions are in dos capture.
I'd like to know if is possible to make a Dos App in vb.
I don't have vb.net...it's vb 6.

thnks

Real Name - Plz
Hello everyone. First off I would like to say this new theme rocks! Well I am making a simple program but soeem to be having trouble. I want to use winsock or Inet. Don't matter which one. On my form I have 1 text box 1 command button and 1 label. In my text box I type a name and then presss the command button. When I press the command button I want it through winsock or Inet to go to http://profiles.yahoo.com/ and then the name of what is in text box. Then on the page there will be a palce called Yahoo! ID: and then after that will be a name. What I am trying to do is get the "REAL" name of the name in text box. For example if I put in big daddy it is really Big Daddy so I want it to go to http://profiles.yahoo.com/ and the name search the website for Yahoo! ID: and return what is found there to label 1. I have done this through web broswer but enevr through winsock or Inet. So I would appreciate any help or suggestions very greatly much. So thanks in advance and have a good one guys and gals.

Real TTF Name
Does anyone know how to get real font name without api (using Open "font.ttf" For Binary Access Read) Or perhaps anyone has info about TTF file structure?

Need Real Help!
create a table that has the values and combonations!

Col1........Col2.......Value
Apple......Orange......1...
Apple......Banana......2...

etc... then

"SELECT Value where Col1 = '" & combo1.text & "' and Col2 = '" & combo2.text & "'"

so this would be:

Seletc Value where col1 = 'Apple' and Col2 = 'Orange'

get it? then there is not 100 diff if thens... just add them to the table.

Real Ez
can you not set a visable property to a command button?????

well I tried doing this
all the ones with the MI AND PL are command buttons I am trying to hide them becuase in case 2 we dont need to see them
well I am getting a method or data memeber not found???
Case 2 'qB
BCMI.Visible = False
BCPL.VISABLE = False
RCMI.VISABLE = False
RCPL.VISABLE = False
QKMI.VISABLE = False
QKPL.VISABLE = False
AKMI.VISABLE = False
AKPL.VISABLE = False
KAMI.VISABLE = False
KAPL.VISABLE = False
ACMI.VISABLE = False
ACPL.VISABLE = False
PCMI.VISABLE = False
PCPL.VISABLE = False
QUICKMI.VISABLE = False
QUICKPL.VISABLE = False

BC.Visible = False
lbc.Visible = False
RC.Visible = False
lrc.Visible = False
QK.Visible = False
LQK.Visible = False
PICK.Visible = False
LPICK.Visible = False
KA.Visible = False
LKA.Visible = False
KB.Visible = False
LKB.Visible = False

Thanks in advance
Matt

Real Ez
I am having a brain fart
the differnce between dim and global is what
dim can be called in just 1 form and
global can be used in all forms?

Sorry
Matt

Real Different Between This.
Can anyone tell the different between this:

a) Doing this
Private Sub SSOleDBCombo2_Click()
Text4 = SSOleDBCombo2.Columns("Descripción").Text
Region = SSOleDBCombo2.Columns("Region").Text

AdoPueblo.ConnectionString = ReqCompras <-- This

SQLPueblo = "SELECT * FROM Pueblos " _
& "WHERE Region = '" & Region & "';"

AdoPueblo.RecordSource = SQLPueblo
AdoPueblo.Refresh
End Sub

b) Or This
SQLDiv = "SELECT * FROM Division " _
& "WHERE Division = '" & RsSuplidor!Division & "';"

Set RsNivel = New ADODB.Recordset
RsNivel.Open SQLDiv, ReqCompras, adOpenStatic, adLockOptimistic

I mean: The real different of .connectionString or
the part b. In fact both (i think) do the same thing

REAL HELP
please help me use insert and update SQl Commands

I know the syntax of them and used them ,but inquirey is that I do not know what to write for currency and date type fields ???

I mean I use this for string : "'" & text1.text & "'" while no thing for numeric

but what should i use for currency and date types ????

help me please

NO Pain NO gain

Challenge! (Probably Not As Hard As I Think, Right?)
This is a neet piece of code I want to add to make a report "Tupid Proof" so as not to have user entry errors that I have to correct every day (such as entering comments in a numeric field killing the equations...)

Can anyone make it so it can be set to specific cells throughout a worksheet or better yet a workbook?

Code:==================================

Sub auto_open()
'Set the WatchIT macro to run when data is entered into Sheet1
ThisWorkbook.Sheets("Sheet1").OnEntry = "WatchIT"
End Sub

Sub WatchIT()
Dim isect As Excel.Range
Set isect = Application.Intersect(Range(ActiveCell.Address), _
Range("A1"))
If isect Is Nothing Then
'Do Nothing
Else
'You just entered into the defined area "WatchArea" on
'"Sheet1" add other the desired action code here or call
'another routine.
'Example below will alert the user if the data value is less
'than 0 or greater than 100 or is not a number and clear the
'entry. It will also give a confirmation beep when valid
'data is entered.
If (Val(ActiveCell.Value) < 0 _
Or Val(ActiveCell.Value) > 100) _
Or Not IsNumeric(ActiveCell.Value) Then
ActiveCell.Clear
MsgBox "The data value must be a Number between 0 and 100"
End If
Beep
End If
End Sub

Real 3d Problem
- An atom can be represented as a "ring" in 3 dimensional space.

- If an atom consists of 8 nodes then 8 3d coordinates define its position.

- The 8 nodes are connected between them with a "line", the 1st with the 2nd, the 2nd with the 3rd,...,the 8th with the 1st.

- The nodes are allowed to have very "messy" and free positions (i.e. lines will normaly have to cross each other)

- Many atoms exist in a box of length L.

- X, Y and Z take values between [-L/2, L/2]

- If a node has to move out of the box, it appears again from the other side (of the box). This is called "periodic boundary conditions".

- An example file with the coordinates of 5 atoms (therefore 5x8 3d coordinates) is attached to this message. L = 5.6

- The one who will give me a NICE representation of the 5 atoms in the box will have (appart from the mental satisfaction) an icecream with cookies!!!

Real PROBLEM!!!
Hello there, first off i would like to say hello to you. I would like to know how could I draw (write) some text onto the screen while a fullscreen Direct3d game is running.
I had suggestions about this problem. Some guy told me that I need a few API functions to find the window handle and then set up a DirectX "outpost" to draw on this window, but I don't have idea how to do it and I need help.

I saw this question several times and nobody has correct answer. I hope somebody will help me at this time

Thanks.

Real Games In VB
does anybody know of any Commercial games done in VB and if so are they open source?

Real Time
For a while I have been working on a real time strategy in VB6. I knew it wasnt designed for that kind of thing but i tryed anyway. It turned out alright but it cant handle the myultiple things going on at once. Does anyone know of any languages that are more fitted to this task. Or if you can help me stop slowdown of the game the more guys you have plz do.Thx in advancce

Real Challenging One
I have a form.It has one text box in it.The text box has its control source property set to a field value in a query.Now I made the form's default view as "continuous forms".Now when I run it,I see a number of text boxes (equal to the number of values in the query).Mind you all these text boxes have the same name that we gave earlier,as basically it is the same text box displayed repeatedly with the value of a new field.Now how do I make it such that when we click on one of the textboxes it makes the font of that text box ONLY bold.Now if I do that all the text boxes are becoming bold as you know they are the same text box basically.Could any one suggest a way where I can distinguish each occurence of the textbox individually?I mean I should be able to click on one text box and it should either become selected(i mean text in it selected)or it can become bold thus distinguishing a clicked text box and remaining unclicked ones?

Help A Real Noob
Plz dount hurt me whene i say this but where can i get dx7 plz tell me

thx in advance

~Devil~

Real Time
Hi everybody

I making a simply program to compare connections to databases using MySQL between using ADOdc (with DSN) and ADODB connecting directly.

I would like to know the time (with miliseconds) that spend both connections, I think that I could use Timers Controls, but I don't know "at real Time" 'cos using Timers the time I get is not real (although I use DoEvents)

Need Help Real Quick
Well i need some help on this... there's an input box where the user enters in a name first name / last name than it'll display in a label box the word backwords say..... Alex Dean it'll be naed xela.. i know we use For..Next and count backwards but that's farthest i could go

StrReverse is quicker but im to use For.nextt

A Real Puzzler!
I have a Picture box on a form. Using the Point command and Form1.Line command, I redraw my image 2X it's original Picture box size, directly onto the form. The image I have is currently reduced to 32 colors. What I have been trying to do, is after I redraw the image onto the form, I have a routine that finds all the edges of each of the 32 colors and then redraws the entire drawing showing the edges in black pixels and everything else in white. Essentially this is outlining the different colors with a black line. The problem I cannot get around is, since there is no pixel between two colors, it is drawing double lines where two colors meet (one pixel on one color's edge and the other on the other color's edge). I want single lines, but do not know how to tell my program how to decide which color to pixel and which not to. It doesn't matter which color gets outlined, but the problem is, If I arbitrarily have the program decide which color to outline, it will leave "broken" areas in the lines and I don't want that either. I use Paint Shop Pro and have tried using the Edge functions to produce the same results as I am in VB. The problem with PSP is that, it outlines in very pale colors and misses areas. I wish to print out the final results.

Has anyone ever tried to do anything similar to this, or does anyone know of a PSP plug-in that will do this?

Thanks,
Joe Barber

Real Audio
I want to know where I can find commands or does anyone know how to make a real audio player. Even a simple one. I can't find the commands anywhere.

A Real Stumper
I just finished a screensaver creator package. Now, I want the program to output the completed .scr in an .exe format that can be installed "Just like the big boys do". Can anyone shed some light on how/if this can be done in VB 6.0?

Many thanks,

Ronnie

[Q] About Timer This One Is Real
ok....
When I set timer's interval to 100 or something
it will wait 100ms for the start
and repeat the sub every 100ms.
I want the timer to start right away then repeat the sub
every 100ms.
HOW CAN I DO THAT?
THANKS FOR HELP

Real Novice
Im a bit embarrased to post this but here goes.
I haven't used VB for a long time, and only covered the basics in my courses.
I have two forms, and i want to use a value(string), from one to the other. I would prefer to declare it for global use accross forms, but it wont make itself available for the second form.
I know this is a real novice question.
Please help

Real To Hex Conversion
Hello,
I want to convert the real number 0.5060 into an hex 3F 01 89 37
I've tried using the Hex function as Hex(0.5060) and obtain 1

can you help me, please?

How Can I Know The Real Height ?
Hello all,

I wold like to know the real viewable height of the form
to be able to find half . . . when trying to locate an image
in the middle of the screen by using -

Code:
CInt(.Height / 2)
the image comes up a bit lower then the middle . . . why ?

Thanks,
Eddie.

Real Quick ?
I need to create a random 15 digit number?

Can someone give me a quick example?

Thanks

Adam

Should Be Real Easy For Most Of You
Hello, I'm new to the forum and I'm hoping someone here would be able to help me out. I am far from a experienced programmer, but hey we all have to start out somewhere right . Hopefully someone will be able to help me out VERY easily with this problem as it is one you would most likly see in a "Learn VB Today!" kinda book.

Okay, say you have a list of numbers 1-10 for example. And you want to select a random number from that list and print it in a text box or something, you would do something simple like "variable = int(rnd*10)+1". Now lets say when chosen at random the number 6 is picked then the number 6 is printed in a box. Then you want to pick another number at random to print in the same box excluding the first number picked. So the domain of numbers to select from is now (1,2,3,4,5,7,8,9,10). How would I write a line of code to randomly generate a number from 1-10 excluding the first number chosen? Thanks in advance to anyone that can help

Real HTML To RTF?
Okay, I found an HTMLtoRTF function on pscode and it works great...EXCEPT! It doesn't have support for the background color of text. for example: <font color="#ff0000" style="background-color:#FF9900"> blah </font> whenever it spits it back out to rtf. Does the rtf text even support a background color on the text? If not, should I be using something else?

I've run out of ideas..

~nick

Real Quick
Whats wrong with this line?

Code:
Form1.List1.AddItem(Text1.Text, Form1.List1.ListIndex)

Looks perfect, but it errors on "additem" and says "Expected variable or function" Thanks yall

Real Random
i used rnd for randomnumbers before but this always takes the same numbers
is there another way for randoms?

thx in advance

Need Real Help With Searching A DB
Please could someone help ASAP, i have created a Access database using the VB application wizard and the dataform wizard. I have selected the Remote(ODBC) option and ADO code binding type when creating the project.
In my Database i have 5 tables with numerous coloumns in each table.
Everything is fine except when i need to search. What i want is, when i open a form, it displays the first record, i want to click a search button and a input box appears, i type in the word i want to search for and it searches the table in the database associated to that form and displays the record in the form.

this is what me form load says

Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=SimData;uid=;pwd=;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select [Item Number],[Item Description],[Attached to],[Other Information] from Additional", db, adOpenStatic, adLockOptimistic

Dim oText As TextBox
'Bind the text boxes to the data provider
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next

mbDataChanged = False
End Sub

How do i go about getting this searching thing right, i think i have to use SQL, but am not sure about the syntax etc. I'm quite new to this, so any help would be really really appreciated.