help to make a macro?

[d3vil112]

Attachment 3294

Attachment 3295hi i have been working on a project for a long time and i got stuck. i kinda need help..



i have attached a file.
i am working on a project that has to do with car service company.
so in my program there are six cars each goes to different zones and different zones have diff pays..
so suppose if a client calls for a car and and if a have a car available i want that car to be sent out to that location..i have done mostly everything but i can't able to make a automate button or whetever so if i choose a car to send it will say car has been sent out. so please help..

[alansidman]

I think your db may be corrupted. I get an unrecognized format and unable to open it in Access 2007.

Alan

[d3vil112]

i have attached another one please check

[June7]

Were the accdb projects created with Access2010? I have experienced that Access2010 accdb files cannot be opened by Access2007.

The tables Inventory, reserved cars, CarOutStatus appear to be one-to-one relationship. Each table has 6 records for the six cars. If this will not change (the tables will each always have a record for each car, even if you add cars to the inventory) I see no reason for separate tables. This is all detail info about each car. One table, one form, simpler data entry, no macro needed, simply change the time value in Time Depart field.

If you want to stick with this structure then try:
In AfterUpdate event of the combobox, VBA code (I don't use macros).
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE CarOutStatus Set [Time Depart] = #" Now() "# WHERE CarID=" & Me.Combo45
DoCmd.SetWarning True

[d3vil112]

thats right! but my prof said that i have to make a button to do it for me .. ...for first i was changing it from the caroutstaus table ..but now he said make a macro button so that when u chose ur available cars n then send them out.. so confused

[d3vil112]

i started working on access 2007 i dont knw when it got updated to 2010

[June7]

If your assignment is to design a user-friendly project with GUI then yes, should not be doing data entry directly on tables. That's what forms are for.

I forgot about the Zone value. Yes, a button does make sense. However, the radio buttons need to be associated with an option group frame so that only one can be selected. Why does code set radselected to a number, the Zone field is text? Checked method won't work with radio button.

Try:

Private Sub Command48_Click()
If Me.Frame49 = 1 Then
    radselected = "A"
ElseIf Me.Frame49 = 2 Then
    radselected = "B"
ElseIf Me.Frame49 Then
    radselected = "C"
End If
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE CarOutStatus Set [Time Depart]=#" & Now() & "#, Zone='" & radselected & "' WHERE CarID='" & Me.Combo45 & "'"
DoCmd.SetWarnings True
End Sub