Search results

Got that one working having trouble with this still tho?? DoCmd.OpenForm "Reason For User Change", , , "[Reason For User Change]![Sai Serial] ='" & Me.Sai_Serial_Number & "'" And "[Reason For User Change]![Username] =" ' & Forms![InfoKeeper]![User Asigned] & "'" And "[Reason For User...

Same thing im a lottle confused at this point If DCount("[Sai Serial]", "Reason For User Change", "[Reason For User Change]![Sai Serial] = " & Me.Sai_Serial_Number) > 0 And DCount("[Date Changed]", "Reason For User Change", "[Reason For User Change]![Date Changed] = '" & Userdate & "'") > 0 And...

And will apply multiple conditions to the WHERE filter right?

Getting a data mismatch error here: DoCmd.OpenForm "Reason For User Change", , , "[Reason For User Change]![Sai Serial] = " & Me.Sai_Serial_Number And "[Reason For User Change]![Username] ='" & Forms![InfoKeeper]![User Asigned] & "'" And "[Reason For User Change]![Date Changed] = " & Userdate...

Got this from the MS site. how dose this apply to my problem?

yah the function is a button that updates the ammount of a item that we have in stock. but if the item dose not exist it adds it, then updated the quanity in stock. Its adds and updated the quantity alright, it even adds the new item to the table ok if it dose not exist. but i still get that...

the dropdown updates but im still getting the error

Dim db As DAO.Database Dim rs As DAO.Recordset Dim Howmeny As Integer Dim totalammount As Integer Set db = CurrentDb Set rs = db.OpenRecordset("Parts Inventory", dbOpenDynaset) Me.Part_Type.SetFocus If DCount("[Part Name]", "Parts Inventory", "[Part Name]= '" & Me.Part_Name & "'") > 0 Then...

HA! you the man bob!

This only returns "1" but there are 11 how do i count them all? Dim db As DAO.Database Dim rs As DAO.Recordset DoCmd.GoToRecord , , acNewRec Set db = CurrentDb Set rs = db.OpenRecordset("RMA", dbOpenDynaset) With rs CurrentNumber = .RecordCount End With rs.Close

Anyway i can remove the ribon in 07 i searched the forums but all i fid is ways to change in in XML and i dont know XML i just want it to not load at all.

Is there a way to remove the ribbon compleatly?

Ok bob got it thanks again! heres the final whammy! Private Sub Label106_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim Sainumber As Integer Dim Buildtype As String Set db = CurrentDb Set rs = db.OpenRecordset("BuildInfoBySaiNumber", dbOpenDynaset) Sainumber = [Sai Serial Number]...

Ack i see why i have build types linked there also and have not been filled. the filter dose not work because the other link is null. poped a value in and boom got it

Its a Number

it comes up empty, the code is adding the record but the filter is not bringing up the number??? any thoughts

im trying to automatically generate numbers for a primary key but i want to start at like 130000, and make it auto add one every time a new record is created. and use that number as the default value in the primary key field.

so i want the form to open up into the number that it was on on the previous page how would i apply that filter? Private Sub Label106_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim Sainumber As String Set db = CurrentDb Set rs = db.OpenRecordset("BuildInfoBySaiNumber"...

I want to see if a record exists in a record set and if not then i want to add it. this is what i have so far Dim db As DAO.Database Dim rs As DAO.Recordset Dim Sainumber As String Set db = CurrentDb Set rs = db.OpenRecordset("BuildInfoBySaiNumber", dbOpenDynaset) Sainumber =...

im confuesed as to how to apply it do i put it in a query or VBA, Dmin ("Column Name", "Table Name", Min Value) how do i apply this method?