Search results

  1. W

    Create a Temp Table

    I have some code that creates a table based off another table. This code works perfect but Im trying to alter my ID field and change it to an auto increment. How can I fix my code so that it alters my ID field? Private Sub Command0_Click() 'OBJECTIVE: to build a table by extracting some...
  2. W

    Sending Email form report

    I am trying to send an Email from a report . Using this code On Local Error GoTo Some_Err Dim MyDB As Database, RS As Recordset Dim strBody As String, lngCount As Long, lngRSCount As Long DoCmd.RunCommand acCmdSaveRecord Set MyDB = DBEngine.Workspaces(0).Databases(0)...
  3. W

    Best Practice for Creating Data Entry

    I have a database that tracks Credit information. I trying to implement something that my users can paste in a large amount of data (Name, CardNumber, Amount) into a table (ImportFundedCardstbl) OR a form that triggers an email function anytime somebody adds new entries to the database. My...
  4. W

    Casacading Comboboxes Changes the Row Source

    I want to know is it possible to have a combobox change the row source of another combobox with vba code or some other way.
  5. W

    automatically login in to orcale ODBC Connect

    Does anybody know any code to Automatically login in to orcale ODBC Connect (Link Tables). Im trying to write some vba code that automatically enters in the user name and password when ever the orcale ODBC Connect box comes up.
  6. W

    Hide First 6 Digits in Textbox

    I am trying to hide the first 6 digits in a textbox and only show the last for digits in a text box. So far I a putting my code in the Format Format section in Property Sheet of a form. Its not seeming to work. What am I doing wrong? Left([Card Number],Len([Card Number])-6)
  7. W

    Multiple Value Combobox

    I have a Multiple Value Combobox that I have linked to one of my forms and I am trying to write some vba code that will allow on update, "if a certain item is clicked open up a different form". Here is the Multiple Value Combobox Multiple value combobox3.JPG Here is the formFormaccess.JPG.
  8. W

    Multiple Value Combobox

    I have a Multiple Value Combobox that I have linked to one of my forms and I am trying to write some vba code that will allow on update, "if a certain item is clicked open up a different form". Here is the Multiple Value Combobox Here is the form.
  9. W

    Copy one table to another

    Can somebody please help me understand this code Private Sub CheckBoxName_AfterUpdate() Dim strSQL As String strSQL = "INSERT INTO TableB (FieldB1, FieldB2, FieldB3) " & _ "SELECT " & Me.Field1 & " As Expr1, " & Me.Field2 & _ " As Expr2, " & Me.Field3 &...
  10. W

    dlookup help

    Im trying to write a dlookup statement when my Discontinue yes/no check box is checked it will copy one field from one table and put it in another table. the error i am getting is Test cant not find the field '|' referred in your expression Private Sub Discontinue_AfterUpdate() If...
  11. W

    Dlookup when yes/no box clicked

    I have a table (Current Meds) nested on my form that has a yes/no box (discontinue) clicked in every data entry. When i click on the yes/no box (discontinue) I want to copy data from that row and add it to a different nested table (tblNotesCurrentMeds) on that same form. I cant get it to...
  12. W

    Best way to share Access

    Currently I have a database that has multilevel user access meaning that I have a (Admin, User, Other) user access option? All three users will have access to the same backend data but all three will have a different frontend form. Now i want to use Sql server to backup my backend table and...
  13. W

    if statment or case statment?

    I want to write an if or case statement that opens my form depending on the criteria. i have tried both neither work. If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value) Then lngMyEmpID = Me.cboEmployee.Value Select Case...
  14. W

    Requery Button

    I have and query and a form. ON the form i have two combo boxes. I have a function that i call on update of the combo boxes it requerys the data Function Re(T As String) On Error GoTo Re_Err DoCmd.Requery "List105" Re_Exit: Exit Function Re_Err: MsgBox Error$ Resume...
  15. W

    vbaInet

    to understand my next problem you have to look at my database. Currently Im working on an query that suppose to output alot of data. My problem is that its not outputing the right and all the data. Im currently working on the "Asset to Bu" Query. And the password page is not link so dont...
  16. W

    Sub form

    Im trying to figure out how to have my subform refresh its self when I press button. I dont know how to find the name of my sub form is my biggest problem. Do you need to see my database?
  17. W

    Run-time error '2465'

    I have a code that giving me the run time error can anybody help Private Sub Command7_Click() Dim strFilter As Integer strFilter = [PO Number] = [Forms]![PO Search Report]!PONumber DoCmd.OpenReport "Purchase Order Report", acViewReport, , _ [PO Number] = Me!PONumber.Value End Sub I know it...
  18. W

    Save An Report Automatically every 10 days

    I have a code that saves an report every time i click an button i have created. Can you tell me a way to have this report automatically save every 10 days. Without pressing an button. Dim stDocName As String mystr = Format(Date, "dddd-mmmm-yyyy") If Len(Dir("C:\Documents and...
  19. W

    Adding multiple criteria

    How would I add multiple criteria to this statement this doesnt work Private Sub cmdUpdate_Click() DoCmd.RunSQL "UPDATE [Hardware Asset]" & _ " SET [Hardware Asset].[OS] = """ & Me.[OS] """ [Hardware Asset].[State] = """ & Me.[State] & _ """ WHERE [Hardware Asset].[AssetNumber]...
  20. W

    help with code test

    Private Sub cmdUpdate_Click() DoCmd.RunSQL "UPDATE [Hardware Asset]" & _ " SET [Hardware Asset].[OS] = """ & Me.[OS] & _ """ WHERE [Hardware Asset].[AssetNumber] = """ & Forms![Hardware Asset Update Form]![AssetNumber] & """" End Sub
Back
Top Bottom