So I have a load action that automatically refreshes the page during a successful save (via the Save_Button.Click)
Private Sub Main_Add_Load(sender As Object, e As EventArgs) Handles MyBase.Load, Save_Button.Click
The issue is that when the user clicks the save button I need to check to make...
So I inherited a program that has the following formula:
=SUMIF('National Feeder'!$C$40:$C$45,markets!$E$73,'National Feeder'!$D$40:$D$45)
However I need to add ISERROR to this formula somehow, and when I try:
=SUM(IF(ISERROR('National Feeder'!$C$40:$C$45,markets!$E$73,'National...
Thanks Andy,
I have finally figured out how to get it working
Dim Staff As String = ""
Dim DataPullStaff As New DataSet
Staff = "Select MAX([Record ID]) from Staff_Position"
DataPullStaff = DataConnect.GetDataSet(Staff)
Dim TBH As String = ""
Dim...
Thanks Andy, but I am having some issues trying to output the result to a textbox on my form.
Trying this is giving me a few errors, do you have any suggestions?
If Staff > TBH Then
Me.RecordID_TEXT = DataPullStaff.Tables(0).Rows(1).Item(1)
ElseIf Staff < TBH Then...
So what I am trying to do is to figure out between two tables which one has the bigger Record ID. Once I find that out I want to output this number with a +1 to a text box.
Dim DataConnect As New Data_Connection_Final
Dim Staff As String = ""
Dim DataPullStaff As New...
Thanks Skip! Worked like a charm.
Dim jan012000 As New DateTime(2000, 1, 1)
Dim jan011900 As New DateTime(1900, 1, 1)
If StaffEnd_DT.Value.Equals(jan012000) Or StaffEnd_DT.Value.Equals(jan011900) Then
So I am trying to make an IF statement that if the date logic stays as default (1/1/1900) then I want my program to do one thing, else do something else.
If StaffEnd_DT.Value.Equals("1/1/2000 12:00:00 AM") Or StaffEnd_DT.Value.Equals("1/1/1900 12:00:00 AM") Then
When I try to debug, it looks...
Thank you combo I will give this a try. Thanks for the tip about the ranges too, I will go ahead and separate all those out into separate DIM statements first.
So I am trying to have my Excel workbook copy and paste values when the value changes in my dropdown box. I was hoping someone could help me understand how to connect my code.
So far I have the following:
Dim ws As Worksheet
Dim dd As DropDown
Set ws = ActiveSheet
Set dd =...
Yes it will be using Excel 2010
I can try this route, I was using SQL Management Studio and the virtual machine that my database sits on is being regulated by another area at work than mine. So my guess is they are locking some features down. I am also having to create triggers for audit...
Good Morning!
I haven't dealt much in exporting to Excel from SQL so I was hoping I could be pointed in the right direction. I am trying to export all my tables (22) from SQL Server into Excel, then zip the entire set. I also want to allow the user to decide where the zip file will be saved...
I got it!
INSERT INTO Portfolio ([Mem_Name], [Role], [Rate])
SELECT [Mem_Name], [Role], [Rate] FROM Portfolio
Where [Role] = 'Manager' and [Rate] = 22;
Thanks for the help Skip and Andy!
Ahhh you are right I didn't think of the primary key. Ha, I guess I take that auto number for granted. I will give that a try.
I will update the thread with my results
Code:
INSERT INTO Portfolio SELECT * FROM Portfolio
Where [Role] = 'Manager' and [Rate] = 22;
Error:
Microsoft Access can't append all the records in the append query.
Microsoft Access set 0 field(s) to Null due to a type conversion failure, and it didn't add 78 record(s) to the table due...
That wouldn't be a bad idea, a time stamp on each row. Yeah I will give that a try. But my other question still stands on how I can take the rows that equal "Manager" and duplicate them and insert them back into the table with the time stamp.
Sometime the Role name changes or the Role rate changes, so I wanted to put Historical in the record to distinguish the two. That way we will have a track record of old records.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.