Search results

Thanks for you clear explanation :)~ Thanks Pat...

If all else fails..... You could use the nz([field], " ") function... I always use it as a last resort to assign values where there is nothing or NULL.... regards,

Hmph.. Do you have any type of relationship between the 2? Like an ID or common field, such as Chart name...? If so simple way is to make a subreport from a seperate query/table. Link the sub report by the common field/ID.. Hope this helps if not re-explain.... Regards,

Access 2000? Dim rst As DAO.Recordset Set rst = db.OpenRecordset("temp1", dbOpenDynaset) Was 2 lines I made corrections on to add the string to the table. If this fails too, re-assign or requery the recordsource of the table to the combo box after adding it. Regards,

Here... Dim vCnt As String Set db = CurrentDb() Set rsTable = db.OpenRecordset("YourTable", dbOpenDynaset) if rsTable.eof and rsTable.bof then vCnt = 0 else rsTable.movelast vCnt = rsTable(0) + 1 End If rsTable.AddNew rsTable(0) = vCnt...

I agree... You can set fields in a form to disabled or locked. If you want data to be read only it should be outputted to excel or word or snap shot and let them do what they want with it...... Regards,

Well... =IIF([DFC] => 11000 AND [AGE] => 50,"12000", (IIF [DFC] => 11000 AND [AGE] < 50, "11000", [DFC])) '(' in wrong place..... =IIF([DFC] => 11000 AND [AGE] => 50,"12000", IIF ([DFC] => 11000 AND [AGE] < 50, "11000", [DFC])) Regards,

Actually... Reports isn't a bad place to start... Find out all the output desired from the user/owner's.... I mean then you can start drawing up the tables. It makes alot of sense. I wish I had done it that way many times.... If you start by the tables first... You always need to add fields or...

Just a note... You do not need to specify anything in the where clause if your join works. the join establishes the relationship of name = name.... You need not state it in the where clause as well..... Regards,

This should be good... Dim GetMeetingID As Long GetMeetingID = InputBox("MeetingID?", "Enter Meeting ID work with.") If IsNumeric(GetMeetingID) And GetMeetingID >= 1 Then MsgBox "GetMeetingID = " & GetMeetingID, vbOKOnly, "Input Result" Else MsgBox "You must enter a...

He is write, better explain yourself, but... Delete [Chi-town].* FROM [Chi-town] INNER JOIN tblYourSecondTable ON [Chi-town].[Last Name]= [tblYourSecondTable].[Last Name]; This is assuming you want to delete all from your table Chi-town where there names are equal from your delete table...

Would this not work? Make a command button, go to click event and type this... Private Sub cmdRpt_Click() On Error GoTo Err_cmdRpt_Click Dim stDocName As String stDocName = "rptName" DoCmd.OpenReport stDocName, acViewPreview DoCmd.Maximize Exit_cmdRpt_Click: Exit Sub...

Here's one way.... Using VBA you could strip each row building a cross tab type of your own.... Meaning import the table as it is, you don't have much of a choice unless you want to run a macro in excel to clean it up first... So if you import the file in like it is now. You would read the file...

Why not...? I studied the same problem here where I work. I came to the conclusion that I would create an application that would compact all DB's I need compacted and repaired... I created a batch file, so the DB opened automatically on it's own on the weekend's. In an autoexec macro, fired...

Yes, I guess.... You could create a query that would have the TOP 5.... And create another Query excluding records that were equal between your Top query results and the table.... Group by in this query all which should exclude your top 5.... Does this help..?

She did have some NULL values where she may have wanted assigned dates Pat... Also for further reference so you aren't scared to try something, as I still do after all these years... Just work on a backup.... If all your coding works well, just import those object changed into your original....

What I mean is nz(fld1,x) is a function.. it check to see if fld1 is null if it is it assigns x instead, so in your case it would assign a date of your choice to the tables.... AnnualReview would be assigned x where LastReviewDate = NULL & AnnualReview would be assigned LastReviewDate where it...

Private Sub Form_Load() Dim db As Database Dim rs As DAO.Recordset Set db = CurrentDb() ' VReply is your prompt Set rs = db.OpenRecordset("SELECT tbl1.Path, tbl2.* FROM tbl1 INNER JOIN tbl2 ON tbl1.tbl1ID = tbl2.tbl2ID Where tbl2.FldX = " & VReply & ";", dbOpenDynaset) Set Me.Recordset = rs End...

This would work...? Use a RST as a record source for the form... Use your results of the parameter query as a filter and appropriate relationships to have your path as part of the RST.. Then assign your RST as the recordsource for the form... Would this not work? Regards,

Suggestion... Verify that both fields are same "types" meaning dates ect...... Ensure Field2 indeed has dates.... If so try the Field1 = nz(Field2,"15-Sep-03") to see if if the date you specified is written where = "A" to ensure the criteria works.... Regards,