Search results

Got it to Function properly using Private Sub Command47_Click() Dim strSQL As String If DLookup("NumOfCopys", "Books1", "ISBN = Forms![CheckOutMenu]![ISBN]") = 0 Then MsgBox "Book is unavaliable." Else strSQL = "Update Books1 SET [NumOfCopys] = [NumOfCopys]-1 WHERE Books1.ISBN =...

I tested it more and I cant get the IF statement to run : It always jumps to the ELSE updated code still not working: Private Sub Command47_Click() Dim strSQL As String If DLookup("NumOfCopys", "Books1", "ISBN=" & Forms!CheckOutMenu.ISBN) = 0 Then MsgBox "Book is unavaliable." Else strSQL =...

Yea i got it to work using this: But now i would like to add IF Books1.[NumOfCopys] == 0 then error cant check out! Thanks

Here is What i have for a guess on the last issue

I got it to add a record to the Archive table when I click ok and my record source on the form is the Archive table. I would like it to take away one book copy from the Books1 table with the matching ISBN. Any Idea on how I would do this? Thanks

So basically when user enters ISBN and UserName Then once they click ok I want it to put a record in the Archive table With the ISBN and the UserName the user entered and also the Date

I am having trouble with this function of checking books out. I am getting a syntax error I will post pictures of all the tables I use in my database and the form and help would be appreciated. My thought was to have a form where user inputs ISBN and UserName then clicks an OK Button which...

Also if a Member associated with that ID has over 6 books checked out then he cant check out anymore books so there would be a pop up message saying no more books, and only one book can be reserved at a time

Here I am working on a practice database doing a Library management System. I have an attached database (working on making test data for the tables will upload when finished). I am trying to figure out a way I can do the book checkout and book reserve buttons. some thoughts i had on how to do...

Runescape is also my weakness been playing 14 years now

Thanks For the help I got the fee to work

Here is what I have started with in that attachment, I am having trouble with figuring this out in the 'Check Books In/Out' Form **VBA challenge coding/getting amount owed if book is overdue Need to subtract 2 date/time format fields and get a number If that number is over (7 days) then a...

i have this after update Private Sub Combo1040_AfterUpdate() ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Order Number] = '" & Me![Combo1040] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub i have tried...

do you think that would be under property sheet > validation rule 'Like '@' because i dont want to limit it to just that order number would it be in an event

i have a combo box that finds a record on my form based on order number i select in the drop down , is there a way i can get it to auto populate if i search part of the order number instead of the whole thing. EXAMPLE: instead of typing 000018052913 in the combo box i would like to type in 2913

so when i have a numeric value i would put just me.XXXXX Private Sub Duplicate__Record_Click() Dim onn As String Dim strSQL As String onn = [order number].Value onn = Format(onn + 100000000, String(12, "0")) MsgBox onn DoCmd.RunSQL "Insert Into [Order Master] ([Order...

Hello guys i have a duplicate button with some SQL code embedded into it and i cannot get the sql code to execute here is a copy of the code Private Sub Duplicate__Record_Click() Dim fullpath As String Dim dirs(0 To 2) As String Dim s As Variant Dim onn As String Dim strSQL As String onn =...