Search results

arage, not sure if I am following you but is this what you are looking for? cmdOA.SetFocus

I just tried this one out and it works and is already coded for you. Here is the link right to the file DefaultPRT.ZIP, a sample Access 97 project for changing your default printer at runtime. If you're printing, and want to change the output device simply, this code is for you. The entire...

Originaly I wasn't going to post this link because it does not directly answer your question. However, I think the solution may be in the details. Chapter 10: Controlling Your Printer I hope that helps

Ken, I think I will file that under, "Doh, Why didn't I think of that?" I did have to modify it slightly to force upper case letters into the field like this: KeyAscii = Asc(UCase(Chr$(KeyAscii))) If (KeyAscii = Asc("H") Or KeyAscii = Asc("D") Or KeyAscii = _ Asc("X") Or KeyAscii =...

Rich, these codes come off from a sheet provided by the county that the work is being done in. It will vary county to county and job to job. The reason for the Sub is to produce a quick cheat sheet for the job superintendants with all the time specs. Otherwise they have to figure it out by...

connieharper, I couldn't come up with nothing on the KB that matched your problem. So let me ask you a few more questions. Are you on a network? Are you using an internal mail server or one through an ISP? Is Outlook Express set as the default mail client on the machine that is having problems...

charityg, My first post was taken from the form that the state provides us, so it was easy to make that relatively clear. I knew the end result I needed to get to but I didn't know how to get there. So it was just a matter of breaking it down into steps I could understand. The cool formatting...

Now on the Keypress I tried this: Private Sub CodePick_KeyPress(KeyAscii As Integer) If (KeyAscii <> Asc("H") Or KeyAscii <> Asc("D") Or _ KeyAscii <> Asc("X") Or KeyAscii <> Asc("B") _ Or KeyAscii <> Asc("T")) Then KeyAscii = 0 End Sub But that doesn't let any keys into the text...

Thank You that worked great. Although I think I am going to need to do something on the key press event so that I can catch the characters as they are entered. Here is what I did with the code you give me: If IsNull(CodePick) Then strEval = MsgBox("You must include a value", vbOKOnly...

This is a add on to my brain teaser, I can make sure that something is entered into the text box with this: If IsNull(CodePick) Then strEval = MsgBox("You must include a value", vbOKOnly, "Entry Error") Exit Sub Else Now is it posible to limit the entry characters to only B, H, X, D...

Thanks Fornation, this is much better: Dim myArray(8) As String myArray(1) = " - 9th Hour Mon-Fri" myArray(2) = " - 10th Hour Mon-Fri" myArray(3) = " - Over 10 Hours" myArray(4) = " - First 8 Hours Saturday" myArray(5) = " - 9th hour Saturday" myArray(6) = " - 10th Hour Saturday" myArray(7) = "...

Ok I am a little embarrassed to post this. My method is pretty barbaric, and I think it shows how much I have to learn about programming technique. Anyway here is what I come up with: Dim myArray(8) As String myArray(1) = " - 9th Hour Mon-Fri" myArray(2) = " - 10th Hour Mon-Fri" myArray(3) = "...

To help keep this question from going in seperate directions here is the other post. Topic: SendKeys/Compact inconsistencies - From the forms section.

Doug, I am not sure I understand. At this point I need to take the code and list what the letter stands for so in a case of a HHHHDDDD I would get this: H - Poisition 1 - 9th Hour Mon-Fri - Time & 1/2 H - Poisition 2 - 10th Hour Mon-Fri - Time & 1/2 H - Poisition 3 - Over 10 Hours Sat - Time...

I think an imeadiate If will do the trick for you. It works this way If Something is True Do Something If not Do Something else. The syntax looks like this: IIf([RateTime]="ST","Time","Time 1/2") So if RateTime = ST Time will be returned if not Time 1/2 will be returned. In your case you need...

henny, you may also want to check this more recent thread here: Topic: E-mail Field It may be a little more relevant to your situation.

I am stuck on the last step. Along with the message I need to add one more part. Here it is: B = Basic HR Rate H = Time & 1/2 X = Time & 1/2 Over 40 D = Double Time T = Triple Time By altering my arrays to this: myArray(1) = " - 9th Hour Mon-Fri". Then say the first chacter is a H, I would get...

Are the external mail clients the same as the internal? You may want to use something like this in place of the SendObject: Set EmailApp = CreateObject("Outlook.Application") Set NameSpace = EmailApp.getNameSpace("MAPI") Set EmailSend = EmailApp.CreateItem(0) ' send the created file from above...

Ok I think I have it now. I just need to modify the following and I think I have this problem solved. I will be back if I have more questions. Thanks to all of you for the help! Dim myArray(8) As String myArray(1) = "Number 1" myArray(2) = "Number 2" myArray(3) = "Number 3" myArray(4) = "Number...

Ok this is what I have so far: Dim I As Integer Dim strEval As Integer Dim OC(8) As String For I = 1 To 8 OC(I) = Mid(CodePick, I, 1) Next I strEval = MsgBox("Position 1 = " & OC(1) & vbCrLf _ & "Position 2 = " & OC(2) & vbCrLf _ & "Position 3 = " & OC(3) & vbCrLf _ & "Position 4 =...