Search results

The fact you are switching between machines makes me suspect references could be the problem. I would check your references to make sure that none are missing. I seem to recall having a similar issue when Access would automatically update the links to a new library on one machine then not run on...

Seems to be the hard way to do it. Why not just reread the code from the key at regular intervals? Not necessarily with a timer, you could use an event to trigger it, such as when a record is saved. HTH Peter

I dont use macros, but I assume the you are looking for "Exit Sub" which will let you jump out of code. Normaly you would use 'IF' type statements to control the flow of the code. I came from Excel so I was more used to VBA than macros any way, but I did miss being able to record macros like in...

Did you do as RuralGuy suggested and just try importing bits of it? Another thought Tools>Option>View and check 'show hidden objects' to make sure that they have not just been hidden, though I don't think that would stop you importing. Also try Windows> Unhide to make sure it is not hidden...

you need to set a reference in any module- Tools>Reference... and scroll down and select the Microsoft Excell object libary. HTH Peter

looks to me as if 103 and 104 both qualify :) have you upped TotQues in For x = 1 To TotQues to reach 104? Peter

it is that easy. in what way is it 'not working'? If you have missing values then you will have more of a challange. Peter

I just provided the spaced version to make it easier to see, but I should have made it clear that it was the other version to use :( Peter

what data type is projno? peter

my guess would be that projno is text so you need to wrap it in quotes Set rs2 = db.OpenRecordset("SELECT projmanager FROM Projects WHERE projno ='" & rs!projno &"'") Spaced out that is - =' " & rs!projno & " ' ") HTH Peter

How to do it will also vary on how many reminders you expect to generate. one a week and a Msg is fine, 25 a day and a msg box will be a real pain. I would just create a form based on similar SQL to Fred's and have it pop up when the db opens, you could also get clever and add code to pop it up...

I would use a form that is opened when the database opens and set to invisible this way it will be running all of the time. You use the timer event of the form to check if it is time to pop up the message. How frequently you check against the time depends on how accurate you need to be. In this...

you have it back to front :) you call the function from the code, but I would just combine the two in this case Private Sub txtDiscount_AfterUpdate() If Not IsNull(Me.txtDiscount) Then If InStr(Me.txtDiscount, "%") = 0 Then Me.txtDiscount = Me.txtDiscount / 100 End If End If...

.Name = "" & rec!SOBP & "" and looks like unneeded quotes .Name = rec!SOBP Peter

You need to delete the links first and then make new ones, after that the Linked Table Manager will remember the password HTH Peter

you will need to add the names as variables Dim strTable As sting Dim strSheetName As sting strTable = "RN00144GE3RFG" strSheetName = "JO-" & Left(strTable, 10) Set objRST = Application.CurrentDb.OpenRecordset("SELECT * FROM " & strTable & ";") Set xlSheet = xlWorkbook.Sheets(1) With xlSheet...

if you relink the tables it will ask for a pw and then remember it for future use Peter

Its a three part iif statement that returns a year number using either:- Year([myDate]) - 1, if the month is 1 but the week is >50 so a week 52 or 53 showing up in january 2008 would get year 2008-1 = 2007 Year([myDate]) + 1, if the month is 12 but the week is =1 so a week 1 showing up in...

But do you need to plan ahead? will you at some stage want to start again with B001 ect. Peter

oop :( Always thought a variant was a null not an "" before it was assigned. Suppose that this is a case of Nulls propagating again, but then why does it not always end up with a null Peter